paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #28158

Browse Source 
git-svn-id: trunk@31020 -
This commit is contained in:
michael 2015-06-10 21:25:30 +00:00
parent 473adb5725
commit 518d77b119
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-web/src/base/fpwebclient.pp
View File

@ -117,6 +117,8 @@ Type
// Must create a request.
Function DoCreateRequest : TWebClientRequest; virtual; abstract;
Public
Destructor Destroy; override;
// Executes the HTTP method AMethod on AURL. Raises an exception on error.
// On success, TWebClientResponse is returned. It must be freed by the caller.
Function ExecuteRequest(Const AMethod,AURL : String; ARequest : TWebClientRequest) : TWebClientResponse;
@ -233,6 +235,12 @@ begin
end;
end;
destructor TAbstractWebClient.Destroy;
begin
LogFile:='';
inherited Destroy;
end;
procedure TAbstractWebClient.LogRequest(AMethod, AURL: String;
ARequest: TWebClientRequest);