TsgcWebSocketClient | SChannel Get Connection Info

Sobald der Client eine Verbindung zum sicheren Server hergestellt hat, können Sie Informationen darüber anfordern, welche TLS-Version verwendet wird (TLS 1.2, TLS 1.3 usw.), die verwendete Cipher, die Stärke und mehr.

 

Rufen Sie die Funktion GetInfo des SChannel-Handlers auf, um auf diese Informationen zuzugreifen. Sie können auf den SSL-Handler über die Methode OnSSLAfterCreateHandler zugreifen, die aufgerufen wird, nachdem der SChannel-Handler erstellt wurde. Nachdem sich der Client mit dem Server verbunden hat, rufen Sie, wenn der SSL-Handler zugewiesen ist, die Funktion GetInfo auf, und bei Erfolg werden die Verbindungsdaten zurückgegeben.

 

uses
  sgcIdSSL, sgcSSL_SChannel_Indy, sgcSSL_SChannel;

var
  SSL: TsgcIdSSLIOHandlerSocketSChannel;
oClient := TsgcWebSocketClient.Create(nil);
oClient.URL := 'wss://www.esegece.com:2053';
oClient.TLSOptions.Version := tls1_2;
oClient.TLSOptions.IOHandler := iohSChannel;
oClient.OnSSLAfterCreateHandler := OnSSLAfterCreateHandlerEvent;
oClient.OnConnect := OnConnectEvent;
oClient.Active := True;
procedure OnSSLAfterCreateHandlerEvent(Sender: TObject; aType: TwsSSLHandler; 
  aSSLHandler: TIdSSLIOHandlerSocketBase);
begin
  if aSSLHandler.ClassType = TsgcIdSSLIOHandlerSocketSChannel  then
    SSL := TsgcIdSSLIOHandlerSocketSChannel(aSSLHandler);
end;
procedure OnConnectEvent(Connection: TsgcWSConnection);
var
  oInfo: TsgcSChannelConnectionInfo;
begin
  if Assigned(SSL) then
  begin
    oInfo := SSL.GetInfo;
    if (oInfo.Protocol != tls1_2) then
      raise Exception.Create('Client cannot connect using TLS 1.2');
  end;
end;