Systemd Journal mit sd_journal_send

[KodeZwerg]

Ich habe auch mal ChatGPT gefragt, da ich kein Linux habe kann ich es nicht testen aber die definition ist zu Deiner Unterschiedlich

Delphi-Quellcode:

program JournalSendExample;

{$APPTYPE CONSOLE}

uses
  SysUtils, libsystemd;

function _sd_journal_send(format: PAnsiChar; args: array of const): Integer; cdecl; external 'systemd' name 'sd_journal_send';

procedure LogToJournal(const message: string);
begin
  _sd_journal_send('MESSAGE=%s', [message]);
end;

var
  input: string;
begin
  Write('Enter a log message: ');
  Readln(input);

  try
    LogToJournal(input);
    Writeln('Log message sent to journal.');
  except
    on E: Exception do
      Writeln('Error sending log message: ', E.Message);
  end;

  Readln;
end.