Fehlermeldung des Dienstes in die Log-Datei

[sunshineh]

Hi,
wie kann ich die Fehlermeldung, die bei einer VCL-Anwendung in einer Message-Box angezeigt wird, abfangen und in meine Log-Datei schreiben?
Gruß und Danke!

[nahpets]

Hallo,

dort wo Du die Messagebox anzeigst halt sowas in der Art:

Delphi-Quellcode:

AssignFile(f,'LogFileName'); 
If FileExists('LogFileName') Then Append(f) Else ReWrite(f); 
WriteLn(f,DateToStr(Now) + ' ' + TimeToStr(Now) + ' ' + 'Steht hier jetzt der Text oder die Variabel, die sonst in der Messagebox angezeigt wird.'); 
CloseFile(f);

[sunshineh]

Sorry, ich hab mich falsch ausgedrückt!

Wenn ich eine VLC-Anwendung debugge, bekomme ich Fehlermeldungen wie z.b. E/A-Fehler Nr..., die hab ja nicht ich geschrieben. Diese möchte ich mir gerne anzeigen lassen.

[nahpets]

Hallo,

Du meinst dann vermutlich sowas:

Delphi-Quellcode:

Try
  ...
Except
  on e : Exception do begin
    AssignFile(f,'LogFileName'); 
    If FileExists('LogFileName') Then Append(f) Else ReWrite(f); 
    WriteLn(f,DateToStr(Now) + ' ' + TimeToStr(Now) + ' ' + e.Message); 
    CloseFile(f);
  end;
end;

[Klaus01]

Guten Abend,

vielleicht ist dann auch dieser Thread (UErrorLog) interessant für Dich?

Grüße
Klaus