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

* Take into account SendOutputToBrowser (2)

Michael Van Canneyt 5 сар өмнө
parent
commit
d019335646

+ 2 - 1
packages/wasi/src/wasiworkerthreadhost.pas

@@ -846,7 +846,8 @@ end;
 
 
 procedure TWorkerThreadControllerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string);
 procedure TWorkerThreadControllerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string);
 begin
 begin
-  FConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput,0));
+  if SendOutputToBrowser then
+    FConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput,0));
 end;
 end;
 
 
 function TWorkerThreadControllerApplication.HandleCustomCommand(aData : TWorkerCommand) : Boolean;
 function TWorkerThreadControllerApplication.HandleCustomCommand(aData : TWorkerCommand) : Boolean;