863
社区成员
发帖
与我相关
我的任务
分享
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
'......