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