c++ - 从VB6调用C dll，其中dll是使用Visual Studio 2013编写的

Question

这个问题的提出不太恰当，但我正在大费周章，而且我不知道如何更好地表达它。

我需要用C编写一个DLL，从VB6中调用它。我正在使用 Visual Studio Express 2013。我知道...VB6 很古老，我认为代码的管理者现在确信他们应该放弃它。但与此同时，这需要完成。

首先，我尝试编写一个带有单个函数的 DLL，该函数除了打印消息之外什么也不做，并且在使用 VB.NET 调用 DLL 时工作得很好。

这是我为 TinyDll.h 准备的内容。

#ifdef TINYDLL_EXPORTS
#define TINYDLL_API __declspec(dllexport)
#else
#define TINYDLL_API __declspec(dllimport)
#endif

extern TINYDLL_API void __stdcall testdll();

这是 TinyDll.cpp

#include "stdafx.h"
#include "TinyDll.h"
#include <stdexcept>

using namespace std;

void __stdcall testdll()
{
  printf("Got into the dll.\n");
}

顺便说一句，我已经尝试过使用和不使用 __stdcall 的情况。我还尝试使用 .def 文件来消除 dll 中的名称，但现在我不清楚这是否可行。我发现的例子表明这应该有效

LIBRARY TinyDll
Exports
  testdll

但事实并非如此。 dll 中的名称仍然是损坏的形式:?testdll@@YGXXZ。

我的测试代码相当简单，它可以完美地与 VB.NET 配合使用，但无法与 VB6 配合使用。该问题与 VB6 进程无法找到 dll 和/或找到其中的函数有关。作为记录，这里是用于测试的 VB6 代码

Declare Sub testdll Lib "TinyDll.dll" Alias "?testdll@@YGXXZ" ()

Sub Main()
  testdll()
End Sub    

首先，我是否正确地认为没有必要调用 regsvr32 或 regasm？该 dll 不是 COM 对象——VB6 正在调用我的 C 代码，而不是相反。当我们尝试执行这两件事中的任何一个时，要么“找不到入口点 DllRegisterServer”，要么“找不到指定的模块。”

最重要的是，VB6 开发环境太旧，无法在我的 Windows 7 机器上运行，而尝试测试我的 DLL 的人处于另一种状态，并且是严格的 VB 程序员。

我已经阅读了通过谷歌搜索可以找到的所有内容，因此我希望有人知道一个可以清楚地列出事实或显示有效示例的网站。

Answer 1

就像这类问题经常出现的情况一样(即，涉及一个硬邦邦的旧环境被用来做它从未打算做的事情)，它现在可以工作，但不清楚到底为什么。

我们认为如果没有 dll 的完整路径，VB6 就无法找到它。如果我们用

声明函数

Declare Function TestTinyDLL Lib "e:\full\path\down\to\TinyDll.dll" Alias "_testdll@0"

然后调用可以工作，但如果未给出完整路径，则无论 dll 驻留在何处，调用都不起作用。我们还发现，我们可以通过“初始化”dll 来避免提供完整路径，如下所示(感谢: File not found when loading dll from vb6 提供此线索):

Option Explicit

' Windows API method declarations
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias _
    "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, _
    ByVal msg As Any, ByVal wParam As Any, ByVal lParam As Any) _
    As Long
Private Declare Function FormatMessage Lib "kernel32" Alias _
    "FormatMessageA" (ByVal dwFlags As Long, lpSource As Long, _
    ByVal dwMessageId As Long, ByVal dwLanguageId As Long, _
    ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) _
    As Long

Declare Function BogusCall Lib "otherdll.dll" Alias "_BogusCall@0" () As Integer

Declare Function TestTinyDLL Lib "TinyDLL.dll" Alias "_testdll@0" () As Integer

Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000


Sub Main()

    InitializeDLL App.Path & "\" & "otherdll.dll", "_BogusCall@0"

    InitializeDLL App.Path & "\" & "TinyDLL.dll", "_testdll@0"

    Dim Version As String

    Version = "TinyDLLTestProgram" & vbCrLf & vbCrLf

    Version = Version & "BogusCall = " & CStr(BogusCall ()) & vbCrLf

    Version = Version & "TestTinyDLL= " & CStr(TestTinyDLL()) & vbCrLf

    Form1.txtOutput.Text = CStr(Version)

End Sub

Sub InitializeDLL(myDLL As String, myFunc As String)

    ' Locate and load the DLL. This will run the DllMain method, if present
    Dim dllHandle As Long
    dllHandle = LoadLibrary(myDLL)

    If dllHandle = 0 Then
        MsgBox "Error loading DLL" & vbCrLf & ErrorText(Err.LastDllError)
        Exit Sub
    End If

    ' Find the procedure you want to call
    Dim procAddress As Long
    procAddress = GetProcAddress(dllHandle, myFunc)

    If procAddress = 0 Then
        MsgBox "Error getting procedure address" & vbCrLf & ErrorText(Err.LastDllError)
        Exit Sub
    End If

    ' Finally, call the procedure
    CallWindowProc procAddress, 0&, "Dummy message", ByVal 0&, ByVal 0&

End Sub

' Gets the error message for a Windows error code
Private Function ErrorText(errorCode As Long) As String

    Dim errorMessage As String
    Dim result As Long

    errorMessage = Space$(256)
    result = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0&, errorCode, 0&, errorMessage, Len(errorMessage), 0&)

    If result > 0 Then
        ErrorText = Left$(errorMessage, result)
    Else
        ErrorText = "Unknown error"
    End If

End Function

为什么这有效是一个谜，但它确实有效。我希望这对其他遇到旧 VB6 代码的人有帮助!