pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Add "IsActive()"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1311 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2010-09-01 00:35:41 +00:00
parent ed28927351
commit e39994c6db
4 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/synapse_tcp_server.pas
View File

@ -82,6 +82,7 @@ type
destructor Destroy();override;
procedure Start();override;
procedure Stop();override;
function IsActive : Boolean; override;
end;
implementation
@ -325,6 +326,11 @@ begin
inherited Destroy();
end;
function TwstSynapseTcpListener.IsActive: Boolean;
begin
Result := (FServerThread <> nil) and (not FServerThread.Suspended);
end;
procedure TwstSynapseTcpListener.Start();
begin
if ( FServerThread = nil ) then