Delphi 调用VC生成的DLL

extern "C"
{
  _declspec(dllexport) int getPPLength();
  _declspec(dllexport) int npn(int m, int n);

}

int getPPLength()
{
  return 5* 12;
}

int npn(int m, int n) {
    int sum;
    sum = (m-1) * (n-1);
    return sum;
    //return 100;
}

编译生成 DLL 文件。
2。 在Delphi 中申明
function getPPLength:Integer;cdecl; external 'dll.dll';
function npn(m:integer;n:Integer):Integer;cdecl; external 'dll.dll';

即可。
注意：这里我是用 cdecl 参数调用方式！

转载于:https://www.cnblogs.com/weinyzhou/archive/2012/10/22/2750048.html