864
社区成员




Function Base64Decode(in As long, out As long, len As Integer) As Long
'......
Dim ArrayCount As Long ' 数组数量
Dim hInBuff As Long
Dim lpInBuff As Long
Dim hOutBuff As Long
Dim lpOutBuff As Long
Dim rd Ad Long
ArrayCount = 6
hInBuff = GlobalAlloc(GMEM_ZEROINIT, ArrayCount*LenB(Integer)) '申请内存空间
lpInBuff = GlobalLock(hInBuff)
' 将VB 数组中的数据复制到输入内存
CopyMemory ByVal lpInBuff,VbArray(0),(Ubound(VbArray)+1)*LenB(Integer)
ArrayCount = 256
hOutBuff = GlobalAlloc(GMEM_ZEROINIT, ArrayCount*LenB(Integer)) '申请内存空间
lpOutBuff = GlobalLock(hOutBuff)
rd = Base64Decode(lpInBuff,lpOutBuff,ArrayCount)
'......
GlobalUnlock hInBuff
GlobalUnlock hOutBuff
GlobalFree hInBuff
GlobalFree hOutBuff
'......
Declare Sub Base64Decode Lib "xx.dll" (inBuff As Any, OutBuff As Any, ByVal Length As Integer) As Long
'......
Dim InBuff(6) As Integer
Dim OutBuff(255) As Integer
Dim rd Ad Long
Base64Decode InBuff(0),OutBuff(0),255
'......