Как из delphi ответить клиенту из safari по wss?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

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;

1
2
3
4
5
6
7
8
9

procedure ConfigureSSLOptions;
begin
  with WebSocketServer.SSLOptions do
  begin
    KeyFile := 'путь_к_ключевому_файлу.key'; // Путь к вашему ключевому файлу
    CertFile := 'путь_к_сертификату.crt'; // Путь к вашему сертификату
    RootCertFile := 'путь_к_файлу_цепочки_сертификатов.pem'; // Путь к файлу цепочки сертификатов
  end;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

procedure StartWebSocketServer;
begin
  WebSocketServer := TIdWebSocketServer.Create(nil);
  WebSocketServer.DefaultPort := 443;
  WebSocketServer.SSLOptions.Method := sslvTLSv1_2;
  WebSocketServer.SSLOptions.Mode := sslmServer;
  
  ConfigureSSLOptions; // Настройка SSL
  
  WebSocketServer.OnConnect := OnWebSocketConnect;
  WebSocketServer.OnDisconnect := OnWebSocketDisconnect;
  WebSocketServer.OnExecute := OnWebSocketReceive;
  WebSocketServer.Active := True;
end;