freepascal.compiler/fcl/tests/dbugsrv.pp

program dbugsrv;

{$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.