ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Прошу помочь с отправкой запроса при помощи winsocks и получения ответа
3 сообщений из 3, страница 1 из 1
Прошу помочь с отправкой запроса при помощи winsocks и получения ответа
    #38942772
systistrator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Вопрос к фоксу мало отношения имеет. Изучай как работает ThisForm.tcpClient
...
Рейтинг: 0 / 0
23.04.2015, 07:40
| Ответить | Цитировать | Написать  
Прошу помочь с отправкой запроса при помощи winsocks и получения ответа
    #38943645
systistrator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
systistrator
Гость
Dima T,
Да, я бы сказал больше, он вообще к фоксу отношения не имеет. А причина отсутствия ответа от сервера во-первых мной не показана, а во-вторых крылась в самом отправляемом мною пакете данных.

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

Правда появилась другая ошибка, но это уже точно не в эту ветку :-)
...
Рейтинг: 0 / 0
23.04.2015, 15:00
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Прошу помочь с отправкой запроса при помощи winsocks и получения ответа
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]