|
@@ -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);
|