我用winsock控件在发送端将截屏后的图片发过来,以“scr”作为命令识别头,后面是截取的图片,那在接收端如何分离呢? 发送端关键代码(不知可否): 
Dim b() As Byte 
Open jpgfile For Binary As #1 
ReDim b(LOF(1) - 1) 
Get #1, , b 
winsock1.SendData "scr" + b 
close
那接收端如何分离scr和b呢,以什么数据类型接收和保存呢?

解决方案 »

  1.   

    我想到一个办法,不知可行不可行? 
    Dim Bytedata() As Byte 
    Dim str As String winsock1.GetData str 
    str = Trim(str) 
    command$ = Mid(str, 1, 3)          '截取3字符长命令 
    data$ = Right(str, Len(str) - 3)    '截取剩余的数据 Open jpgfile.jpg For Binary As #1  '保存为图片文件 
    ReDim Bytedata(bytesTotal - 4)      '这里必须减4,因为数组默认下标为0,还有三个命令识别字符 
    Bytedata = data 
    Put #1, 1, Bytedata                '写入数据,记录号从1开始 
    Close 请高手指点一二……