pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Add "GetTransportName()" method to ITransport

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1518 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-03-01 15:42:53 +00:00
parent 4415e0c9dc
commit 6468c52f16
8 changed files with 48 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/client_utils.pas
View File

@ -38,6 +38,7 @@ Type
public
constructor Create();override;
destructor Destroy();override;
function GetTransportName() : string; virtual;
function GetPropertyManager():IPropertyManager;
procedure SendAndReceive(ARequest,AResponse:TStream); virtual;
function GetCookieManager() : ICookieManager; virtual;
@ -154,6 +155,11 @@ begin
Result := locRes;
end;
function TBaseTransport.GetTransportName() : string;
begin
Result := ClassName();
end;
function TBaseTransport.GetPropertyManager() : IPropertyManager;
begin
Result := FPropMngr;

6
wst/trunk/indy_http_protocol.pas
View File

@ -69,6 +69,7 @@ Type
public
constructor Create();override;
destructor Destroy();override;
function GetTransportName() : string; override;
procedure SendAndReceive(ARequest,AResponse:TStream); override;
function GetCookieManager() : ICookieManager; override;
published
@ -142,6 +143,11 @@ begin
Result := FConnection.ProxyParams.ProxyUsername;
end;
function THTTPTransport.GetTransportName() : string;
begin
Result := sTRANSPORT_NAME;
end;
procedure THTTPTransport.SetAddress(const AValue: string);
begin
FConnection.Request.URL := AValue;

6
wst/trunk/indy_tcp_protocol.pas
View File

@ -45,6 +45,7 @@ Type
public
constructor Create();override;
destructor Destroy();override;
function GetTransportName() : string; override;
procedure SendAndReceive(ARequest,AResponse:TStream); override;
Published
property Target : string Read FTarget Write FTarget;
@ -99,6 +100,11 @@ begin
inherited Destroy();
end;
function TTCPTransport.GetTransportName() : string;
begin
Result := sTRANSPORT_NAME;
end;
procedure TTCPTransport.SendAndReceive(ARequest, AResponse: TStream);
var
wrtr : IDataStore;

6
wst/trunk/library_protocol.pas
View File

@ -44,6 +44,7 @@ Type
public
constructor Create();override;
destructor Destroy();override;
function GetTransportName() : string; override;
procedure SendAndReceive(ARequest,AResponse:TStream); override;
published
property ContentType : string read FContentType write FContentType;
@ -91,6 +92,11 @@ begin
inherited Destroy();
end;
function TLIBTransport.GetTransportName() : string;
begin
Result := sTRANSPORT_NAME;
end;
const MAX_ERR_LEN = 500;
procedure TLIBTransport.SendAndReceive(ARequest, AResponse: TStream);
Var

6
wst/trunk/same_process_protocol.pas
View File

@ -36,6 +36,7 @@ Type
FContentType: string;
FFormat : string;
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;

1
wst/trunk/service_intf.pas
View File

@ -38,6 +38,7 @@ Type
ITransport = Interface
['{AEB6677A-9620-4E7D-82A0-43E3C4C52B43}']
function GetTransportName() : string;
function GetPropertyManager():IPropertyManager;
procedure SendAndReceive(ARequest,AResponse:TStream);
function GetCookieManager() : ICookieManager;

6
wst/trunk/synapse_http_protocol.pas
View File

@ -70,6 +70,7 @@ Type
Public
constructor Create();override;
destructor Destroy();override;
function GetTransportName() : string; override;
procedure SendAndReceive(ARequest,AResponse:TStream); override;
function GetCookieManager() : ICookieManager; override;
Published
@ -165,6 +166,11 @@ begin
inherited Destroy();
end;
function THTTPTransport.GetTransportName() : string;
begin
Result := sTRANSPORT_NAME;
end;
procedure THTTPTransport.SendAndReceive(ARequest, AResponse: TStream);
{$IFDEF WST_DBG}
procedure Display(const AStr : string);

6
wst/trunk/synapse_tcp_protocol.pas
View File

@ -46,6 +46,7 @@ Type
public
constructor Create();override;
destructor Destroy();override;
function GetTransportName() : string; override;
procedure SendAndReceive(ARequest,AResponse:TStream); override;
Published
property Target : string Read FTarget Write FTarget;
@ -99,6 +100,11 @@ begin
inherited Destroy();
end;
function TTCPTransport.GetTransportName() : string;
begin
Result := sTRANSPORT_NAME;
end;
procedure TTCPTransport.SendAndReceive(ARequest, AResponse: TStream);
procedure ReadResponse(ADest : TStream);