VC调用Delphi DLL

别的没什么，是一定可以调用成功的。但是意外的是，ShowMessage函数在DLL里也可以轻易被调用。此外，Delphi里的var 相当于VC里的引用，需要在函数原型里正确标识，否则传递普通变量甚至常量是不行的。

VC++代码：

// callDLL.cpp : Defines the entry point for the console application.

//

#include "stdafx.h"

#include "windows.h"

int main(int argc, char* argv[])

{

    printf("Hello World!\n");

    double a=10.4;

    HINSTANCE hDllInst = LoadLibrary("fonctionMathematique.DLL");

    if(hDllInst)

    {

        typedef double (cdecl *MYFUNC)(double, double, double&); // 函数原型

        MYFUNC fun1 = NULL; // 函数别名

        // fun1 = (MYFUNC)GetProcAddress(hDllInst,"_AddD"); // 函数名称

        fun1 = (MYFUNC)GetProcAddress(hDllInst,"_AddDouble"); // 在DLL中声明的函数名

        if(fun1)

        {

            // printf("%f\n",fun1(5.3));

            printf("%f\n",fun1(1.1, 5.2, a));

            printf("%f\n",a);

        }

        FreeLibrary(hDllInst);

    }

    return ;

}

Delphi代码（代码太多，只列举关键函数实现部分）：

 function _AddDouble(iVarA: Double; iVarB: Double; var iResult:Double):Double; cdecl; export;

 begin

   ShowMessage(FloatToStr(iVarA));

   iResult:=iVarA+iVarB;

   result:=iResult;

 end;

 function _AddD(a: double): double; cdecl;

 begin

    result:=a+10.1;

 end;

另外，VC里可能默认使用cdecl方式。我没写传递方式就可以成功调用。

Fun1

VC调用Delphi DLL