paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 05:48:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correctly retrieve headers

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-11-25 20:47:36 +01:00
parent 3b3ddc7fca
commit 356f975902
1 changed files with 21 additions and 2 deletions

23
packages/wasm-utils/src/wasm.pas2js.httpapi.pas
View File

@ -321,6 +321,18 @@ Var
Result:=Env.GetUTF8StringFromMem(Ptr,Len);
end;
Function GetStringFromAddr(Ptr : Longint) : string;
var
SPtr,Len : Longint;
begin
SPtr:=v.getInt32(Ptr,Env.IsLittleEndian);
Inc(Ptr,SizeInt32);
Len:=v.getInt32(Ptr,Env.IsLittleEndian);
Result:=Env.GetUTF8StringFromMem(SPtr,Len);
end;
Function GetBuffer : TJSArrayBuffer;
var
@ -338,6 +350,7 @@ Var
var
i : Integer;
Hdrs : Longint;
begin
v:=getModuleMemoryDataView;
@ -346,10 +359,16 @@ begin
Result.Url:=GetString;
Result.Method:=GetString;
HeaderCount:=v.getInt32(P,Env.IsLittleEndian);
inc(P,SizeInt32);
SetLength(Result.Headers,HeaderCount);
inc(P,SizeInt32);
// Pointer to list of strings
Hdrs:=v.getInt32(P,Env.IsLittleEndian);
inc(P,SizeInt32);
for I:=0 to HeaderCount-1 do
Result.Headers[i]:=Getstring;
begin
Result.Headers[i]:=GetStringFromAddr(Hdrs);
inc(Hdrs,SizeInt32*2);
end;
Result.Body:=GetBuffer;
Result.Integrity:=GetString;
Result.Redirect:=RedirectToString(GetInt32);