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

Added SSL support for Websocket client.

Browse Source
This commit is contained in:
Yuri Serebrennikov 2022-08-07 22:58:18 +03:00
parent 9c72ab651d
commit a5486e04cd
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,7 +19,7 @@ unit fpwebsocketclient;
interface
uses
sysutils, classes, fpwebsocket, ssockets;
sysutils, classes, fpwebsocket, ssockets, sslsockets, opensslsockets, fpopenssl;
Type
EWebSocketClient = Class(EWebSocket);
@ -276,17 +276,27 @@ begin
end;
procedure TCustomWebsocketClient.Connect;
var
SSLHandler: TSSLSocketHandler;
begin
If Active then
Exit;
// Safety: Free any dangling objects before recreating
FreeConnectionObjects;
FSocket:=TInetSocket.Create(HostName,Port,ConnectTimeout);
SSLHandler := nil;
if UseSSL then
begin
SSLHandler := TOpenSSLSocketHandler.GetDefaultHandler;
SSLHandler.VerifyPeerCert := False;
end;
FSocket:=TInetSocket.Create(HostName,Port,ConnectTimeout, SSLHandler);
FTransport:=TWSClientTransport.Create(FSocket);
FConnection:=CreateClientConnection(FTransport);
FConnection.OnMessageReceived:=@MessageReceived;
FConnection.OnControl:=@ControlReceived;
FCOnnection.OutgoingFrameMask:=Self.OutGoingFrameMask;
if UseSSL then
FSocket.Connect;
FActive:=True;
if not DoHandShake then
Disconnect(False)