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

fcl-web: comment

Browse Source
This commit is contained in:
mattias 2022-08-22 19:14:03 +02:00
parent 87857252a4
commit 8ebced609c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/websocket/fpwebsocketserver.pp
View File

@ -91,9 +91,9 @@ type
property OnMessageReceived;
property OnDisconnect;
property OnControlReceived;
Property ThreadMode;
Property OnError;
Property OnConnectionHandshake;
Property ThreadMode;
// use SSL ?
Property UseSSL : Boolean Read FUseSSL Write SetUseSSL;
// Properties to use when doing SSL handshake
@ -339,7 +339,7 @@ begin
TAcceptThread.Create(Self)
else
begin
StartAccepting;
StartAccepting; // runs til deactivated
StopServer;
end;
end;
@ -392,6 +392,4 @@ begin
inherited Destroy;
end;
end.