paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-10 09:26:26 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -321,6 +321,18 @@ Var
Result:=Env.GetUTF8StringFromMem(Ptr,Len); Result:=Env.GetUTF8StringFromMem(Ptr,Len);
end; 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; Function GetBuffer : TJSArrayBuffer;
var var
@ -338,6 +350,7 @@ Var
var var
i : Integer; i : Integer;
Hdrs : Longint;
begin begin
v:=getModuleMemoryDataView; v:=getModuleMemoryDataView;
@ -346,10 +359,16 @@ begin
Result.Url:=GetString; Result.Url:=GetString;
Result.Method:=GetString; Result.Method:=GetString;
HeaderCount:=v.getInt32(P,Env.IsLittleEndian); HeaderCount:=v.getInt32(P,Env.IsLittleEndian);
inc(P,SizeInt32);
SetLength(Result.Headers,HeaderCount); 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 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.Body:=GetBuffer;
Result.Integrity:=GetString; Result.Integrity:=GetString;
Result.Redirect:=RedirectToString(GetInt32); Result.Redirect:=RedirectToString(GetInt32);