Delphi中调用C约定不定参数函数的调用方法.

Delphi支持C约定的调用Cdecl大家都是知道的.最近一个朋友说C中不确定参数的函数Delphi中无法调用.其实Delphi支持内嵌汇编,这样任何函数约定都可以 调用的.

我做了一个例子,选取的函数是NtDll中的DbgPrint函数.这个函数在C中的原型

ULONG  DbgPrint(    IN PCHAR  Format,    . . . .  [arguments]    );

是典型的C约定,不确定参数的函数.

Delphi中确实没有可以直接调用的约定方式.但是Delphi本身也支持一种不确定参数的调用方式就是array of const参数.只要稍加变通就行了.

先要声明DbgPrint函数.因为我们是内嵌汇编方式调用的,参数是汇编压栈,恢复现场的.所以参数部分无需声明出来,约定也无所谓.我这里就先暂定给Stdcall约定了.

代码我也不想在解释了,就加了详细的注释

function __DbgPrint : Integer; stdcall; external 'ntdll.dll' name 'DbgPrint';

function DbgPrint(Format : PChar; Args : array of const) : Cardinal; stdcall;type  //这个类型的定义纯属是为了取Int64的高位和低位方便的.  LARGE_INTEGER = record    case Integer of      0 : (        LowPart : DWORD;        HighPart : Longint);      1 : (        QuadPart : LONGLONG);  end;  PLARGE_INTEGER = ^LARGE_INTEGER;var  LI, LJ                                : Integer;  LArgs                                 : array[0..63] of Cardinal;  LInt                                  : LARGE_INTEGER;  I                                     : Integer;begin  Result := 0;  LJ := 0;  //把参数整理到本地数组LArgs中  for LI := 0 to High(Args) do    begin      with Args[LI] do        begin          if VType = vtInteger then     //整数            LArgs[LJ] := VInteger          else            if VType = vtBoolean then   //Boolean            LArgs[LJ] := Cardinal(VBoolean)          else            if VType = vtChar then      //Char            LArgs[LJ] := Cardinal(VChar)          else            if VType = vtPChar then     //PChar类型            LArgs[LJ] := Cardinal(VPChar)          else            if VType = vtPointer then   //指针            LArgs[LJ] := Cardinal(VPointer)          else            if VType = vtAnsiString then //字符串            LArgs[LJ] := Cardinal(VAnsiString)          else            if VType = vtInt64 then     //Int64,Int64是拆分成高位和低位,送进参数的            begin              LInt.QuadPart := VInt64^;              LArgs[LJ] := Cardinal(LInt.LowPart);              Inc(LJ);              LArgs[LJ] := Cardinal(LInt.HighPart);            end          else            LArgs[LJ] := $DEADBEEF;        end;      Inc(LJ);    end;

  asm      lea eax,LArgs            //把参数数组地址装入Eax      mov ecx,LJ               //把参数个数装入Ecx      test ecx,ecx             //检测参数个数是不是0      jl @Exit_Loop     @args_loop:               //循环把参数压入栈中      mov edx,ecx      dec edx      push dword ptr [eax+4*edx]     @cmp_args_end:      dec ecx      jnz @args_loop     @Exit_Loop:                //循环结束点      push Format               //压入格式字符串      call __DbgPrint           //调用__DbgPring                                //C调用约定要由调用方回复堆栈平衡      mov ecx,LJ                //参数个数给Ecx      shl ecx,002h              //参数都是4字节,所以把Ecx乘4      add ecx,004h              //再加上Format指针的4个字节      add esp,ecx               //栈顶指针加ECX,也就是回复栈      mov Result,eax            //结果  end;

end;

调用方式:

var  I                                     : Int64;begin  I:=900000000;  DbgPrint('你的名字是:%s;数字:%d;再来一个Int64的:%I64d', ['王锐',1,I]);

end;

执行之后就可以在Delphi的Event Log窗口看到输出调试的信息了.