TSslWSocket - отправка данных - Delphi - Общие вопросы Delphi

darkwellroad · 10.11.2017, 20:06

Привет всем. Вообщем, стоит задача наладить работу WebSocket-клиента. Получается сделать Connect, отправить хэдеры, ключ и т.п. Вопрос такой: как послать ответ? Использую Overbyte ICS TSslWebSocket.

Код:

Sock.SendStr('GET ---секретный адрес работодателя---'#13#10);
  Sock.SendStr('Connection: Upgrade'#13#10);
  Sock.SendStr('Host: ---секретный хост работодателя---'#13#10);
  Sock.SendStr('Upgrade: websocket'#13#10);
  Sock.SendStr('Sec-websocket-Key: d3SejPd3B5AgZsSsHy5Ud34=='#13#10);
  Sock.SendStr('Sec-websocket-Version: 13'#13#10#13#10);

Могу скинуть чуть-чуть переделаный исходник от overbyte.. ну тот который в examples лежит. После #13#10#13#10 клиент сам отключается. Попытки отправить данные через некоторое время после отправки хэдеров ни к чему не приводят.. значит не правильно шлю

Код:

Sock.SendLine('hello'#13#10#13#10);   --- после этого теоретически должен быть ответ

darkwellroad · 13.11.2017, 13:50

Решил через Ip*Works. Отличные компоненты.. Рекомендую. Все просто до безобразия

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отправка данных клиентам в Delphi	Максим139	Помощь студентам	0	23.04.2011 10:20
Отправка данных на почту. [Delphi]	vitaxa94	Помощь студентам	4	16.11.2010 17:16
Delphi отправка данных	uzumi	Помощь студентам	2	16.10.2010 12:36
Подключение к сайту, ввод данных, отправка данных.	Hichigo	Общие вопросы C/C++	0	20.07.2010 20:24
Отправка данных из Delphi в Excel по условию	GhostBZ	БД в Delphi	4	28.08.2009 10:41

10.11.2017, 20:06	#1
darkwellroad Пользователь Регистрация: 01.09.2013 Сообщений: 83	TSslWSocket - отправка данных - Delphi Привет всем. Вообщем, стоит задача наладить работу WebSocket-клиента. Получается сделать Connect, отправить хэдеры, ключ и т.п. Вопрос такой: как послать ответ? Использую Overbyte ICS TSslWebSocket. Код: `Sock.SendStr('GET ---секретный адрес работодателя---'#13#10); Sock.SendStr('Connection: Upgrade'#13#10); Sock.SendStr('Host: ---секретный хост работодателя---'#13#10); Sock.SendStr('Upgrade: websocket'#13#10); Sock.SendStr('Sec-websocket-Key: d3SejPd3B5AgZsSsHy5Ud34=='#13#10); Sock.SendStr('Sec-websocket-Version: 13'#13#10#13#10);` Могу скинуть чуть-чуть переделаный исходник от overbyte.. ну тот который в examples лежит. После #13#10#13#10 клиент сам отключается. Попытки отправить данные через некоторое время после отправки хэдеров ни к чему не приводят.. значит не правильно шлю Код: `Sock.SendLine('hello'#13#10#13#10); --- после этого теоретически должен быть ответ`

13.11.2017, 13:50	#2
darkwellroad Пользователь Регистрация: 01.09.2013 Сообщений: 83	Решил через Ip*Works. Отличные компоненты.. Рекомендую. Все просто до безобразия