paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some fixes in handling of headers

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-23 22:54:31 +01:00
parent c236ac5e97
commit e03e62f013
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/wasm-utils/src/wasm.http.objects.pas
View File

@ -645,14 +645,15 @@ begin
Result.Referrer:=StringToWasmString(Idx,Referrer);
Result.ReferrerPolicy:=StringToWasmString(Idx,ReferrerPolicy);
Result.Integrity:=StringToWasmString(Idx,Integrity);
Result.HeaderCount:=0;
Result.HeaderCount:=FHeaders.Count;
SetLength(FAPIHeaders,FHeaders.Count);
Idx2:=0;
For H in FHeaders do
begin
FAPIHeaders[Idx2]:=StringToWasmString(Idx,URL);
FAPIHeaders[Idx2]:=StringToWasmString(Idx,H);
Inc(Idx2);
end;
Result.Headers:=PWasmString(FAPIHeaders);
Result.AbortSignal:=Ord(AbortSignal);
Result.KeepAlive:=Ord(KeepAlive);
Result.Cache:=Ord(Cache);
@ -660,6 +661,9 @@ begin
Result.Priority:=Ord(Priority);
Result.Redirect:=Ord(Redirect);
Result.Credentials:=Ord(Credentials);
Result.Body.Len:=Length(FBody);
if Result.Body.Len>0 then
Result.Body.Data:=PByte(FBody);
end;
function TWasmHTTPRequest.Scheduled: Boolean;