как создать соединение по websocket со стороны сервера?
есть какой то компонент специальный, в инди например?
Stack Overflow на русском — это сайт вопросов и ответов для программистов. Присоединяйтесь! Регистрация займёт не больше минуты.
Присоединиться к сообществуhttp://websockets.esegece.com/
unit Unit1;
interface
uses
... sgcWebSocket_Classes, sgcWebSocket_Server, sgcWebSocket;
type
TForm1 = class(TForm)
sgcWebSocketServer1: TsgcWebSocketServer;
procedure Button1Click(Sender: TObject);
procedure sgcWebSocketServer1Message(Connection: TsgcWSConnection;
const Text: string);
end;
var
Form1: TForm1;
cguid: String;
implementation
{$R *.dfm}
procedure TForm1.sgcWebSocketServer1Message(Connection: TsgcWSConnection;
const Text: string);
begin
cguid := Conection.Guid;
Memo1.Lines.Add(Text); // запрос
Connection.WriteData('Ответ');
end;
end.
или
procedure TForm1.Button1Click(Sender: TObject);
begin
sgcWebSocketServer1.WriteData(cguid, 'message');
end;