program SimpleServer;
{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}
{$APPTYPE CONSOLE}
{#ROGEN:NewLibrary.rodl} // RemObjects: Careful, do not remove!

uses
  uROComInit,
  uROServer,
  uROBinMessage,
  uROIndyHTTPServer,
  Classes,
  NewLibrary_Intf in 'NewLibrary_Intf.pas',
  NewLibrary_Invk in 'NewLibrary_Invk.pas',
  NewService_Impl in 'NewService_Impl.pas';

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

var
  ROMessage: TROBinMessage;
  ROServer: TROIndyHTTPServer;
begin
  Writeln('RemObjects SDK for Delphi - Command Line Server');
  ROMessage := TROBinMessage.Create(TComponent(nil));
  ROServer := TROIndyHTTPServer.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.