Update Bird.Socket.Connection.pas

mateusvicente100 · Jun 22, 2020 · f17523c · f17523c
1 parent 8837dc3
commit f17523c
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/Bird.Socket.Connection.pas b/src/Bird.Socket.Connection.pas
@@ -13,6 +13,8 @@   TBirdSocketConnection = class
     function WaitMessage: string;
     function IPAdress: string;
     function Id: Integer;
+    function CheckForDataOnSource(const ATimeOut: Integer): Boolean;
+    function Connected: Boolean;
     procedure Send(const AMessage: string); overload;
     procedure Send(const ACode: Integer; const AMessage: string); overload;
     procedure Send(const ACode: Integer; const AMessage: string; const AValues: array of const); overload;
@@ -24,6 +26,16 @@   TBirdSocketConnection = class
 
 implementation
 
+function TBirdSocketConnection.CheckForDataOnSource(const ATimeOut: Integer): Boolean;
+begin
+  Result := FIdContext.Connection.IOHandler.CheckForDataOnSource(ATimeOut);
+end;
+
+function TBirdSocketConnection.Connected: Boolean;
+begin
+  Result := FIdContext.Connection.Connected;
+end;
+
 constructor TBirdSocketConnection.Create(const AIdContext: TIdContext);
 begin
   FIdContext := AIdContext;