program $PRJNAME;

{$APPTYPE CONSOLE}
{#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove!

uses
  uROComInit,
  uROServer,
  $MESSAGEUNIT, 
  $SERVERUNIT;

{$R *.res}
{$R RODLFile.res}

var 
  ROMessage: TRO$MSGCLSNAME;
  ROServer: TRO$SRVCLSNAME;
begin
  Writeln('RemObjects SDK for Delphi - Command Line Server');
  ROMessage := TRO$MSGCLSNAME.Create(nil);
  ROServer := TRO$SRVCLSNAME.Create(nil);
  TROMessageDispatcher(ROServer.Dispatchers.Add).Message := ROMessage;
  try
    ROServer.Active := true;
    WriteLn('Server is active, press Enter to stop.');
    Readln;
  finally
    ROServer.Free;
    ROMessage.Free;
  end;
end.