客戶端:
bytearr()为接收数据数组
dim intnum as inteder
dim strnum as string
for intnum=3 to 0 step -1
strnum=strnum+chr(bytearr(bytesTotal-intnum)) '从数组中提取4个字节数据,并转换为字符
next
if strnum="over" then '如果消息是over
.........'关闭文件代码 '文件传输结束,关闭文件
exit sub
else
..........'继续接收代码
end if
上面這樣可以接收到OVER(在最后一個包中),但這個包同時含有文件的正文數據,
得把前面bytearr( 0 to bytesTotal-4)存到文件中
我要傳送的文件是二進制文件,如果要從服務器端發消息通知客戶端,在客戶端接收信息后,
不知道怎樣區分哪個是控制消息,那個是要傳送過來的二進制文件
**************************************************************************
服务器端在发送完文件后,发送一个消息:
Me.Winsock1.SendData "over"
客户端:
bytearr()为接收数据数组
dim intnum as inteder
dim strnum as string
for intnum=0 to 3
strnum=strnum+chr(bytearr(intnum)) '从数组中提取4个字节数据,并转换为字符
next
if strnum="over" then '如果消息是over
.........'关闭文件代码 '文件传输结束,关闭文件
exit sub
else
..........'继续发送代码
end if