¿Cómo devolver un código de error con Alto (n) desde un bloque de Excepción con D2007?

Question

Actualización: Parece ser específico para D2007. Funciona en D2010 como si funcionó en una versión anterior.

me gustaría devolver un código de salida en función del tipo de excepción detectada en el bloque eception Handler como:

program test; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    Exitcode: Integer; 
begin 
    Writeln('Enter error code:'); 
    Readln(Exitcode); 
    try 
    raise EExternal.Create('sdsdkfjh'); 
    except 
    on E:EExternal do 
    begin 
     Writeln(E.Classname, ': ', E.Message); 
     Halt(Exitcode); 
    end; 
    end; 
end. 

Por desgracia, en D2007, llamando Halt (n) a partir de un bloque de excepción siempre devuelve un código de salida 1, pase lo que pase a Halt().

Al parecer debido a la salida de un controlador de excepciones llamadas Finalizar, que borra las excepciones pendientes (no renunciar), llamando SysUtils.ExceptHandler:

procedure ExceptHandler(ExceptObject: TObject; ExceptAddr: Pointer); far; 
begin 
    ShowException(ExceptObject, ExceptAddr); 
    Halt(1); // <= @#$##@#$! 
end; 

Y no importa lo que el código de salida que quería consigo que Halt(1)!

Así que la pregunta es:
Como puedo devuelva el código de salida deseada dependiendo de la excepción fue levantado?

Answer 1

¿Funcionará?

NeedHalt := False; 
try 
    raise EExternal.Create('sdsdkfjh'); 
except 
    on E:EExternal do 
    begin 
    Writeln(E.Classname, ': ', E.Message); 
    NeedHalt := True; 
    end; 
end; 
if NeedHalt then 
    Halt(Exitcode); 

¿o este?

try 
    raise EExternal.Create('sdsdkfjh'); 
except 
    on E:EExternal do 
    begin 
    Writeln(E.Classname, ': ', E.Message); 
    AcquireExceptionObject; 
    Halt(Exitcode); 
    end; 
end; 

Anyway: it's a bug in D2007, which was fixed in D2010.

Answer 2

En realidad ... parece que funciona como se esperaba ....

he utilizado el código ...

program test1; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    Exitcode: Integer; 
begin 
    Writeln('Enter error code:'); 
    Readln(Exitcode); 
    try 
    raise EExternal.Create('sdsdkfjh'); 
    except 
    on E:EExternal do 
    begin 
     Writeln(E.Classname, ': ', E.Message); 
     Halt(Exitcode); 
    end; 
    end; 
end. 

compilada en en Delphi 5, y luego corrió en una ventana DOS en XP ...

C:\>test1 
Enter error code: 
111 
EExternal: sdsdkfjh 

C:\>echo %errorlevel% 
111 

C:\> 

Tenga en cuenta que los niveles de error de DOS están restringidos a un rango de 0 a 65535. Haciéndose eco% errorlevel% es la forma más rápida para ver el nivel de error.

No olvide que leer el errorlevel lo borra.

Answer 3

Si desea cancelar inmediatamente el programa sin ningún tipo de limpieza y devolver un código de salida, intente ExitProcess. Sin embargo, ver el artículo para algunas advertencias sobre el uso de ExitProcess.

Answer 4

Si la función de control de excepciones incorporada no hace lo que le gusta, entonces sustituirlo por el suyo propio:

function ExitCodeExceptHandler(ExceptObject: TObject; ExceptAddr: Pointer); 
begin 
    ShowException(ExceptObject, ExceptAddr); 
    if ExitCode = 0 then 
    ExitCode := 1; 
    Halt(ExitCode); 
end; 

Asignar a la que System.ExceptProc variable global cuando el programa comienza:

ExceptProc := @ExitCodeExceptHandler; 

Lo he implementado para usar la variable global ExitCode. Si todavía está en su valor predeterminado de 0, la función vuelve al comportamiento Delphi original de salir con 1, pero si el código de salida ya se ha establecido en otra cosa, se detendrá con ese valor. Lo primero que hace Halt es establecer la variable global ExitCode, por lo que su código no debería necesitar más cambios (aunque elegiría un nombre diferente para la variable Exitcode). Su llamada al Halt configurará la variable global ExitCode y luego procederá a cerrar el programa. El manejador de excepciones notará que ExitCode ya está configurado y vuelve a llamar al Halt con ese valor en lugar de 1.

Answer 5

Usando alto (I) genera pérdidas de memoria (puede ver que si habilitó las MemoryLeaks FastMM con ReportMemoryLeaksOnShutdown: = true;)

Es mucho mejor usar una salida "limpia" y establecer ExitCode antes de salir .

En una sección principal de una aplicación de consola, por ejemplo:

ExitCode:=I; 
exit;