try ... except

[MCQ]

Hi, ich hab in meine DLL gerade folgende Funktion eingebunden:

Delphi-Quellcode:

procedure ForceException;
var start,ende:DWORD;
    err:boolean;
begin
err:=false;
start:=GetTickCount;
try
DebugBreak;
except
 err:=true;
end;
ende:=GetTickCount;
if (start-ende>10) or not err then ExitProcess(0);
end;

die Try...Except-Anweisung sollte doch den Fehler der durch DebugBreak entsteht abfangen, aber irgendwie funktioniert genau das nicht. windows melde mir dauernd das ein fehler aufgetreten ist und beendet das Programm. Woran kann das liegen?

[Christian Seehase]

Moin MCQ,

wenn das in der IDE auftritt:
Tools\Debugger Optionen\Sprach-Exceptions
Checkbox: Bei Delphi-Exceptions anhalten deaktivieren.

(die Bezeichnungen könnten nicht ganz stimmen, da ich nur englisches Delphi habe)

[MCQ]

Nein, es passiert auch im Explorer :(

[dahead]

Vielleicht tritt der Fehler ja an anderer Stelle auf?
Um das zu prüfen, kannst du ja ein ShowMessage oder Beep in o. g. Prozedur verwenden. Dann siehst/hörst du, ob der Fehler daher kommt oder nicht.

[MCQ]

kommentiere ich aber die DebugBreak-Zeile aus, funktioniert alles wunderbar, also kann der fehler nur dort auftreten ... Ich weiss langsam echt nicht mehr weiter :(

[ste_ett]

Rufst du die von aussen auf?

Dann fehlt "stdcall;". :)

[MCQ]

das ist eigendlich eine interne funktion. Die funktion soll also nur aus der eigenen DLL aufgerufen werden.

[jfheins]

Bist du dir sicher, dass das except auch Breakpoint-Exceptions abfängt ?
In der Hilfe zu DebugBreak steht nämlich:

Zitat:

If the process is not being debugged, the function uses the search logic of a standard exception handler. In most cases, this causes the calling process to terminate because of an unhandled breakpoint exception.

[MCQ]

ich habs auch mit int 3 und division by sero probiert ... immer das selbe problem :(

[jfheins]

Läuft eigentlich ein Debugger ?

Ach, und was möchtest du machen ? :mrgreen: