2
0
Эх сурвалжийг харах

* Use hostconfig provided wasm file

Michaël Van Canneyt 1 жил өмнө
parent
commit
f1af18918c

+ 13 - 1
demo/wasienv/regexp/regexphost.lpr

@@ -46,8 +46,20 @@ Type
   end;
   end;
 
 
 procedure TMyApplication.DoRun;
 procedure TMyApplication.DoRun;
+var
+  wasm : String;
+
 begin
 begin
-  StartWebAssembly('wasmregexpdemo.wasm');
+  Terminate;
+  if Assigned(HostConfig) and isString(HostConfig.wasmFilename) then
+    Wasm:=HostConfig.wasmFilename
+  else
+    begin
+    Wasm:=ParamStr(1);
+    if Wasm='' then
+      Wasm:='wasmregexpdemo.wasm';
+    end;
+  StartWebAssembly(wasm);
 end;
 end;
 
 
 procedure TMyApplication.HandleLogClick(Event : TJSEvent);
 procedure TMyApplication.HandleLogClick(Event : TJSEvent);