From a6f4d0f1ce0cc4cde9f3326112bc39a9bbe25104 Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Mon, 2 Dec 2024 21:27:50 +0100
Subject: [PATCH] * Allow to function in web worker

---
 packages/wasm-utils/src/wasm.pas2js.httpapi.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/packages/wasm-utils/src/wasm.pas2js.httpapi.pas b/packages/wasm-utils/src/wasm.pas2js.httpapi.pas
index f32a2b1..52b1bca 100644
--- a/packages/wasm-utils/src/wasm.pas2js.httpapi.pas
+++ b/packages/wasm-utils/src/wasm.pas2js.httpapi.pas
@@ -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;