delphi编写的dll，vc++如何调用

Question

dll：
library Project1;
uses
  SysUtils,
  Classes;{$R *.res}function add(a,b:double):double;stdcall;
begin
result:=a+b;
end;begin
end.
vc++中如何调用上面的dll，谢谢

Answer 1

double WINAPI add(double a, b);

Answer 2

VC需要lib文件，你可以借助工具生成，要不就动态加载好了,用loadlibrary加载，

Answer 3

typedef double (WINAPI *Cadd)(double a, double b);
HMODULE h = 0;
h = ::LoadLibrary(TEXT("Project1.dll"));
if (NULL != h)
{
Cadd add = (Cadd)(::GetProcAddress(h, ("add")));
double a = add(3.2, 2.3);
CString str;
str.Format(TEXT("%2.2f"), a);
AfxMessageBox(str);
}
::FreeLibrary(h);