@fidel

Для ответа клиенту из Safari по WebSocket Secure (WSS) в Delphi, вы можете использовать компонент TIdWebSocketServer из библиотеки Indy.

Вот пример кода, который может помочь вам начать:

uses
  IdWebSocketServer, IdGlobal, IdContext, IdSSLOpenSSL, IdSSLOpenSSLHeaders;

var
  WebSocketServer: TIdWebSocketServer;

procedure OnWebSocketConnect(AContext: TIdContext);
begin
  // Код, который выполнится при подключении клиента
end;

procedure OnWebSocketDisconnect(AContext: TIdContext);
begin
  // Код, который выполнится при отключении клиента
end;

procedure OnWebSocketReceive(AContext: TIdContext; AData: TStream);
var
  Response: String;
begin
  // Код, который выполнится при получении данных от клиента
  // Здесь вы можете обработать полученные данные и сформировать ответ

  Response := 'Hello, World!'; // Пример ответа

  AContext.Connection.IOHandler.WriteLn(Response);
end;

procedure StartWebSocketServer;
begin
  WebSocketServer := TIdWebSocketServer.Create(nil);
  WebSocketServer.DefaultPort := 443;
  WebSocketServer.SSLOptions.Method := sslvTLSv1_2;
  WebSocketServer.SSLOptions.Mode := sslmServer;
  WebSocketServer.OnConnect := OnWebSocketConnect;
  WebSocketServer.OnDisconnect := OnWebSocketDisconnect;
  WebSocketServer.OnExecute := OnWebSocketReceive;
  WebSocketServer.Active := True;
end;

В этом примере сервер WebSocket запускается на порту 443 с использованием SSL. Вы можете изменить настройки, чтобы они соответствовали вашим потребностям.

Функция OnWebSocketReceive вызывается каждый раз, когда сервер получает данные от клиента. В этой функции вы можете обработать полученные данные и отправить ответ обратно клиенту, используя метод AContext.Connection.IOHandler.WriteLn.

Обратите внимание, что код в этом примере не содержит обработки ошибок. При реализации сервера WebSocket важно обрабатывать все ошибки, которые могут возникнуть во время работы сервера и клиента.

#safari