谁有比较好的方法将用户自定义类型转化成字节数组存储,急急急...

Question

我定义了较多自定义类型
public type sms
  seq as long
  i as string
  j as string
end type
public type gprs
  a as long
  i as string
endtype 等等..
我希望用一个函数一下将其存储到字节数组中去a()as byte,然后winsock.senddata a一下就发送出去，请问谁有好的方法呀，全分相送!!!

Answer 1

有看过一个用memcopy搞定的例子，很久了，细节忘了 :(

Answer 2

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (_
hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)Dim b() As Byte
Redim b(LenB(sms)) As ByteCopyMemory a(0),sms,sizeOf(sms)

Answer 3

不好意思上一个弄错（跟C混了）
正确的如下：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (_
hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)Dim b() As Byte
Redim b(LenB(sms)) As ByteCopyMemory a(0),sms,LenB(sms)

Answer 4

同意abomber2(走来走去)呵呵，手脚好快 :)

Answer 5

Redim b(LenB(sms)) As Byte 里的sms->strconv(sms,vbfromunicode)

Answer 6

需满足LenB(sms)<=ubound(a)-lbound(a)+1