paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 16:09:33 +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)
Private
FExtraParams : TStrings;
FResponseStream: TStream;
Protected
function GetExtraParams: TStrings; virtual;
Public
@ -54,7 +55,7 @@ Type
// Query Parameters to include in request
Property Params : TStrings Read GetExtraParams;
// 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;
@ -165,13 +166,13 @@ begin
end;
Destructor TWebClientRequest.Destroy;
destructor TWebClientRequest.Destroy;
begin
FreeAndNil(FExtraParams);
inherited Destroy;
end;
Function TWebClientRequest.ParamsAsQuery: String;
function TWebClientRequest.ParamsAsQuery: String;
Var
N,V : String;