paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 10:10:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use default handler for SSL sockets

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-08-08 14:43:12 +02:00
parent d347487be9
commit d7801027c4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/websocket/fpwebsocketclient.pp
View File

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