paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 11:24:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Applied patch from Joao Morais to customize request/response (bug 21980)

Browse Source 
git-svn-id: trunk@21313 -
This commit is contained in:
michael 2012-05-17 08:07:33 +00:00
parent 798c9340cc
commit ad4876dcb5
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-web/src/base/custfcgi.pp
View File

@ -124,6 +124,8 @@ Type
function Read_FCGIRecord : PFCGI_Header;
function DataAvailable : Boolean;
protected
function CreateRequest : TFCGIRequest; virtual;
function CreateResponse(ARequest: TFCGIRequest) : TFCGIResponse; virtual;
Function DoFastCGIRead(AHandle : THandle; Var ABuf; ACount : Integer) : Integer; virtual;
Function DoFastCGIWrite(AHandle : THandle; Const ABuf; ACount : Integer) : Integer; virtual;
function ProcessRecord(AFCGI_Record: PFCGI_Header; out ARequest: TRequest; out AResponse: TResponse): boolean; virtual;
@ -801,6 +803,16 @@ begin
end;
{$endif}
function TFCgiHandler.CreateRequest: TFCGIRequest;
begin
Result := TFCGIRequest.Create;
end;
function TFCgiHandler.CreateResponse(ARequest: TFCGIRequest): TFCGIResponse;
begin
Result := TFCGIResponse.Create(ARequest);
end;
function TFCgiHandler.DoFastCGIRead(AHandle: THandle; var ABuf; ACount: Integer): Integer;
begin
{$ifdef windowspipe}
@ -839,7 +851,7 @@ begin
end;
assert(not assigned(FRequestsArray[ARequestID].Request));
assert(not assigned(FRequestsArray[ARequestID].Response));
ATempRequest:=TFCGIRequest.Create;
ATempRequest:=CreateRequest;
InitRequest(ATempRequest);
ATempRequest.RequestID:=ARequestID;
ATempRequest.Handle:=FHandle;
@ -856,7 +868,7 @@ begin
else if FRequestsArray[ARequestID].Request.ProcessFCGIRecord(AFCGI_Record) then
begin
ARequest:=FRequestsArray[ARequestID].Request;
FRequestsArray[ARequestID].Response := TFCGIResponse.Create(ARequest);
FRequestsArray[ARequestID].Response := CreateResponse(TFCGIRequest(ARequest));
InitResponse(FRequestsArray[ARequestID].Response);
FRequestsArray[ARequestID].Response.ProtocolOptions:=Self.ProtocolOptions;
FRequestsArray[ARequestID].Response.FOnWrite:=@DoFastCGIWrite;