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

* Fix loadfromstrings, fixes bug #40929

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-10-02 13:19:16 +02:00
parent 736edf6422
commit 5b46c44b7d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1921,8 +1921,10 @@ begin
VN:=Copy(S,1,P-1);
Delete(S,1,P);
P:=GetFieldNameIndex(VN);
If (P<>-1) then
SetFieldValue(P,S);
If (P<>0) then // Changed -1 in 0
SetFieldValue(P,trim(S)) // Added TRIM
else // Added else
SetCustomHeader(VN, trim(S));
end;
Inc(Result);
end;
@ -2292,7 +2294,8 @@ begin
begin
FHttpVersion := Copy(URI, i + 1, Length(URI));
URI := Copy(URI, 1, i - 1);
FHttpVersion := Copy(HttpVersion, Pos('/', HttpVersion) + 1, Length(HttpVersion));
FHttpVersion := Copy(FHttpVersion, Pos('/', FHttpVersion) + 1, Length(FHttpVersion)); // Changed HttpVersion in HttpVersion
HTTPVersion:= FHttpVersion;
end;
// Extract query string