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

* Allow to function in web worker

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-12-02 21:27:50 +01:00
parent d43a547461
commit a6f4d0f1ce
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.pas2js.httpapi.pas
View File

@ -23,9 +23,9 @@ interface
uses
{$IFDEF FPC_DOTTEDUNITS}
System.Classes, System.SysUtils, JSApi.JS, BrowserApi.Web, Wasi.Env, wasm.http.shared;
System.Classes, System.SysUtils, JSApi.JS, BrowserApi.WebOrWorker, {$IFDEF JOB_WORKER} BrowserApi.WebWorker {$ELSE} BrowserApi.Web {$ENDIF}, Wasi.Env, wasm.http.shared;
{$ELSE}
Classes, SysUtils, JS, Web, WasiEnv, types, wasm.http.shared;
Classes, SysUtils, JS, WebOrWorker, {$IFDEF JOB_WORKER} WebWorker {$ELSE} Web {$ENDIF}, WasiEnv, types, wasm.http.shared;
{$ENDIF}
Type
@ -276,7 +276,11 @@ begin
lRequest:=TJSRequest.New(FRequestData.Url,lRequestInit);
lBuf:=Nil;
try
{$IFDEF JOB_WORKER}
lResponse:=aWait(TJSResponse,webworker.fetch(lRequest));
{$ELSE}
lResponse:=aWait(Window.Asyncfetch(lRequest));
{$ENDIF}
lBuf:=aWait(TJSArrayBuffer,lResponse.arrayBuffer);
fResultBody:=lBuf;
FResponse:=lResponse;