mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-11 08:30:32 +01:00
40 lines
786 B
ObjectPascal
40 lines
786 B
ObjectPascal
program dbugsrv;
|
|
|
|
{$MODE OBJFPC}
|
|
{$H+}
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
classes,SysUtils,simpleipc,dbugmsg;
|
|
|
|
Var
|
|
Srv : TSimpleIPCServer;
|
|
S : String;
|
|
Msg : TDebugMessage;
|
|
|
|
begin
|
|
Srv:=TSimpleIPCServer.Create(Nil);
|
|
Try
|
|
Srv.ServerID:=DebugServerID;
|
|
Srv.Global:=True;
|
|
Srv.Active:=True;
|
|
Srv.StartServer;
|
|
Writeln('Server started. Listening for debug messages');
|
|
Repeat
|
|
If Srv.PeekMessage(1,True) then
|
|
begin
|
|
Srv.MsgData.Seek(0,soFrombeginning);
|
|
ReadDebugMessageFromStream(Srv.MsgData,MSg);
|
|
Write(FormatDateTime('hh:nn:ss.zzz',Msg.MsgTimeStamp),': ');
|
|
Write(DebugMessageName(MSg.MsgType):12,' ');
|
|
Writeln(Msg.Msg);
|
|
end
|
|
else
|
|
Sleep(10);
|
|
Until False;
|
|
Finally
|
|
Srv.Free;
|
|
end;
|
|
end.
|
|
|