Add "GetTransportName()" method to ITransport

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1518 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-03-01 15:42:53 +00:00
parent 4415e0c9dc
commit 6468c52f16
8 changed files with 48 additions and 5 deletions
--- a/wst/trunk/same_process_protocol.pas
+++ b/wst/trunk/same_process_protocol.pas
@ -35,7 +35,8 @@ Type
    FAdress: string;
    FContentType: string;
    FFormat : string;
-  Public
+  Public                             
+    function GetTransportName() : string; override;    
    procedure SendAndReceive(ARequest,AResponse:TStream); override;
  Published
    property ContentType : string Read FContentType Write FContentType;
@ -50,6 +51,11 @@ implementation

 { TInProcessTransport }

+function TInProcessTransport.GetTransportName() : string;  
+begin
+  Result := sTRANSPORT_NAME;  
+end;
+
 procedure TInProcessTransport.SendAndReceive(ARequest, AResponse: TStream);
 Var
  bffr : IRequestBuffer;