VB6 - 如何通过 .tlb 文件将字符串传递到用 C 编写的 DLL

Question

我正在开发一个用 VB6 编写的图形界面，我必须调用用 C 编写的某个 DLL 中包含的函数。由于 已知限制 我必须实施一个技巧 允许我以隐式方式加载这个 DLL。

可以创建一个 IDL 文件，使用 MIDL 对其进行编译，并在 VB6 项目中引用生成的 .tlb 文件。

问题是 VB6 字符串和 C 字符数组不匹配，因此我无法将它们传递（并返回）到 DLL。

C函数的原型是：

int __stdcall myFunc(char filename_in[], char filename_out[], char ErrMsg[]);

我应该在IDL文件中写什么以及如何调用它VB6？

谢谢。

Answer 1

您必须使用 BSTR 才能使用 VB6 兼容字符串。它是标准的COM字符串类型，它以utf-16编码存储Unicode字符串，就像Win32 api一样。

 int __stdcall myFunc(BSTR filename_in, BSTR filename_out, BSTR* ErrMsg);

您可以将 in args 直接转换为 WCHAR*，如果需要转换为 char*（最好避免），请使用 WideCharToMultiByte()。如果 *ErrMsg 不为 null，请使用 SysFreeString 在分配现有字符串之前将其释放。使用SysAllocString 分配ErrMsg 字符串。它也必须是 utf-16 字符串，如果需要再次从 char* 转换，可以使用 MultiByteToWideChar()。或者使用以 L 为前缀的字符串文字，例如 L"Oops"。

Answer 2

VB6 使用带有 ANSI 字符串参数的 stdcall 函数没有问题。只需在 IDL 中使用 [in] LPSTR filename_in ，运行时就会自动进行 UNICODE<->ANSI 转换。

“魔法”也适用于 [out] 参数。

Answer 3

感谢 GSerg 和 wqw< /a> 我找到了这个问题的解决方案：

在 IDL 文件中，字符数组应声明为 LPSTR，因此函数的原型如下所示：

int _stdcall myFunc(LPSTR file_name_in, LPSTR file_name_out, LPSTR ErrMsg)< /code>

请注意，ErrMsg 的声明与其他数组完全相同，即使它包含输出消息（在 VB6 端可读）。

在 VB6 端，字符串应分配为：

Dim file_name_in As String * 256
Dim file_name_out As String * 256
Dim ErrMsg As String * 256

这样做，这些字符串的分配大小有限为 256，从而与 C DLL 中的字符数组兼容。

希望这会帮助别人。

问候，

GB