VB - 以隐式方式链接 DLL

Question

我正在开发 VB6 图形界面，并且需要隐式链接到 DLL。

这样做的动机来自我的上一个问题。有问题的 DLL 使用静态 TLS，__declspec(thread)，当然，当使用 LoadLibray 显式链接 DLL 时，这会严重失败。

我真的很想避免对 DLL 进行修改，所以有人知道如何欺骗 VB6 可执行文件隐式链接到特定的 DLL 吗？

Answer 1

为 DLL 创建一个 IDL 文件，用于描述 模块< 中导出的函数/code>子句。

使用 MIDL 编译器进行编译并引用 VB6 项目中生成的 tlb 文件（项目 - 参考）。
并删除所有声明函数。

tlb 文件仅用于编译（在本例中），您不必将其包含到安装程序中。

Answer 2

以下是从标准操作系统 dll 导入函数的示例 IDL

[
  uuid(YOURTYPE-LIBG-UIDH-ERE0-000000000000),
  version(1.0),
  helpstring ("My Type Library 1.0")
]
library MyTypeLib
{
    importlib("stdole2.tlb");

    typedef struct {
        long    Data1;
        short   Data2;
        short   Data3;
        BYTE    Data4[8];
    } VBGUID;

    typedef VBGUID CLSID;

    [dllname("OLEAUT32")]
    module OleAut32
    {
        [entry("SysAllocString")]
        BSTR SysAllocString([in] long lpStr);
        ...
    };

    [dllname("USER32")]
    module User32
    {
        [entry("RegisterClipboardFormatA")]
        UINT RegisterClipboardFormat([in] LPSTR lpszFormat);
        [entry("FillRect")]
        DWORD FillRect([in] DWORD hDC, [in] int lpRect, [in] DWORD hBrush);
        ...
    };

    [dllname("BOGUS")]
    module Strings
    {
        const LPSTR CLSID_DsQuery = "{8A23E65E-31C2-11D0-891C-00A024AB2DBB}";
        const LPSTR CLSID_DsFindObjects = "{83EE3FE1-57D9-11D0-B932-00A024AB2DBB}";
        ...
    }
}

Answer 3

最后，由于 GSerg 和 David Heffernan 的帮助，我能够解决这个问题。

这里的 IDL 用于生成 .tlb 要

[
    uuid(12345678-1234-1234-1234-123456789ABC),
    version(1.0)
] 

    library myTypeLib
    {
        [dllname("myLib.dll")]

        module myLib
        { 

            [entry("myFunc")]
            int __stdcall myFunc( LPSTR  filename_in,  LPSTR   filename_out, LPSTR  ErrMsg);
        };
    };

编译它，请在 Visual Studio 命令提示符中使用命令“midl”。

生成的 .tlb 文件应与 DLL 一起放置在 VB6 项目的同一目录中。

在 VB6 项目中的 Project->References 下，可以添加 .tlb 文件。

如果一切顺利，按 F2，可以在可用库列表中注意到“myTypeLib”。

现在可以在 VB6 项目中调用“myFunc”了！

然而，有两个问题需要指出：

1）某些变量类型在 VB6 和 C 之间不兼容。这个问题的一个例子是 char 数组。在 VB6 中，它们被声明为 Dim myStr as String，而在 C 中，它们通常被声明为 char myStr[MAX_DIM];。为了在不修改 DLL 的情况下实现 VB6 和 C 之间的转换，可以在 VB6 端将字符串声明为 Dim myStr as String * 256，而在 IDL 文件中，应传递相应的字符串到函数LPSTR myStr。

2)VB6 在创建 .exe 之前不会链接 DLL。但如果 DLL 没有被链接，那么它的函数是不可见的。因此，必须在 VB6 项目中使用的隐式链接 DLL 的所有功能都必须包含在 IDL 文件中。

而且，出于同样的原因，即使所有函数都包含在IDL文件中之后，也不可能从IDE中运行程序（它会崩溃）来调试它。运行应用程序的唯一方法是创建 .exe。