Delphi 的 Eception 机制浅探分析和总结.docx

Delphi的Exception机制浅探

savetime2k@2004.4.24

目录

===============================================================================

⊙

===============================================================================

本文排版格式为：

正文由窗口自动换行；所有代码以80字符为边界；中英文字符以空格符分隔。

(作者保留对本文的所有权利，未经作者同意请勿在在任何公共媒体转载。)

===============================================================================

问题

===============================================================================

EXCEPTION_DISPOSITION cdecl_except_handler(struct_EXCEPTION_RECORD*ExceptionRecord,void*EstablisherFrame,

struct_CONTEXT*ContextRecord,void*DispatcherContext

);

/*

*Exceptiondispositionreturnvalues.

*/

typedefenum_EXCEPTION_DISPOSITION{ExceptionContinueExecution,ExceptionContinueSearch,ExceptionNestedException,ExceptionCollidedUnwind

}EXCEPTION_DISPOSITION;

Exception是线程相关的

{$IFDEFPIC}

{$IFDEFPC_MAPPED_EXCEPTIONS}

RaiseExceptionProc:=@RaiseException;被执行了两次_StartExe，initialization

中都有

正文

===============================================================================

数据结构

===============================================================================

cContinuable =0;

cNonContinuable =1;

cUnwinding =2;

cUnwindingForExit =4;

cUnwindInProgress =cUnwindingorcUnwindingForExit;cDelphiException =$0EEDFADE;

cDelphiReRaise =$0EEDFADF;cDelphiExcept =$0EEDFAE0;

cDelphiFinally=$0EEDFAE1;cDelphiTerminate=$0EEDFAE2;cDelphiUnhandled=$0EEDFAE3;cNonDelphiException=$0EEDFAE4;cDelphiExitFinally=$0EEDFAE5;

cCppException =$0EEFFACE;{usedbyBCB}EXCEPTION_CONTINUE_SEARCH =0;

EXCEPTION_EXECUTE_HANDLER =1;

EXCEPTION_CONTINUE_EXECUTION=-1;

JmpInstruction=packedrecordopCode: Byte;

distance:Longint;end;

TExcDescEntry=recordvTable: Pointer;handler:Pointer;

end;

PExcDesc=^TExcDesc;

TExcDesc=packedrecordjmp:JmpInstruction;caseIntegerof

0: (instructions:array[0..0]ofByte);

1{...}:(cnt:Integer;excTab:array[0..0{cnt-1}]ofTExcDescEntry);end;

PExcFra