Browse Source

* Use default handler for SSL sockets

Michaël Van Canneyt 3 years ago
parent
commit
d7801027c4
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/fcl-web/src/websocket/fpwebsocketclient.pp

+ 2 - 2
packages/fcl-web/src/websocket/fpwebsocketclient.pp

@@ -19,7 +19,7 @@ unit fpwebsocketclient;
 interface
 interface
 
 
 uses
 uses
-  sysutils, classes, fpwebsocket, ssockets, sslsockets, opensslsockets, fpopenssl;
+  sysutils, classes, fpwebsocket, ssockets, sslsockets, fpopenssl;
 
 
 Type
 Type
   EWebSocketClient = Class(EWebSocket);
   EWebSocketClient = Class(EWebSocket);
@@ -286,7 +286,7 @@ begin
   SSLHandler := nil;
   SSLHandler := nil;
   if UseSSL then
   if UseSSL then
   begin
   begin
-    SSLHandler := TOpenSSLSocketHandler.GetDefaultHandler;
+    SSLHandler := TSSLSocketHandler.GetDefaultHandler;
     SSLHandler.VerifyPeerCert := False;
     SSLHandler.VerifyPeerCert := False;
   end;
   end;
   FSocket:=TInetSocket.Create(HostName,Port,ConnectTimeout, SSLHandler);
   FSocket:=TInetSocket.Create(HostName,Port,ConnectTimeout, SSLHandler);