从 C++ 传递 BSTR DLL 函数到 VB6 应用程序

Question

我的 VB6 应用程序中有以下代码：

Private Declare Function FileGetParentFolder Lib "Z-FileIO.dll" _
(ByVal path As String) As String

Output.AddItem FileGetParentFolder(FileText.Text)

输出是一个列表，FileText 是一个包含文件路径的文本字段。我的 C++ DLL 包含此函数：

extern "C" BSTR ZFILEIO_API FileGetParentFolder(Path p)
{
    try {
        return SysAllocString(boost::filesystem::path(p).parent_path().c_str());
    } catch (...) {
        return SysAllocString(L"");
    }
}

其中 Path 的类型定义为 LPCSTR。该参数完美地进入我的 DLL，但无论我尝试传回什么，VB6 应用程序都只显示垃圾。我使用 SysAllocStringByteLength 尝试了几种不同的方法，将 SysAllocString 参数转换为 LPCWSTR 和其他变体。要么我只看到字符串的第一个字母，要么我只看到带点的 Y，而不是真正的字符串。有谁知道创建有效 BSTR 并将其从 C++ 传递到 VB6 的真正方法是什么？

Answer 1

希望这将为您指明正确的方向。根据记忆...

VB6 在内部使用 COM BSTR（2 字节宽字符串），但在与外部 DLL 通信时，它使用单字节或多字节字符串。 （可能是 UTF-8，但我不太记得了。）您的 LPCSTR 的 Path typedef 是一个 ANSI 字符串，这就是您可以正确接收它的原因。您生成的返回值是一个宽字符字符串，但 VB 需要一个 ANSI 字符串。在返回之前，您需要使用 WideCharToMultiByte 来转换返回值。

VB 执行这种隐式转换似乎有点奇怪，但事实就是如此。 （据我所知。）

Answer 2

如果您坚持使用函数签名，那么您必须为 VB6 准备一个自定义类型库，其中包含此

[dllname("Z-FileIO.dll")]
module ZFileIO
{
    [entry("FileGetParentFolder")]
    BSTR FileGetParentFolder ([in] LPWSTR path);
};

在 Declare 的参数类型 As String 中自动转换为 ANSI 字符串，即LPSTR。传递/接收 unicode 字符串（LPWSTR 或 BSTR）的唯一方法是使用 typelib API 函数声明。

除此之外，您始终可以在声明中使用 As Long 参数并期望 LPWSTR ，但消费者必须将字符串包装在 StrPtr 中每次调用 API 函数。