From f29156340afb96b31e31c319a5425a9e72dcadf3 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 31 Jan 2024 09:42:32 +0100 Subject: [PATCH] fcl-web: no need to convert line break --- packages/fcl-web/src/base/fphttpserver.pp | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/packages/fcl-web/src/base/fphttpserver.pp b/packages/fcl-web/src/base/fphttpserver.pp index fbdad7973d..0823a62a6e 100644 --- a/packages/fcl-web/src/base/fphttpserver.pp +++ b/packages/fcl-web/src/base/fphttpserver.pp @@ -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 }