VC++调用DELPHI中DLL函数，函数参数为记录，并为返回参数

admin

在VC++中调用Delphi编写的DLL，并且该DLL函数参数包含记录（在Delphi中称为结构体），你需要确保在两种语言中记录的布局是一致的。对于返回参数，如果记录是通过指针或引用返回的，你也需要正确处理。

以下是一个示例，展示了如何在Delphi中定义一个包含记录的函数，以及如何在VC++中调用它。

Delphi DLL

首先，在Delphi中定义你的DLL和记录：

1. library DelphiDLL;
   
2. 
   
3. uses
   
4.   SysUtils, Classes;
   
5. 
   
6. type
   
7.   TPerson = record
   
8.     Name: array[0..49] of Char;
   
9.     Age: Integer;
   
10.   end;
    
11. 
    
12. function GetPersonInfo(out Person: TPerson): Boolean; stdcall;
    
13. var
    
14.   // 假设这里有一些逻辑来填充Person记录
    
15. begin
    
16.   StrCopy(Person.Name, 'John Doe');
    
17.   Person.Age := 30;
    
18.   Result := True;
    
19. end;
    
20. 
    
21. exports
    
22.   GetPersonInfo;
    
23. 
    
24. begin
    
25. end.

复制代码

在上面的Delphi代码中，TPerson是一个记录，包含Name和Age两个字段。GetPersonInfo函数接受一个TPerson类型的out参数，用于返回信息。

VC++ 调用

在VC++中，你需要定义一个与Delphi记录相对应的结构体，并确保内存布局一致。然后，你可以调用DLL中的函数。

1. #include <windows.h>
   
2. #include <iostream>
   
3. #include <cstring>
   
4. 
   
5. // 定义与Delphi记录对应的C++结构体
   
6. struct TPerson {
   
7.     char Name[50];
   
8.     int Age;
   
9. };
   
10. 
    
11. // 定义DLL函数的类型
    
12. typedef BOOL (*GetPersonInfoProc)(TPerson* Person);
    
13. 
    
14. int main() {
    
15.     HINSTANCE hInst = LoadLibrary(TEXT("DelphiDLL.dll"));
    
16.     if (hInst != NULL) {
    
17.         GetPersonInfoProc GetPersonInfo = (GetPersonInfoProc)GetProcAddress(hInst, "GetPersonInfo");
    
18.         if (GetPersonInfo != NULL) {
    
19.             TPerson person;
    
20.             // 调用DLL函数
    
21.             if (GetPersonInfo(&person)) {
    
22.                 std::cout << "Name: " << person.Name << std::endl;
    
23.                 std::cout << "Age: " << person.Age << std::endl;
    
24.             } else {
    
25.                 std::cerr << "Failed to get person info." << std::endl;
    
26.             }
    
27.         } else {
    
28.             std::cerr << "Failed to get function address." << std::endl;
    
29.         }
    
30.         FreeLibrary(hInst);
    
31.     } else {
    
32.         std::cerr << "Failed to load library." << std::endl;
    
33.     }
    
34.     return 0;
    
35. }

复制代码

在上面的VC++代码中，我们定义了一个TPerson结构体，它与Delphi中的TPerson记录具有相同的字段和内存布局。然后，我们加载DLL，获取GetPersonInfo函数的地址，并调用它。通过传递TPerson结构体的地址作为参数，我们可以接收从DLL返回的信息。

请确保Delphi DLL的编译选项与VC++的调用方式兼容（例如，使用相同的调用约定，通常是stdcall）。此外，如果DLL和调用程序在不同的编译器或平台上编译，可能需要考虑结构体的字节对齐和填充问题。

最后，记得在编译和运行之前将DLL的路径设置为正确的位置，并确保DLL文件是可用的。