pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 uses
Classes, SysUtils, Classes, SysUtils,
service_intf, imp_utils, 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 Const
sTRANSPORT_NAME = 'SAME_PROCESS'; sTRANSPORT_NAME = 'SAME_PROCESS';
@ -29,17 +30,13 @@ Type
{ TInProcessTransport } { TInProcessTransport }
TInProcessTransport = class(TSimpleFactoryItem,ITransport) TInProcessTransport = class(TBaseTransport,ITransport)
Private Private
FAdress: string; FAdress: string;
FContentType: string; FContentType: string;
FFormat : string; FFormat : string;
FPropMngr : IPropertyManager;
Public Public
constructor Create();override; procedure SendAndReceive(ARequest,AResponse:TStream); override;
destructor Destroy();override;
function GetPropertyManager():IPropertyManager;
procedure SendAndReceive(ARequest,AResponse:TStream);
Published Published
property ContentType : string Read FContentType Write FContentType; property ContentType : string Read FContentType Write FContentType;
property Adress : string Read FAdress Write FAdress; property Adress : string Read FAdress Write FAdress;
@ -53,22 +50,6 @@ implementation
{ TInProcessTransport } { 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); procedure TInProcessTransport.SendAndReceive(ARequest, AResponse: TStream);
Var Var
bffr : IRequestBuffer; bffr : IRequestBuffer;