Untitled

program InvoiceDaemon;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure GenerateInvoice(const Args: string);
begin
  // Your invoice generation logic
  Writeln('Generating invoice with arguments: ', Args);
end;

procedure ProcessInput(const Input: string);
begin
  if Input <> '' then
  begin
    // Call your invoice generation logic
    GenerateInvoice(Input);
  end
  else
  begin
    Writeln('No input provided. Waiting for new input...');
  end;
end;

var
  UserInput: string;
  Running: Boolean;
begin
  try
    Running := True;

    // Loop to keep the program running and listening for input
    while Running do
    begin
      // Ask for input (for example, from the console)
      Writeln('Enter arguments for invoice generation (or type "exit" to quit):');
      Readln(UserInput);

      if LowerCase(UserInput) = 'exit' then
      begin
        Running := False;  // Break the loop if the user enters "exit"
        Writeln('Shutting down the daemon...');
      end
      else
      begin
        // Process the input
        ProcessInput(UserInput);
      end;

      // Optional: Add a delay or wait for an event to avoid high CPU usage
      Sleep(100);  // Sleep for 100ms to allow other tasks to run
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.