Exceptions speichern

[Tommy1988]

Aloha,

kann mir wer erklären, wie man auftretende Exceptions ("" is not a valid Integer-Value, usw)
speichern kann?

Ich habe schon selbst einiges probiert, doch klappt es nicht.

[Bernhard Geyer]

Zitat:

Zitat von Tommy1988

Ich habe schon selbst einiges probiert, doch klappt es nicht.

Was hast du probiert und was klappt nicht?

[Die Muhkuh]

Du könntest über TApplicationEvents.OnException die Fehler in eine Datei speichern.

[Tommy1988]

So in etwa dieses hier:

Delphi-Quellcode:

var
ex: Exception;
i: SmallInt;
begin
try
 i := StrToInt(Edit1.Text); // ich gib ne kommazahl ein, um ex zu erreichen
except
on ex: Exception do
 ShowMessage('Exception detected:' +#13+
 ex.message);
end;

Aber da gibts nix wie "SafeToFile" oder so :/

[Die Muhkuh]

Wie Du an die Nachricht dran kommst weißt Du, dann kannst die per TStringList, über TFileStream oder über AssignFile und Konsorten in eine Datei schreiben.

[Apollonius]

AcquireExceptionObject

[Tommy1988]

leider klappt momentan garnix :wall:

[Die Muhkuh]

Interessant, so kann das auch nicht klappen.

[shmia]

Zitat:

Zitat von Tommy1988

leider klappt momentan garnix

Erklär doch mal von Anfang an, was du überhaupt erreichen möchtest.
Mit Exceptions kann man nämlich Vieles anstellen.

[Tommy1988]

Naja, so gesehen möchte ich nur erreichen , dass ich zum schluss weis "wie man sowas macht"..

sry, hab seit 10 min frei ( :wall: ) und steh noch unter strom :feuerchen:

[Fussball-Robby]

Na, dann wollen wir mal nich so sein :wink:
Also, zuerst machst du dir ne Prozedur, in der die Fehler behandelt und gespeichert werden. Hier mal eine Idee:

Delphi-Quellcode:

procedure TForm1.AppException(Sender: TObject; E: Exception);
var
  FName: String;
  List: TStrings;
begin
  FName := ExtractFilePath(ParamStr(0)) + 'Errors.log';
  List := TStringList.Create;
  try
    with List do
    begin
      if FileExists(FName) then
        LoadFromFile(FName);
      Add('[' + DateToStr(Now) + ' / ' + TimeToStr(Now) + ']' + ' ' + E.Message);
      SaveToFile(FName);
    end;
  finally
    FreeAndNil(List);
    Application.ShowException(E);
    Application.Terminate;
  end;
end;

Wichtig: die Parameter müssen so bleiben!

Dann weist du deine Prozedur dem OnException-Ereignis zu:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;
end;

Und schon fertig :wink:

Mfg

[Die Muhkuh]

Autsch, warum Terminieren nach der Exception?

[shmia]

Zitat:

Zitat von Tommy1988

Naja, so gesehen möchte ich nur erreichen , dass ich zum schluss weis "wie man sowas macht"..

Exception Tutorial

[DeddyH]

Zitat:

Zitat von Die Muhkuh

Autsch, warum Terminieren nach der Exception?

Machst Du das nicht? :stupid:

[sirius]

@Fusballrowdy:
-Zur Vereinfachung gibt es noch TApplicationEvents, da kann man das einfach anklicken
-Was passiert mit Exceptions, welche direkt in der Funktion abgefangen werden (try..except..end) ?
-Wieso Terminate wurde ja schon gefragt.

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Die Muhkuh

Autsch, warum Terminieren nach der Exception?

Machst Du das nicht? :stupid:

Nein, ich hab nen kleinen Dialog, da kann der Benutzer entscheiden, ob er das Programm weiterlaufen lässt, neustartet oder terminiert. ;)

[DeddyH]

Den kenn ich schon :zwinker:

[Tommy1988]

Mh, ich erkläre mal schematisch was ich gemacht hatte:

stringlist erstellen
absichtlich einen fehler machen (double-wert einer integer-variablen zuweisen)
=> fehler kommt
=> => on ex: Exception do
ShowMessage('Exception detected:' +#13+
ex.message);
text := ex.Message; // hier war spätestens der fehler.

ich werde mir das tutorial mal verinnerlichen =)

[Fussball-Robby]

Zitat:

Zitat von sirius

Fusballrowdy

:warn: :mrgreen:
Terminate ist Quatsch, ja. Ich hab das vor einem halben Jahr oder so das letzte mal benutzt und jetzt nur ausm Kopf runtergetippt. Sorry :?

[Tommy1988]

Das mit dem Terminate ist ja aber schon seltsam .. egal.

Ich habs weggenommen.

Merci, ich verstehe diese ganze Sache jetzt .