VC++调用DELPHI的DLL方法,参数为pchar,如何将VC++中的char*传递给pchar

admin

在VC++中调用Delphi DLL时，如果Delphi方法接受PChar（即char*或const char*）类型的参数，你可以直接传递一个char*类型的指针。Delphi的PChar与C++的char*在内存布局和调用约定上是兼容的。

以下是一个简单的例子：

Delphi DLL 方面：

1. library DelphiDLL;
   
2. 
   
3. uses
   
4.   SysUtils;
   
5. 
   
6. procedure ShowMessage(Text: PChar); stdcall;
   
7. begin
   
8.   MessageBox(0, Text, 'Delphi', MB_OK);
   
9. end;
   
10. 
    
11. exports
    
12.   ShowMessage;
    
13. 
    
14. begin
    
15. end.

复制代码

VC++ 调用方面：

1. #include <Windows.h>
   
2. #include <iostream>
   
3. 
   
4. typedef void (*ShowMessageProc)(const char* Text);
   
5. 
   
6. int main() {
   
7.     HINSTANCE hInst = LoadLibrary("DelphiDLL.dll");
   
8.     if (hInst) {
   
9.         ShowMessageProc ShowMessage = (ShowMessageProc)GetProcAddress(hInst, "ShowMessage");
   
10.         if (ShowMessage) {
    
11.             const char* message = "Hello from VC++";
    
12.             ShowMessage(message);
    
13.         } else {
    
14.             std::cerr << "Failed to get function address." << std::endl;
    
15.         }
    
16.         FreeLibrary(hInst);
    
17.     } else {
    
18.         std::cerr << "Failed to load library." << std::endl;
    
19.     }
    
20.     return 0;
    
21. }

复制代码

在这个例子中，Delphi DLL 提供了一个ShowMessage过程，它接受一个PChar参数。在VC++程序中，我们通过LoadLibrary加载DLL，然后使用GetProcAddress获取函数指针，并将char*类型的变量传递给它。

确保DLL的名称（在LoadLibrary调用中）与实际的DLL文件名匹配，并且DLL已经正确地被安装到了系统上，可能在DLL所在的目录，或者在系统的搜索路径中。