Как вернуть код ошибки с помощью Halt (n) из блока Exception с D2007?

Question

Обновление: Это похоже на D2007. Он работает в D2010, как и в старой версии.

Я хотел бы вернуть код выхода в зависимости от типа Exception пойманного в блоке Eception Handler как:

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. 

К сожалению, в D2007, вызывающего Halt (п) от блока исключений всегда возвращаюсь Код выхода 1, независимо от того, что вы передадите, чтобы остановить().

Видимо, потому что выход из обработчика исключений не вызывает финализац, который очищает незавершенные (не являющихся Abort) Исключения, вызывая SysUtils.ExceptHandler:

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

И независимо от того, что код выхода я хотел я понимаю, что Halt(1)!

Так что вопрос:
Как я могу просто вернуть нужный код Выход в зависимости от того, который был поднят Exception?

Answer 1

Будет ли это работать?

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); 

Или это?

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

В любом случае: it's a bug in D2007, which was fixed in D2010.

Answer 2

... На самом деле, кажется, работает как задумано ....

Я использовал свой код ...

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. 

Составитель в в Delphi 5, а затем побежал в поле DOS под XP ...

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

C:\>echo %errorlevel% 
111 

C:\> 

Обратите внимание, что DOS Уровни ошибок ограничены в диапазоне от 0 до 65535. Вторя% ERRORLEVEL% это самый быстрый способ, чтобы увидеть уровень ошибок.

Не забывайте, что чтение уровня ошибки очищает его.

Answer 3

Если вы хотите немедленно прекратить выполнение программы без какой-либо очистки и вернуть код выхода, попробуйте ExitProcess. Тем не менее, см. Статью для нескольких предостережений об использовании ExitProcess.

Answer 4

Если встроенная функция обработки исключений не делать то, что вам нравится, а затем заменить его своим:

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

Assign, что к глобальной переменной System.ExceptProc при запуске программы:

ExceptProc := @ExitCodeExceptHandler; 

Я использовал его для использования глобальной переменной ExitCode. Если значение по умолчанию равно 0, функция возвращается к исходному поведению Delphi при выходе с 1, но если код выхода уже установлен на что-то еще, тогда это остановится с этим значением. Первое, что Halt делает, устанавливает глобальную переменную ExitCode, поэтому ваш код не нуждается в дополнительных изменениях (хотя я бы выбрал другое имя для переменной Exitcode). В вашем вызове Halt будет установлена ​​глобальная переменная ExitCode, а затем приступить к завершению работы программы. Обработчик исключений заметит, что ExitCode уже установлен и перезвон Halt с этим значением вместо 1.

Answer 5

Использование Halt (I) создает утечку памяти (вы можете увидеть, что если вы позволили MemoryLeaks FastMM с ReportMemoryLeaksOnShutdown: = True;)

Это гораздо лучше использовать «чистый» Выход и установить ExitCode перед выходом ,

В основной части консольного приложения, например:

ExitCode:=I; 
exit;