如何将 char 参数从 VB6 应用程序传递给 C DLL？

Question

我正在尝试在我的 VB6 应用程序中调用 C 函数。问题是该函数将简单的char 作为参数。不是 char 数组指针 (char *) 而是常规的 char。

它是这样声明的：

#define FM_API extern "C" int _stdcall
FM_API NVF_SetGroupFormat(char *aMarker, char aDecSeparator, int aDigits)

如果执行成功则返回-1，否则返回0。

一开始我做了我一直在做的事情——只是宣布它就是这样。

这是我的声明：

Declare Function SetGroupFormat Lib "C:\Libs\FM_API.dll" Alias "NVF_SetGroupFormat" (ByVal lMarker As String, ByVal lDecSeparator As String, ByVal lDigits As Integer) As Integer

但它总是返回 0（失败/错误）。

我认为我传递的参数有问题。我打电话给 dll 作者寻求建议，并告诉他我如何传递我的参数。这是对该函数的调用：

Dim lSt As Integer
lSt = SetGroupFormat("=;\n", ".", 0)

作者告诉我这个调用是正确的，但他告诉我我的声明“可能”是错误的，因为我将 lDecSeparator 声明为字符串，但它应该是字符。

主要问题是 char 在 VB6 中不存在。

如何从 VB6 代码声明 char 并将其传递给基于 c 的 Dll？

Answer 1

在 VB6 中，您可以为此目的使用固定长度的字符串：

Declare Function SetGroupFormat Lib "C:\Libs\FM_API.dll" Alias "NVF_SetGroupFormat" ( _
    ByVal lMarker As String, _
    ByVal lDecSeparator As String * 1, _
    ByVal lDigits As Integer _
) As Integer

诚然，我用VB6已经有一段时间了，我的知识有点生疏；如果上面的语法不被支持，那么下面的方法肯定会起作用：

Type SingleChar
    Value As String * 1
End Type

Declare Function SetGroupFormat Lib "C:\Libs\FM_API.dll" Alias "NVF_SetGroupFormat" ( _
    ByVal lMarker As String, _
    ByVal lDecSeparator As SingleChar, _
    ByVal lDigits As Integer _
) As Integer

您也可以使用数据类型Byte 来表示单个8 位值，相当于外部API 中的char。如果调用失败，这是由于其他原因，与参数类型无关。