我正在使用VB6创建一个ActiveX EXE,我得到的唯一例子都是用Delphi编写的.
阅读示例代码,我注意到有一些函数的签名后跟safecall关键字.这是一个例子:
function AddSymbol(ASymbol: OleVariant): WordBool; safecall;
这个关键字的目的是什么?
Safecall从左到右传递参数,而不是从左到右传递pascal或寄存器(默认)
使用safecall,过程或函数在返回时从堆栈中删除参数(如pascal,但不像cdecl那样由调用者决定)
Safecall实现了异常"防火墙"; esp on Win32,这实现了进程间COM错误通知.否则它将与stdcall(与win api一起使用的另一个调用约定)相同
此外,异常防火墙通过使用支持IErrorInfo的对象调用SetErrorInfo()来工作,以便调用者可以获得有关异常的扩展信息.这是通过TComObject和TAutoIntfObject中的TObject.SafeCallException覆盖来完成的.这两种类型都实现了ISupportErrorInfo来标记这一事实.
如果发生异常,safecall方法的调用者可以查询ISupportErrorInfo,然后查询其方法导致HRESULT(高位设置)失败的接口,如果返回S_OK,则GetErrorInfo()可以获取异常信息(描述,帮助等,以IErrorInfo实现的形式,由SafeCallException覆盖中的Delphi RTL 传递给SetErrorInfo().