我用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呢,以什么数据类型接收和保存呢?
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呢,以什么数据类型接收和保存呢?
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 请高手指点一二……