RaiseException abfangen

[brechi]

und zwar geht es mir um folgendes ;P

Delphi-Quellcode:

  try
     RaiseException($C0000003,0,0,nil);
  except
  end;

das try except sollte normalerweise dsa RaiseException abfangen
leider klappt das nicht und in assembler bekomm ich das auch nicht wieder richtig hin :/

vielleicht kennt einer ne lösung wie RaiseException aufrufen kann aber keine fehlermeldung kommt

[tigerman33]

Du musst dem try..except schon noch sagen welche exceptions er abfangen soll. Alle, die nicht aufgeführt sind, werden an den nächsthöheren exception-handler weitergegeben.

Delphi-Quellcode:

try
  ...
except
  on EListError do
    Irgendwas;
end;

Warum willst du überhaupt eine exception schmeißen, wenn du sie dann sofort wieder abfängst? Der einzige Grund, den ich dafür sehen könnte, ist dass du ein bestimmtes Verhalten des Programms erreichen willst, nämlich so als ob der entsprechende Fehler aufgetreten sei. Das lässt sich aber ohne exception dann eleganter lösen.

[BlackJack]

kommt die fehlermeldung nur in der IDE, oder auch, wenn du die .exe selber aufrufst?
und geht es denn, wenn du die VCL-Exception-kapselung benutz, also z.b.

Delphi-Quellcode:

raise Exception.Create;

?

[Flocke]

Zitat:

Zitat von tigerman33

Du musst dem try..except schon noch sagen welche exceptions er abfangen soll.

Nö, muss man nicht. Wenn man überhaupt kein on ... angibt, dann werden alle Exceptions abgefangen.

[Nachtrag]

Delphi-Quellcode:

try
  RaiseException($C0000003, 0, 0, nil);
except
  MessageDlg('Exception gefangen', mtInformation, [mbOk], 0);
end;

geht bei mir, da kriege ich den Info-Dialog.

[brechi]

hm ja in einer VCL anwendung geht des aber in einer konsolenanwendung nicht oO

[Flocke]

Hmmm :gruebel:
Das geht bei mir auch in einer nonVCL-Anwendung!

Delphi-Quellcode:

try
  RaiseException($C0000003, 0, 0, nil);
except
  MessageBox(Handle, 'Exception gefangen', 'Info', MB_ICONINFORMATION or MB_OK);
end;

[Nachtrag]
Achso: Kommandozeile :stupid: Muss ich noch mal ausprobieren...

[Olli]

Zitat:

Zitat von Flocke

Das geht bei mir auch in einer nonVCL-Anwendung!

Konsole ist zwar auch "nonVCL", benutzt ja nicht die VCL, aber mit nonVCL bezeichnet man nur graphische Programme - daher mußt du es wohl nochmal mit APPTYPE CONSOLE überprüfen.

Die einzelnen benutzten Delphiversionen wären interessant!

[Flocke]

Kommandozeile geht bei mir auch

Delphi-Quellcode:

try
  RaiseException($C0000003, 0, 0, nil);
except
  writeln('Exception gefangen');
end;

Alles mit Delphi 2005 Prof.

[brechi]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  windows;

begin
  try
    RaiseException($C0000003, 0, 0, nil);
  except
    writeln('Exception gefangen');
  end;
  readln;
end.

delphi7
das geht net! prog beendet sich sofort mit IDE und ohne kommt die exception

[Flocke]

Ich hatte gerade noch zwei Zeilen mehr geschrieben, ansonsten ist's aber identisch:

Delphi-Quellcode:

program cmdLine;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  writeln('Hier sind wir!');
  try
    RaiseException($C0000003, 0, 0, nil);
  except
    writeln('Exception gefangen');
  end;
  writeln('Und hier sind wir auch');
  readln;
end.

Ergebnis mit IDE (nach Fehlermeldung und klicken auf "Fortfahren"):

Code:

Hier sind wir!
Exception gefangen
Und hier sind wir auch

Ergebnis ohne IDE (ohne jede Fehlermeldung):

Code:

Hier sind wir!
Exception gefangen
Und hier sind wir auch