paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-07 12:41:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Send console output through TCommandDispatcher

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-04-24 11:57:40 +02:00
parent 31b0027881
commit 5f0afb2ad0
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-base/src/workerapp.pas
View File

@ -5,7 +5,7 @@ unit workerapp;
interface
uses
Classes, SysUtils, CustApp, WebOrWorker, WebWorker, Rtl.WorkerCommands;
Classes, SysUtils, CustApp, WebWorker, Rtl.WorkerCommands;
Type
@ -13,8 +13,6 @@ Type
TWorkerApplication = class(TCustomApplication)
Private
FSendOutputToBrowser: Boolean;
FConsoleChannel: TJSBroadcastChannel;
FSendOutputToConsole: Boolean;
protected
procedure DoLog(EventType: TEventType; const Msg: String); override;
@ -23,17 +21,12 @@ Type
procedure ShowException(aError: Exception); override;
function GetConsoleApplication: boolean; override;
function GetLocation: String; override;
// Send output to browser window process?
Property SendOutputToBrowser : Boolean Read FSendOutputToBrowser Write FSendOutputToBrowser;
// Send output to console ?
// Send output to console channel ?
Property SendOutputToConsole : Boolean Read FSendOutputToConsole Write FSendOutputToConsole;
// Default console input
// Send a command to the process that started the worker.
procedure SendCommand(aCommand: TCustomWorkerCommand);
// Get the list of environment variables.
procedure GetEnvironmentList(List: TStrings; NamesOnly: Boolean); override;
// Console channel
property ConsoleChannel : TJSBroadCastChannel Read FConsoleChannel;
end;
implementation
@ -95,7 +88,6 @@ end;
constructor TWorkerApplication.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FConsoleChannel:=TJSBroadcastChannel.new(channelConsole);
FSendOutputToConsole:=true;
end;
@ -142,8 +134,10 @@ procedure TWorkerApplication.DoLog(EventType: TEventType; const Msg: String);
var
S : String;
begin
if not SendOutputToConsole then
Exit;
S:=GetEnumName(TypeInfo(TEventType),Ord(EventType));
ConsoleChannel.PostMessage(TConsoleOutputCommand.Create(Format('[%s] %s',[S,Msg])));
TCommandDispatcher.Instance.SendConsoleCommand(TConsoleOutputCommand.Create(Format('[%s] %s',[S,Msg])));
end;
initialization