调用dll问题

Question

用vb调用一个用delphi写的dll
Private Declare Function test Lib "test.dll" (ByVal hComm As Long, ByVal id As Integer, ByVal a As My_type) As Integer在delphi中My_type的数据结构是
  My_type= packed record
    M: packed array[0..10] of Char;
    V: packed array[0..6] of Char;
  end;vb中总指示a的类型不对,请问我应该怎么做?

Answer 1

结构:
  My_type= packed record
    M: packed array[0..10] of Char;
    V: packed array[0..6] of Char;
  end;对应VB的定义:
Type packed 
      m As String * 9
      v As String * 9      
End Type

Answer 2

Type packed 
      m As String * 9
      v As String * 5
End Type

Answer 3

Type packed 
      m As String * 10
      v As String * 6
End Type声明要进行修改

Answer 4

Type packed 
      m As String * 10
      v As String * 6
End Type
Private Declare Function test Lib "test.dll" (ByVal hComm As Long, ByVal id As long, ByVal a As packed) As long

Answer 5

抱歉，上面的不对，试试下面的：
private Type packed 
      m As String * 10
      v As String * 6
End Type
Private Declare Function test Lib "test.dll" (ByVal hComm As Long, ByVal id As long, Byref a As packed) As long
其实这样更合理一些：private Type packed 
      m(9) As byte
      v(5) as byte
End Type
Private Declare Function test Lib "test.dll" (ByVal hComm As Long, ByVal id As long, Byval a As long) As long调用时Byval a As long传入packed型变量的地址（用varptr获得）

Answer 6

有一种不祥的预感。复杂的结构类型最好用指针传递和调用。这里看来还是用Any比较好顺便参考一下这个，别搞错了:)
http://www.gnu-pascal.de/gpc/packed.html