paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix TInProcessTransport

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1315 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2010-09-08 13:54:13 +00:00
parent 5e469a8721
commit 80f5f83a1a
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
wst/trunk/same_process_protocol.pas
View File

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