c++ - 从 Visual C++ 调用 Delphi DLL

Question

我有在 Delphi 中编译的 DLL 文件，导出为 __stdcall 的函数，以及函数描述 txt 文件。我没有任何源代码。

我将在 visual studio c++ 项目中使用这个 DLL。 Google 说需要使用 LoadLibrary + GetProcAddress ，但是如果导出的函数声明为 __stdcall，GetProcAddress 返回 NULL，即我不能用它的名字调用函数。其他人推荐使用 .def 文件，但是我不知道什么是.def文件，生成.def文件需要什么，如果我的情况可以使用这种方式，请详细描述。

QA:如何调用这些导出函数？

这里贴出我的main.cpp文件，dll名和函数名特地改了

#include <Windows.h>
#include <tchar.h>
#include <cassert>
#include <cstdio>


int main()
{
    //foo(80, 127);
    HMODULE hLib;
    hLib = LoadLibrary( _T("MyDLL.dll") );

    assert(hLib != NULL ); // pass !!


    int ( __stdcall *pFoo)(int, int);
    (FARPROC &)pFoo = GetProcAddress(hLib, _T("foo") );

    if (pFoo== NULL )
    {
        DWORD errc = GetLastError();
        printf("%u\n",errc); // it gets error 127

    }else{
        printf("success load\n");
    }
//  pFoo(04,1);

    FreeLibrary(hLib);
    return 0 ;
}

Answer 1

首先，我建议您停止使用tchar.h、_T 等。这在您需要针对Windows 98 进行编译时非常有用。但现在是2014 年和您肯定会忘记 Windows 98 曾经存在过。因此，为 UNICODE 编译您的应用程序，并为宽文字使用 L"..."。

当然，GetProcAddress 只接收 8 位文本。所以您当前的代码不正确。不得将 _T("...") 用作 GetProcAddress 的函数名参数。 documentation明确了这一点。

由于您的代码可以编译，因此您必须针对 ANSI 或 MBCS 进行编译。如果 GetProcAddress 返回 NULL，则 DLL 显然不会导出具有您提供的名称的函数。一些可能的原因:

1. 您没有导出函数。
2. 您导出了函数但不是用那个名称。请注意，虽然 Delphi 不区分大小写，但 DLL 函数导入/导出区分大小写。也许您导出了 Foo 而不是 foo。

将与您问题中的代码一起使用的简单 DLL:

library MyDLL;

function foo(a, b: Integer): Integer; stdcall;
begin
  Result := a + b;
end;

exports
  foo;

end.

请注意，简单的 .def 文件与此处无关。 Delphi 不使用 .def 文件。而且调用约定也不相关。 Delphi 用于导出函数的名称不受调用约定的影响。