From 80f5f83a1aa979be1e462805f7b95074b144415c Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 8 Sep 2010 13:54:13 +0000
Subject: [PATCH] Fix TInProcessTransport

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1315 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/same_process_protocol.pas | 27 ++++-----------------------
 1 file changed, 4 insertions(+), 23 deletions(-)

diff --git a/wst/trunk/same_process_protocol.pas b/wst/trunk/same_process_protocol.pas
index d60f42d30..2f6ea1882 100644
--- a/wst/trunk/same_process_protocol.pas
+++ b/wst/trunk/same_process_protocol.pas
@@ -18,7 +18,8 @@ interface
 uses
   Classes, SysUtils,
   service_intf, imp_utils,
-  server_service_intf, server_service_imputils, base_service_intf, wst_types;
+  server_service_intf, server_service_imputils, base_service_intf, wst_types,
+  client_utils;
 
 Const
   sTRANSPORT_NAME = 'SAME_PROCESS';
@@ -29,17 +30,13 @@ Type
 
   { TInProcessTransport }
 
-  TInProcessTransport = class(TSimpleFactoryItem,ITransport)
+  TInProcessTransport = class(TBaseTransport,ITransport)
   Private
     FAdress: string;
     FContentType: string;
     FFormat : string;
-    FPropMngr : IPropertyManager;
   Public
-    constructor Create();override;
-    destructor Destroy();override;
-    function GetPropertyManager():IPropertyManager;
-    procedure SendAndReceive(ARequest,AResponse:TStream);
+    procedure SendAndReceive(ARequest,AResponse:TStream); override;
   Published
     property ContentType : string Read FContentType Write FContentType;
     property Adress : string Read FAdress Write FAdress;
@@ -53,22 +50,6 @@ implementation
 
 { TInProcessTransport }
 
-constructor TInProcessTransport.Create();
-begin
-  FPropMngr := TPublishedPropertyManager.Create(Self);
-end;
-
-destructor TInProcessTransport.Destroy();
-begin
-  FPropMngr := Nil;
-  inherited Destroy();
-end;
-
-function TInProcessTransport.GetPropertyManager(): IPropertyManager;
-begin
-  Result := FPropMngr;
-end;
-
 procedure TInProcessTransport.SendAndReceive(ARequest, AResponse: TStream);
 Var
   bffr : IRequestBuffer;