TsgcWebSocketClient | SChannel Get Connection Info

Una volta che il client si è connesso al server sicuro, è possibile richiedere informazioni sulla versione TLS in uso (TLS 1.2, TLS 1.3, ecc.), il cifrario utilizzato, la robustezza e altro ancora.

 

Chiamare la funzione GetInfo dell'handler SChannel per accedere a queste informazioni. È possibile accedere all'handler SSL tramite il metodo OnSSLAfterCreateHandler, che viene chiamato dopo la creazione dell'handler SChannel. Dopo che il client si connette al server, se l'handler SSL è assegnato, chiamare la funzione GetInfo e, in caso di successo, essa restituirà i dati della connessione.

 

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;