Add "GetTransportName()" method to ITransport

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

View File

@@ -69,7 +69,8 @@ Type
procedure SetProxyUsername(const AValue: string);
Public
constructor Create();override;
destructor Destroy();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);