paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 01:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFPDServer: Send console-output to the terminal window

Browse Source 
git-svn-id: trunk@49265 -
This commit is contained in:
joost 2015-06-04 18:08:31 +00:00
parent 5960d41722
commit defb929545
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazdebuggers/lazdebuggerfpdserver/fpdserverdebugger.pas
View File

@ -264,6 +264,7 @@ type
procedure DoHandleCreateProcessEvent(AnEvent: TJSONObject);
procedure DoHandleExitProcessEvent(AnEvent: TJSONObject);
procedure DoHandleBreakpointEvent(AnEvent: TJSONObject);
procedure DoHandleConsoleOutputEvent(AnEvent: TJSONObject);
public
constructor Create(const AExternalDebugger: String); override;
destructor Destroy; override;
@ -1034,11 +1035,20 @@ begin
QueueCommand(TFPDSendDoCurrentCommand.create);
end;
procedure TFPDServerDebugger.DoHandleConsoleOutputEvent(AnEvent: TJSONObject);
var
AMessage: string;
begin
Message:=AnEvent.Get('message','');
OnConsoleOutput(Self, AMessage);
end;
procedure TFPDServerDebugger.HandleNotification(ANotification: TJSONObject);
var
NotificationType: string;
UID: integer;
SendCommand: TFPDSendCommand;
Message: string;
begin
// Ignore notifications from other connections
if ANotification.get('connIdentifier',-1)=FSocketThread.ConnectionIdentifier then
@ -1110,7 +1120,8 @@ begin
case EventName of
'CreateProcess' : DoHandleCreateProcessEvent(ANotification);
'ExitProcess' : DoHandleExitProcessEvent(ANotification);
'BreakPoint' : DoHandleBreakPointEvent(ANotification)
'BreakPoint' : DoHandleBreakPointEvent(ANotification);
'ConsoleOutput' : DoHandleConsoleOutputEvent(ANotification);
else
debugln('Received unknown event: '+EventName);
end;