paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SetStatus convenience call

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-04 13:11:45 +02:00
parent f9c006ca9f
commit 66a1486f32
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-web/src/base/httpdefs.pp
View File

@ -564,6 +564,8 @@ type
Procedure SendHeaders;
Procedure SendResponse; // Delphi compatibility
Procedure SendRedirect(const TargetURL:String);
// Set Code and CodeText. Send content if aSend=True
Procedure SetStatus(aStatus : Cardinal; aSend : Boolean = False);
Property Request : TRequest Read FRequest;
Property Code: Integer Read FCode Write FCode;
Property CodeText: String Read FCodeText Write FCodeText;
@ -1016,11 +1018,7 @@ begin
if MaxAge>0 then
SetCustomHeader('Access-Control-Max-Age',IntToStr(MaxAge));
if (hcSend in aOptions) then
begin
Code:=200;
CodeText:='OK';
SendResponse;
end;
SetStatus(200,True);
end;
end;
end;
@ -2801,8 +2799,7 @@ constructor TResponse.Create(ARequest : TRequest);
begin
inherited Create;
FRequest:=ARequest;
FCode := 200;
FCodeText := 'OK';
SetStatus(200);
ContentType:='text/html';
FContents:=TStringList.Create;
TStringList(FContents).OnChange:=@ContentsChanged;
@ -2872,6 +2869,14 @@ begin
end;
end;
procedure TResponse.SetStatus(aStatus: Cardinal; aSend: Boolean = False);
begin
Code:=aStatus;
CodeText:=GetHTTPStatusText(aStatus);
if aSend then
SendContent;
end;
procedure TResponse.SetFirstHeaderLine(const line: String);
var
i: Integer;