Прошу помочь с отправкой запроса при помощи winsocks и получения ответа / FoxPro, Visual FoxPro

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Прошу помочь с отправкой запроса при помощи winsocks и получения ответа

3 сообщений из 3, страница 1 из 1

Прошу помочь с отправкой запроса при помощи winsocks и получения ответа

#38942772

systistrator

Гость

Добрый день всем!
Очень прошу помочь разобраться!...
Сразу скажу, никогда не писал под связь. Всегда были другие источники данных, например, ODBC, а тут пришлось...

1. В моем распоряжении есть программа для тестирования связи с удаленным сервером (написана на delphi). Исходников нет. Есть разве что dll. Сразу скажу, пробовал свои сложности решить через эту dll, подключил, запрос сделал, ответ получил, но как и от куда вытащить данные не понял. Так что решил самостоятельно сделать клиент.
2. Посмотрел то(при помощи Wireshark), что отправляет и получает вышеупомянутая dll. Как видно на рисунке, идет запрос, потом приходит ответ...
3. Я запрос отправил, только вот в моем случае обмен встает на получении ответа, как будто что-то ждет... )) Хотя возможно оно и так.

Теперь про foxpro...
На рисунке, во втором блоке показан ход выполнения

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

IF ThisForm.tcpClient.Object.State = 7
	lcHeaderSend = "POST /asvWeb/vio/getInsurer HTTP/1.0" + chr(13)+chr(10);
	+"Host: 10...56:9080" + chr(13)+chr(10);
	+"Keep-Alive: 300" + chr(13)+chr(10);
	+"Connection: keep-alive" + chr(13)+chr(10);	
	+"User-Agent: Mozilla/4.0 (compatible; Synapse)"  + chr(13)+chr(10);
	+"Content-Type: application/xml" + chr(13)+chr(10);
	+"Content-Lenght: 363" + chr(13)+chr(10);
	+"message-id: 11" + chr(13)+chr(10)

	lcHeaderSend = lcHeaderSend + '<?xml version="1.0" encoding="UTF-8"?>'+SPACE(2);
		         + '<om:model xmlns:om="http://www.r-style.com/2014/odm-model">' SPACE(2);
			 + '</om:model>'
	ThisForm.tcpClient.Object.SendData(lcHeaderSend)
	strData = SPACE(356)
	ThisForm.tcpClient.Object.GetData(@strData)
	ThisForm.edit1.Value = strData

Через некоторое время выполнения кода сервер возвращает Timeout .
Предполагаю, что я должен опросить на предмет ответа или же сервер отправленные мною данные не принял за запрос.

...

Рейтинг:

0 / 0

22.04.2015, 16:32

| Ответить | Цитировать | Написать

Прошу помочь с отправкой запроса при помощи winsocks и получения ответа

#38943129

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Вопрос к фоксу мало отношения имеет. Изучай как работает ThisForm.tcpClient

...

Рейтинг:

0 / 0

23.04.2015, 07:40

| Ответить | Цитировать | Написать

Прошу помочь с отправкой запроса при помощи winsocks и получения ответа

#38943645

systistrator

Гость

Dima T,
Да, я бы сказал больше, он вообще к фоксу отношения не имеет. А причина отсутствия ответа от сервера во-первых мной не показана, а во-вторых крылась в самом отправляемом мною пакете данных.

Так что приношу прощения, не сразу до меня дошло, ввиду отсутствия опыта написания сокетов.

Правда появилась другая ошибка, но это уже точно не в эту ветку :-)

...

Рейтинг:

0 / 0

23.04.2015, 15:00

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=25&tid=1582380]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	32ms
get topic data:	11ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	13ms

total:	138ms