paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added protected procedure THTTPContentProducer.SetRequest

Browse Source 
git-svn-id: trunk@14108 -
This commit is contained in:
joost 2009-11-08 11:04:59 +00:00
parent 5ad78c59b1
commit 33a26ab16a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/fphttp.pp
View File

@ -37,6 +37,7 @@ Type
Procedure DoGetContent(ARequest : TRequest; Content : TStream; Var Handled : Boolean); virtual;
Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse; Var Handled : Boolean);
Function ProduceContent : String; virtual;
Procedure SetRequest(ARequest: TRequest);
Protected
Property BeforeRequest : TRequestEvent Read FBeforeRequest Write FBeforeRequest;
Property AfterResponse : TResponseEvent Read FAfterResponse Write FAfterResponse;
@ -258,6 +259,11 @@ begin
Result:='';
end;
procedure THTTPContentProducer.SetRequest(ARequest: TRequest);
begin
FRequest := ARequest;
end;
function THTTPContentProducer.HaveContent: Boolean;
begin
Result:=(ProduceContent<>'');