Websocket Delphi Пример

WebSockets - это технология, которая позволяет двум сторонам установить постоянное соединение и обмениваться данными в режиме реального времени. В Delphi вы можете использовать компоненты WebSocket, такие как TWebSocketClient и TWebSocketServer, чтобы реализовать подобную функциональность.

Рассмотрим пример использования TWebSocketClient. Предполагается, что у вас уже есть веб-приложение, подключенное к веб-сокету, к которому необходимо подключиться из Delphi-приложения. Для этого вам нужно:

var  WebSocket: TWebSocketClient;begin  WebSocket := TWebSocketClient.Create(nil);  try    WebSocket.URL := 'ws://localhost:8080/ws'; //указываем URL веб-сокета    WebSocket.Open;    while WebSocket.State = wscConnecting do      Application.ProcessMessages; //ожидаем соединения    if WebSocket.State = wscConnected then      //отправляем сообщение на сервер      WebSocket.SendText('Hello, server!');  finally    WebSocket.Free;  end;

В этом примере мы создаем экземпляр TWebSocketClient, указываем URL веб-сокета и открываем соединение. Далее мы ожидаем установки соединения и отправляем текстовое сообщение на сервер.

Теперь рассмотрим пример использования TWebSocketServer. Предполагается, что у вас уже есть Delphi-приложение, которое может принимать входящие запросы от веб-приложения через веб-сокет. Для этого вам нужно:

var  WebSocket: TWebSocketServer;begin  WebSocket := TWebSocketServer.Create(nil);  try    WebSocket.Port := 8080; //указываем порт сервера    WebSocket.Active := True; //запускаем сервер    while WebSocket.Active do      WebSocket.Broadcast('Hello, clients!'); //отправляем сообщение всем клиентам  finally    WebSocket.Free;  end;

В этом примере мы создаем экземпляр TWebSocketServer, указываем порт и запускаем сервер. Затем мы отправляем текстовое сообщение всем клиентам, подключенным к серверу.