Ereignisprotokoll per E-mail senden

[tobiasw]

hi

ich möchte gerne das mein Prog das Ereignisprotokoll per E-Mail an mich sendet.

Der folgende Code zeigt wie ich das Ereignisprotokoll löschen kann

Delphi-Quellcode:

function PE_ClearEventLogNow(pEventLogKey: PChar):Integer;
 var
  hLog: THandle;
  NumberOfRecords: DWord;
begin
  Result := -1;

  {*** Eventlog oeffnen ***}
  hLog   :=  OpenEventLog(NIL, pEventLogKey);
  if hLog <> INVALID_HANDLE_VALUE then
  begin
    {*** Anzahl der Eintraege ermitteln ***}
    GetNumberOfEventLogRecords(hLog, NumberOfRecords);

    {*** Eintraege loeschen! ***}
    if not ClearEventLog(hLog, NIL) then 
    begin
      CloseEventLog(hLog);
      Exit;
    end;

    {*** EventLog schliessen ***}
    CloseEventLog(hLog);
    Result := 0;
  end;
end;

Wie kann ich das am besten realisieren

Gruß

[fkerber]

Hi!

Für Email etc. kann ich die Indys empfehlen: [google]"Indy Project"[/google]
Gibt auch Demos dazu und einiges hier im Forum.


Ciao Frederic

[SirThornberry]

Wenn ich in der Hilfe unter OpenEventLog schaue dann ist ganz unten in der Hilfe ein "See Also"

Zitat:

See Also

ClearEventLog, CloseEventLog, GetNumberOfEventLogRecords, GetOldestEventLogRecord, ReadEventLog, ReportEvent

und unter "ReadEventLog" findet sich folgendes

Zitat:

The ReadEventLog function reads a whole number of entries from the specified event log. The function can be used to read log entries in forward or reverse chronological order.