Come restituire un codice di errore con Halt (n) da un blocco Exception con D2007?

Question

Aggiornamento: Sembra essere specifico per D2007. Funziona in D2010 come ha funzionato nella versione precedente.

Vorrei restituire un codice di uscita a seconda del tipo di eccezione catturato nel blocco Eception Handler come:

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. 

Purtroppo in D2007, chiamando Halt (n) da un blocco di eccezione restituisce sempre un codice di uscita 1, indipendentemente da ciò che si passa a Halt().

apparentemente perché uscendo da un gestore di eccezioni chiamate Finalizza, che cancella le eccezioni in sospeso (non rinunciare), chiamando SysUtils.ExceptHandler:

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

E non importa quello che il codice di uscita che volevo l'ho capito Halt(1)!

Quindi la domanda è:
Come posso semplicemente restituire il codice di uscita desiderato a seconda di quale eccezione è stata sollevata?

Answer 1

Questo lavoro funzionerà?

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 questo?

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

In ogni caso: it's a bug in D2007, which was fixed in D2010.

Answer 2

In realtà ... sembra funzionare come previsto ....

Ho usato il codice ...

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. 

compilata in in Delphi 5, poi corse in una finestra DOS sotto XP ...

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

C:\>echo %errorlevel% 
111 

C:\> 

Nota che DOS livelli di errore sono limitati alla gamma da 0 a 65535. Facendo eco% errorlevel% è il modo più veloce per vedere il livello di errore.

Non dimenticare che la lettura del errorlevel lo cancella.

Answer 3

Se si desidera interrompere immediatamente il programma senza alcuna pulizia e restituire un codice di uscita, provare a ExitProcess. Vedere l'articolo per alcuni avvertimenti sull'utilizzo di ExitProcess, però.

Answer 4

Se la funzione di gestione delle eccezioni built-in non fa quello che ti piace, allora sostituirlo con il proprio:

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

Assegna che alla variabile globale System.ExceptProc quando il programma si avvia:

ExceptProc := @ExitCodeExceptHandler; 

L'ho implementato per utilizzare la variabile globale ExitCode. Se è ancora al suo valore predefinito di 0, allora la funzione ritorna al comportamento originale di Delphi di uscire con 1, ma se il codice di uscita è già stato impostato su qualcos'altro, allora questo si fermerà con quel valore. La prima cosa che fa Halt è la variabile globale ExitCode, quindi il tuo codice non dovrebbe richiedere ulteriori modifiche (anche se sceglierei un nome diverso per la variabile Exitcode). La vostra chiamata a Halt imposterà la variabile globale ExitCode e quindi procederà a chiudere il programma. Il gestore delle eccezioni noterà che ExitCode è già impostato e richiamare Halt con quel valore anziché 1.

Answer 5

Utilizzando battuta d'arresto (I) genera perdite di memoria (si può vedere che se è stata attivata la MemoryLeaks FastMM con ReportMemoryLeaksOnShutdown: = true;)

è molto meglio usare un Exit "Clean" e impostare ExitCode prima di uscire .

In una sezione principale di una console app per esempio:

ExitCode:=I; 
exit;