VB6如何从指针中获取字符串

Question

我必须用 VB6 调用 C DLL。

C 代码

short int decode(BOOL Mode, char* tete, char* adresse, char* status, char* nombre, char* datadecode);

我的 VB 代码：

Private Declare Function decode Lib "VBdecode.dll" ( _ 
ByVal Mode As Long, _ 
ByVal tete As String, _ 
ByVal adresse As String, _ 
ByVal status As String, _ 
ByVal nombre As String, _ 
ByVal datadecode As String) As Long
Dim retour_lire As Long
Dim buffer(4) As Byte   
Dim  vbcData as string
Dim i As Integer
Dim chdecode As string

retour_lire = Byte_read(True, "4", "00", buffer, "16", vbcData)

For i = 1 To 10 
chdecode = vbcData(i) 
Next

MsgBox chdecode

但我的 VB6 代码不起作用。

请提出任何想法、建议或更正。

请帮帮我，我指望你。

Answer 1

cmets 实际上是错误的。你说的对。 VB6 会将Strings（无论如何都以这种方式发送）转换为char*。如果您使用的是VarPtr() 或As Any，他们是对的。

您的问题是返回值。将 C++ 端的 short int 更改为 int 或将 VB6 端的 As Long 更改为 As Integer。

所以要么：

int decode(BOOL Mode, char* tete, char* adresse, char* status, char* nombre, char* datadecode);

或：

Private Declare Function decode Lib "VBdecode.dll" ( _ 
ByVal Mode As Long, _ 
ByVal tete As String, _ 
ByVal adresse As String, _ 
ByVal status As String, _ 
ByVal nombre As String, _ 
ByVal datadecode As String) As Integer

不是两者都有:)！

值得注意的是，您的示例代码实际上并没有调用decode()。所以另一个问题，这只是一个猜测，是你试图在 C++ 端更改字符串的内容。您可以更改字符串，但不能重新分配它。所以你需要有它的大小（使用Space$()）。