delphi调用vc写的dll的方法

1. 在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 参数调用方式！

 

 

设有以下三个变量：
var
  s:string;
  p:pchar;
  a:array[1..20] of char;
那么三者之间的转换如下：
1、字符串到PChar
    p:=PChar(s);
2、PChar到字符串
    s:=p;
3、PChar到字符数组
    StrCopy