Add "IsActive()"

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1311 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/indy_http_server.pas

@@ -84,6 +84,7 @@ type
     class function GetDescription() : string;override;
     procedure Start();override;
     procedure Stop();override;
+    function IsActive : Boolean; override;
   end;
 
 
@@ -303,6 +304,11 @@ begin
   Result := 'WST Indy HTTP Listener';
 end;
 
+function TwstIndyHttpListener.IsActive: Boolean;
+begin
+  Result := FHTTPServerObject.Active;
+end;
+
 initialization
 
 

wst/trunk/indy_tcp_server.pas

@@ -62,6 +62,7 @@ type
     class function GetDescription() : string;override;
     procedure Start();override;
     procedure Stop();override;
+    function IsActive : Boolean; override;
   end;
 
 implementation
@@ -250,5 +251,10 @@ begin
     FTCPServerObject.Active := False;
 end; 
 
+function TwstIndyTcpListener.IsActive: Boolean;
+begin
+  Result := FTCPServerObject.Active;
+end;
+
 end.
 

wst/trunk/server_listener.pas

@@ -34,6 +34,7 @@ type
     class function GetDescription() : string;virtual;
     procedure Start();virtual;abstract;
     procedure Stop();virtual;abstract;
+    function IsActive : Boolean; virtual;abstract;
     procedure NotifyMessage(const AMsg : string);
     property OnNotifyMessage : TListnerNotifyMessage read FOnNotifyMessage write FOnNotifyMessage;
   end;

wst/trunk/synapse_tcp_server.pas

@@ -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