Delphi 系统[16]关键字和保留字 cdecl、pascal、stdcall、safecall、register、varargs - 调用约定
Delphi 系统[16]关键字和保留字 cdecl、pascal、stdcall、safecall、register、varargs - 调用约定
1、定义:
- cdecl :规定了从 C 或 C++ 编写的 DLL 中调用函数所必须遵守的规则。它可以将 C 或 C++ 中的数据类型转换为Delphi 的类型。
- pascal :规定参数从左向右传递。函数调用时要对所有的变量进行初始化,避免因异步线程调用而产生的错误,保留它是为了向下兼容。
- stdcall :规定参数从右向左传递。同时 stdcall 规定, 被调函数是大小写敏感的。在调用函数时,如果函数名中有一个字符的大小写出错,则该函数将调用失败。
- safecall :规定被 COM 调用的函数所必须遵守的规则。在编译时,safecall声明的函数被编译成与 COM 接口兼容的。
- register :Delphi 专用的函数调用协定,直接通过寄存器传递参数,因此传递速度非常块。register 关键字也被用来注册控件。
- varargs :标示了引用参数,它必须和 cdecl 关键字联用,表明允许调用的函数使用引用传递。
2、示例:
{ cdecl 它可以将C或C++中的数据类型转换为Delphi的. }
{ 例如 C++ 中的代码 }
int X(int i)
{
return i*2;
}
{ 如果这个函数被编译在Test.dll 中, 则用 Delphi 调用时必须使用如下方式 }
function X(i: Integer): Integer; Cdecl; external 'Test.dll';
--------------------------------------------------------------------------------------
{ pascal 对所有的变量初始化, 避免因异步线程调用而产生的错误.它是向下兼容的. }
function Test(I, J, K, L: Integer): Integer; pascal;
begin
Result := I * J * K * L;
end;
--------------------------------------------------------------------------------------
{ stdcall 必须在主调方和被调方之间形成配对.}
Library Test;
//被调方:
function Fun1(I, J, K, L: Integer): Integer; stdcall;
begin
Result := I * J * K * L;
end;
exports
Fun1;
begin
end.
//主调方:
function Fun1(I, J, K, L: Integer): Integer; stdcall; external 'Test.dll';
//注意:使用Stdcall关键字时, 被调函数是大小写敏感的
--------------------------------------------------------------------------------------
{ safecall 声明的函数被编译成COM接口兼容的. }
procedure Fun1(S: WideString); safecall;
{ 编译后: }
procedure Fun1(S: PAnsiString);
--------------------------------------------------------------------------------------
{ register 函数在被调用时可以在注册表内留下记录.它是向下兼容的.}
function Fun1(I, J, K, L: Integer): Integer; register;
begin
Result := I * J * K * L;
end;
//关键字还用于向控件库或是IDE 注册控件或是专家工具.
procedure Register;
begin
RegisterComponents('Sample', [TDemo]);
end;
--------------------------------------------------------------------------------------
{ varargs 标识了引用参数, 它必须和Cdecl关键字联用, 表明允许调用的函数使用引用传递. }
{ 这段代码从 C++ 的类库中引用了 Printf 函数,并允许按引用的方式传入参数 }
function printf(Format: PChar): Integer; cdecl; varargs;
3、其他说明:
创建时间:2021.08.12 更新时间: