8
classes,SysUtils,simpleipc,dbugmsg;
11
Srv : TSimpleIPCServer;
16
Srv:=TSimpleIPCServer.Create(Nil);
18
Srv.ServerID:=DebugServerID;
22
Writeln('Server started. Listening for debug messages');
24
If Srv.PeekMessage(1,True) then
26
Srv.MsgData.Seek(0,soFrombeginning);
27
ReadDebugMessageFromStream(Srv.MsgData,MSg);
28
Write(FormatDateTime('hh:nn:ss.zzz',Msg.MsgTimeStamp),': ');
29
Write(DebugMessageName(MSg.MsgType):12,' ');