paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-web: no need to convert line break

Browse Source
This commit is contained in:
mattias 2024-01-31 09:42:32 +01:00
parent 10f13a36ce
commit f29156340a
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -852,9 +852,6 @@ begin
Result:=aLastCount=0;
end;
procedure TFPHTTPConnectionRequest.InitRequestVars;
Var
P : Integer;
@ -877,8 +874,6 @@ begin
Result := '';
end;
procedure TFPHTTPConnectionResponse.DoSendHeaders(Headers: TStrings);
Var
@ -889,7 +884,7 @@ begin
exit;
S:=Format('HTTP/1.1 %3d %s'#13#10,[Code,GetHTTPStatusText(Code)]);
For I:=0 to Headers.Count-1 do
S:=S+UTF8Encode(Headers[i]+#13#10);
S:=S+UTF8Encode(Headers[i])+#13#10;
// Last line in headers is empty.
Connection.Socket.WriteBuffer(S[1],Length(S));
end;
@ -900,9 +895,8 @@ begin
exit;
If Assigned(ContentStream) and (ContentStream.Size>0) then
Connection.Socket.CopyFrom(ContentStream,0)
else
if Length(Content)>0 then
Connection.Socket.WriteBuffer(Content[1],Length(Content));
else if Length(Content)>0 then
Connection.Socket.WriteBuffer(Content[1],Length(Content));
end;
{ TFPHTTPConnection }