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

* Patch to fix IndexOfHeader (plus some cosmetic changes) from engkin. Bug ID #33680

Browse Source 
git-svn-id: trunk@38910 -
This commit is contained in:
michael 2018-05-05 15:09:45 +00:00
parent f9e790aa3f
commit a8e5d89aac
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/fphttpclient.pp
View File

@ -679,7 +679,7 @@ begin
end;
if Assigned(FCookies) then
begin
L:='Cookie:';
L:='Cookie: ';
For I:=0 to FCookies.Count-1 do
begin
If (I>0) then
@ -1298,13 +1298,18 @@ end;
class procedure TFPCustomHTTPClient.AddHeader(HTTPHeaders: TStrings;
const AHeader, AValue: String);
Var
J: Integer;
J: Integer;
S : String;
begin
j:=IndexOfHeader(HTTPHeaders,Aheader);
J:=IndexOfHeader(HTTPHeaders,Aheader);
S:=AHeader+': '+Avalue;
if (J<>-1) then
HTTPHeaders.Delete(j);
HTTPHeaders.Add(AHeader+': '+Avalue);
HTTPHeaders[j]:=S
else
HTTPHeaders.Add(S);
end;
@ -1315,8 +1320,8 @@ Var
L : Integer;
H : String;
begin
H:=LowerCase(Aheader);
l:=Length(AHeader);
H:=LowerCase(Aheader)+':';
l:=Length(H);
Result:=HTTPHeaders.Count-1;
While (Result>=0) and ((LowerCase(Copy(HTTPHeaders[Result],1,l)))<>h) do
Dec(Result);