You've already forked lazarus-ccr
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:
@@ -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);
|
||||
|
Reference in New Issue
Block a user