mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-18 07:05:37 +01:00
38 lines
765 B
ObjectPascal
38 lines
765 B
ObjectPascal
program dbugsrv;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
classes,SysUtils,simpleipc,msgintf;
|
|
|
|
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.
|
|
|