Delphi 系统[16]关键字和保留字 cdecl、pascal、stdcall、safecall、register、varargs - 调用约定 - 滔Roy

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; 