EDivByZero ohne Sysutils fangen

[DeddyH]

Du meinst writeln(d);

[Neutral General]

Öhm.. ja, richtig!

[Win32.API]

Mit {$O-} wird nichts "wegoptimiert". Darum geht es hier aber auch nicht, es geht auch nicht darum, ob der Quelltext so Sinn macht oder nicht. Die Frage ist wieso verweigert der Exception-Handler den Dienst, wenn ich die Sysutils nicht einbinde.


Edit: Das Problem ist, dass die Exception geworfen wird, aber der Exception-Handler diese nicht fängt. Das Programm stürzt also ohne Sysutils ab (Projekt 1 funktioniert nicht mehr ...).

[himitsu]

Vermutlich weil die SysUtils nicht nur die Exceptionklassen bereitstellt, sondern auch noch so Einiges für die Exception-Behandlung initialisieren/einbinden.

Ohne SysUtils wird bei dieser Exception ein

Zitat:

Halt

ausgeführt und ein entprechender Fehlercode zurückgegeben (ans System).
Die Behandlung bricht also sofort ab und das war's dann, da die Exception unbehandelt bis in System durchgerauscht ist.

[gammatester]

Zitat von Win32.API:

Mit {$O-} Die Frage ist wieso verweigert der Exception-Handler den Dienst, wenn ich die Sysutils nicht einbinde.

Macht er doch gar nicht, er schreibt doch

Zitat:

Runtime error 200 at 00402482

Es ist halt nicht der aus Sysutils, sondern der, der default da ist (wenn Du VCL benutzt hast Du immer Sysutils).

[himitsu]

Delphi-Quellcode:

procedure RunErrorAt(ErrCode: Integer; ErrorAtAddr: Pointer);
begin
  ErrorAddr := ErrorAtAddr;
  _Halt(ErrCode);
end;

Ohne SysUtils ladet man dort und mit SysUtils wird stattdessen für bekannte Fehler die entsprechende Exception ausgelöst.

[Win32.API]

Zitat von gammatester:

Zitat von Win32.API:

Mit {$O-} Die Frage ist wieso verweigert der Exception-Handler den Dienst, wenn ich die Sysutils nicht einbinde.

Macht er doch gar nicht, er schreibt doch

Zitat:

Runtime error 200 at 00402482

Es ist halt nicht der aus Sysutils, sondern der, der default da ist (wenn Du VCL benutzt hast Du immer Sysutils).

Der Delphi interne Exception-Handler verschluckt die Exception und reicht sie nicht wie erwartet an meinen lokalen Handler weiter. Was ich sehr merkwürdig finde.

Zitat von himitsu:

Delphi-Quellcode:

procedure RunErrorAt(ErrCode: Integer; ErrorAtAddr: Pointer);
begin
  ErrorAddr := ErrorAtAddr;
  _Halt(ErrCode);
end;

Ohne SysUtils ladet man dort und mit SysUtils wird stattdessen für bekannte Fehler die entsprechende Exception ausgelöst.

DivByZero ist doch schon eine Exception wieso wird diese nicht weitergereicht? Im Klartext heißt das, dass ich keine Chance habe über einen lokalen Delphi-Exception-Handler diese Exception zu fangen?

[Bernhard Geyer]

Zitat von Win32.API:

DivByZero ist doch schon eine Exception wieso wird diese nicht weitergereicht? Im Klartext heißt das, dass ich keine Chance habe über einen lokalen Delphi-Exception-Handler diese Exception zu fangen?

Hast du der FPU/CPU auch gesagt das für dich DivByZero eine Exception ist?
Stichwort wäre hier: SetExceptionMask

[Win32.API]

IMHO initialisiert Delphi die FPU mit Exceptions. SetExceptionMask liegt leider in der Math.pas die Sysutils.pas importiert. Ein direktes Aufrufen von Set8087CW($1372) bringt aber leider auch keine Besserung.

[gammatester]

Zitat von Win32.API:

Im Klartext heißt das, dass ich keine Chance habe über einen lokalen Delphi-Exception-Handler diese Exception zu fangen?

Tip mal ExceptProc und drück F1, falls Du kein Delphi mit Onlinehilfe mehr hast, hier die Ausgabe von D6:

Zitat von Delphi Hilfe:

Points to the lowest-level RTL exception handler.

Unit System

Category exception handling routines

var ExceptProc: Pointer;

Description

ExceptProc handles unhandled exceptions (exceptions that have not been caught in the except portion of a try..except statement.) If your application has a TApplication object, it automatically catches exceptions and generates an OnException event (to which you can respond using either the application’s or a TApplicationEvents object’s OnException event handler). Thus, because the TApplication object catches the exceptions, they never reach the ExceptProc handler. However, even if you have a TApplication object, it does not catch exceptions generated during initialization and finalization. These are handled by ExceptProc.

You can hook into ExceptProc to change how unhandled exceptions are reported. To do so, save the contexts of ExceptProc before changing it to the address of your own exception handler. The first statement of your new exception handler must then reinstall the saved value of ExceptProc. In this way, the ExceptProc procedure becomes part of a chain of exception procedures, each of which is executed in reverse order of installation.

The procedure assigned to ExceptProc must have a signature such as the following:

procedure ExceptHandler(ExceptObject: TObject; ExceptAddr: Pointer);