Delphi中的vb6 dll

Question

我用这段代码写了一个 VB6 dll

Public Function RegGetStr(ByRef FullLocation_Name As String) As String
   Dim oReg As Object
    Set oReg = CreateObject("WScript.Shell")
    RegGetStr = oReg.RegRead(FullLocation_Name, "REG_SZ")

    Set oReg = Nothing
End Function

在德尔福我有图书馆工作

type
          TRegGetStr = Function(Const FullLocation_Name: String): String; StdCall;
    var
     aRegGetStr: TRegGetStr;

和

 @aRegGetStr := Windows.GetProcAddress(LibHandle, 'RegGetStr');

我遇到了崩溃 是因为我使用的字符串类型吗？还是别的什么？

Answer 1

您的问题是关于从 Delphi 调用 VB DLL。 开箱即用的 VB6 创建 ActiveX dll（创建为 ActiveX DLL 项目） How can I create a standard DLL in VB6? 看看那里描述 ActiveX DLL 的答案。

虽然您可以在 VB6 中创建标准 DLL，但您必须进行探索。它不支持开箱即用，不推荐。

您可以像使用 Delphi 中的任何 ActiveX dll 一样使用该 VB ActiveX DLL。
Deplhi Import Component - Type Library vs ActiveX

=====

另一方面，如果您尝试调用外部 DLL（例如用 Delphi 编写）FROM VB 应用程序，您将使用字符串的 pAnsiChar 参数创建 Delphi 函数。例如：在 MyDelProcs.dll 中：

procedure MyDelProc(pStr1: pAnsiChar, MyInt: integer);stdcall;
  .......................
exports
  MyDelProc;

在 VB 方面，您可以将过程声明为

Declare Sub MyDelProc Lib "MyDelProcs.dll" (ByVal sStr1 as String, MyLong As Long)

然后调用过程

   Call MyDelProc(sStr1, MyLong)

一些注意事项：

1. sStr1 是 VB 内部的 Unicode，但在调用时被转换为 AnsiString。 ansistring 在末尾添加了一个 chr(0) 并移动到一个缓冲区，该缓冲区是 ansistring 的长度加上 chr(0)。

2. 注意其他参数类型。 VB默认Integer为2字节，Delphi默认整数为4，相当于VB中的Long类型。

3. 如果您的 Delphi 函数需要知道长度，请将其作为另一个（长/整数）参数传递。

4. 字符串缓冲区的大小是固定的。如果您要返回一个长度较长的字符串，则要么用足够的空间填充原始字符串，要么传递一个具有足够长度的更长的虚拟​​字符串以供返回。

5. 返回时，字符串被视为 ansistring。它将被转换回 Unicode 以放入 VB 内部字符串中。