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 0;
}

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方式。我没写传递方式就可以成功调用。