VB调用DLL，需要传递Char*指针，如何调用？

[kidnet]

声明调用函数时，需要传递Char*指针；
那么VB如何声明？

传递什么类型的值呢？

1。声明为String，传递String字符串？。好像不对。
2。声明为Long，传递String的地址？。好像也不对。
3。声明为。。。。

[lyserver]

声明为Long即可。
先将String转换为Byte()，然后传递数组的首个成员的地址，比如：varptr(bytesData(0))

[a1875566250]

[Quote=引用 1 楼 lyserver 的回复:]
声明为Long即可。
先将String转换为Byte()，然后传递数组的首个成员的地址，比如：varptr(bytesData(0))
[/Quote]
嗯，同。传字节集指针开始地址。

[嗷嗷叫的老马]

1。声明为String，传递String字符串

byval传入即可,实际VB传入的是指向这个字符串变量的缓冲区的地址.

[kidnet]

[Quote=引用 1 楼 lyserver 的回复:]
声明为Long即可。
先将String转换为Byte()，然后传递数组的首个成员的地址，比如：varptr(bytesData(0))
[/Quote]
那么函数声明中，声明为Byref的还是ByVal的Long参数呢？

另：我现在好像怎么写，VB都直接报错了，然后工程都关闭了，这是为什么啊？

[a1875566250]

[Quote=引用 4 楼 kidnet 的回复:]
引用 1 楼 lyserver 的回复:
声明为Long即可。
先将String转换为Byte()，然后传递数组的首个成员的地址，比如：varptr(bytesData(0))

那么函数声明中，声明为Byref的还是ByVal的Long参数呢？

另：我现在好像怎么写，VB都直接报错了，然后工程都关闭了，这是为什么啊？
[/Quote]
byval

byref 的话要any

[kidnet]

[Quote=引用 5 楼 a1875566250 的回复:]
引用 4 楼 kidnet 的回复:
引用 1 楼 lyserver 的回复:
声明为Long即可。
先将String转换为Byte()，然后传递数组的首个成员的地址，比如：varptr(bytesData(0))

那么函数声明中，声明为Byref的还是ByVal的Long参数呢？

另：我现在好像怎么写，VB都直接报错了，然后工程都关闭了，这是为什么啊？

byval

……
[/Quote]

为什么我的VB现在只要一调用底层写卡函数，他就崩溃了。不管传递什么值。。我晕了快。。

[lyserver]

一、byval x As Long和byval s as string都可以，其中byval s as string由VB在后台自动进行转换。
二、VB的缓冲区需要初始化，如果不初始化，当然会崩溃了。

[kidnet]

找到崩溃原因，是因为返回值是char，我用string接的，然后崩溃了

我VB的代码如下：

    Dim bytes(19) As Byte
    Dim tmp As String
    tmp = IntToBin("301344", bytes, 1, 3)
    tmp = IntToBin("1", bytes, 4, 1)
    tmp = IntToBin("666666", bytes, 5, 4)
    tmp = IntToBin("3", bytes, 9, 3)
    tmp = IntToBin("4", bytes, 12, 3)
    tmp = IntToBin("5", bytes, 15, 3)
    'bytes数组传递进去赋值

    Dim dd As Long
    dd = VarPtr(bytes(0))
    
    MsgBox dd
    Dim ch As String
    Dim Result As String
    ch = Module1.WriteUserCard(dd)
    MsgBox ch

模块中的声明如下：

Declare Function ReadUserCard Lib "whmq.dll" () As Long


Declare Function WriteUserCard Lib "whmq.dll" (ByVal lng As Long) As Byte

现在主要是下面那个函数，返回值总是52。。。无语了都。。

[kidnet]

Private Function IntToBin(N As String, ByRef bytes() As Byte, s As Integer, L As Integer) As String
    Dim Result As String
    Dim i As Long
    Dim j As Byte
    
    Dim tmp As String
    Result = ""
    i = CLng(Val(N))
    For j = s To s + L - 1 Step 1
        bytes(j) = i Mod 256
        Result = Result & bytes(j)
        i = i \ 256
    Next j
    
    IntToBin = Result
End Function

这个是上面提到的一个函数

[kidnet]

晕。。总是一问后面那个，就没人回复了。。。

[嗷嗷叫的老马]

明天再说,看球先

[supergreenbean]

你把你函数原型贴出来，大家就知道怎么写了

[kidnet]

[Quote=引用 14 楼 supergreenbean 的回复:]
你把你函数原型贴出来，大家就知道怎么写了
[/Quote]
http://topic.csdn.net/u/20100622/11/18423d7c-21a8-43fb-a032-5051350c8119.html?40654
这个置顶帖里有部分

[king06]

没看明白...

[lds1ove]

sff

[嗷嗷叫的老马]

void CardWrite(unsigned  char Offset,unsigned  short int Len,unsigned char* Data)

这个啊?

直接byval xxxx as string

然后传入字符串就行了吧.

[kidnet]

[Quote=引用 18 楼 myjian 的回复:]
C/C++ code
void CardWrite(unsigned char Offset,unsigned short int Len,unsigned char* Data)


这个啊?

直接byval xxxx as string

然后传入字符串就行了吧.
[/Quote]
不好意思，由于保密性问题，代码没贴全。

他还有另一小段：

extern "C"__declspec(dllexport) unsigned char WINAPI WriteUserCard(char* s);

实现如下：

extern "C"__declspec(dllexport)
  unsigned char WINAPI WriteUserCard(char* s)
{
unsigned long passbuffer;
unsigned char x1,x2,y1,y2,random1,random2,random3,random4;
unsigned char passtemp[13]="\0";
unsigned int cardkind;
char* ss;
char sstemp[128]="\0";
unsigned char Pass1=0,Pass2=0,Pass3=0;
unsigned char ch='\0';
unsigned int i;
  ss=sstemp;
  ss=s;
  cardkind=**();
  if (cardkind!= 2)
  {
  i=CardCheckPassword(**,**,**);
  switch (i)
    {
     case 0:       //EC==0
            ch='0';
            break;
     case 8:
            // comp pass
            CardWrite(0x80,0x1d,ss);
            ch='8';
            break;
     case 2:     //The First Password Error!
            // i = comp pass
            if(i==8)
            {
              CardWrite(0x*,0x*,"********");
              CardWriteByte(0x*,0x*,0x*);
              CardWrite(0x*,0x*,ss);
              ch='8';
            }
            if(i==0) {ch='0';}
            if(i==1) {ch='1';}
            break;
     case 1:
            ch='1';
            break;
    }
  }