Question

vb Byte数据追加

Dim 磁盘缓冲() As Byte
Dim 数据() As Byte
如何实现 磁盘缓冲=磁盘缓冲+数据
类型就 1=1+2
和在一起就是12
我写了局域网文件传输，我想设置下数据到一定大小后写入磁盘
在网上找了好久了没找到

Answer 1

需要用到API 函数:CopyMemory.
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)

dim bytBuff()  as byte        '数据Buff
dim bytRec() as byte        '接收数据的数组
dim bytTmp() as byte        '临时数组
dim lngBuff as long         'Buff数组的长度
dim startIndex as long     '记录Buff数组中开始的位置
dim lngRec as long        '记录接收数据长度.
lngBuff=65536
redim bytBuff(lngBuff-1)
bytRec=收到的数据

if startIndex+ubound(bytRec)+1<lngBuff then
    '检查Buff是否还有足够空间, 如果有则把数据加入Buff.

    CopyMemory bytBuff(startIndex),bytRec(0),ubound(bytRec)+1
    startIndex=startIndex+ubound(bytRec)+1
else
    'Buff数据空间不足

    redim bytTmp(startIndex-1)
    CopyMemory bytTmp(0), bytBuff(0),startIndex    '把数据copy到临时数组
    '保存资料.

    startIndex   =0
    CopyMemory bytBuff(startIndex),bytRec(0),ubound(bytRec)+1
    startIndex=startIndex+ubound(bytRec)+1
end if
lngRec =lngRec +ubound(bytRec)+1    '记录数据接收长度

'检查资料是否完成
'如果接收的数据完成,则把Buff数据写入文件.
if lngRec =文件长度 then
    redim bytTmp(startIndex-1)
    CopyMemory bytTmp(0), bytBuff(0),startIndex    '把数据copy到临时数组
    '保存资料.
end if

追问

CopyMemory UBound(磁盘缓冲), LBound(传输), UBound(传输)
这句VB为什么会停止工作？

追答

CopyMemory 目的数组地址,源数组地址, 复制的数据长度.

你的写法是错误的,应该写成
CopyMemory 磁盘缓冲(开始位置), 传输(开始位置), UBound(传输)

CopyMemory 目的数组地址,源数组地址, 复制的数据长度.

你的写法是错误的,应该写成
CopyMemory 磁盘缓冲(开始位置), 传输(开始位置), UBound(传输)+1

追问

CopyMemory 磁盘缓冲(开始位置), 传输(开始位置), UBound(传输)+1
这么写 磁盘缓冲原先的数据没了

追答

所以开始位置要有一个变量,要不断变化,请参考我给的程序中以下语句,就是变动开始位置

startIndex=startIndex+ubound(bytRec)+1

追问

你上面那一堆我都看懵圈了
我给你我现在的代码你帮我改吧
1
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next '忽略错误
Dim 传输() As Byte, h, s
Winsock1.GetData 传输
If 二进制转文本(传输) = "请求成功" Then