paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct ResponseContent field !

Browse Source 
git-svn-id: trunk@30833 -
This commit is contained in:
michael 2015-05-09 15:10:26 +00:00
parent 8982f5a22e
commit 0bf1ae4f7e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,6 +46,7 @@ Type
TWebClientRequest = Class(TRequestResponse) TWebClientRequest = Class(TRequestResponse)
Private Private
FExtraParams : TStrings; FExtraParams : TStrings;
FResponseStream: TStream;
Protected Protected
function GetExtraParams: TStrings; virtual; function GetExtraParams: TStrings; virtual;
Public Public
@ -54,7 +55,7 @@ Type
// Query Parameters to include in request // Query Parameters to include in request
Property Params : TStrings Read GetExtraParams; Property Params : TStrings Read GetExtraParams;
// If you want the response to go to this stream, set this in the request // If you want the response to go to this stream, set this in the request
Property ResponseContent : TStream Read FStream Write FStream; Property ResponseContent : TStream Read FResponseStream Write FResponseStream;
end; end;
@ -165,13 +166,13 @@ begin
end; end;
Destructor TWebClientRequest.Destroy; destructor TWebClientRequest.Destroy;
begin begin
FreeAndNil(FExtraParams); FreeAndNil(FExtraParams);
inherited Destroy; inherited Destroy;
end; end;
Function TWebClientRequest.ParamsAsQuery: String; function TWebClientRequest.ParamsAsQuery: String;
Var Var
N,V : String; N,V : String;