首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

Winsock 文件传输和数据传输的标志有关问题

2012-05-29 
Winsock 文件传输和数据传输的标志问题各位大侠,小弟刚接触网络编程。现在利用Winsock控件编写一个网络程序

Winsock 文件传输和数据传输的标志问题
各位大侠,小弟刚接触网络编程。现在利用Winsock控件编写一个网络程序。
问题是,比如 客户端在接收信息时怎么区分 传过来的是文件还是 数据信息呢?我查过一些资料,但没弄太明白。
对数据信息进行标志处理我已经弄懂了。但 接收文件和 数据的方式是不是不一样的?还是需要用不同的Winsock来接收?请各位大侠指导。
 下面是数据接收的处理。
wsInfo(Index).GetData strInput, , bytesTotal
'接收到新的数据保存到strInput 数组中
strData = Split(strInput, vbCrLf) '拆分接收到的数据 到数组中
For i = 0 To UBound(strData) '组合接收到的数据
strText = ""
strText = strData(i)
If strText <> "" Then
strParse = Split(strText, "|") '拆分新接收到的数据
strText = strParse(0)
strItem = strParse(1)
Set item = lvFiles.ListItems(Index + 1)
Select Case UCase(strText) '根据标志位来判断所要执行的操作
下面是文件接收的处理。
wsRecieve(Index).GetData data, , bytesTotal '取得数据
Dim intFile As Integer
intFile = FreeFile '产生一个文件号
MkDir App.Path & "\Downloads" '在当前路径下建立一个文件夹
Open App.Path & "\Downloads\" & lvFiles.ListItems(Index + 1).SubItems(1) For Binary As #intFile
Put #intFile, LOF(intFile) + 1, data '写入数据
Close #intFile '关闭文件
FileInput(Index) = FileInput(Index) + Len(data) '更新文件接收速度

[解决办法]
建立两个连接 一个传送数据信息 一个传送文件信息
[解决办法]
发送端区别,1字符,2文件
接收再解析
wsInfo(Index).SendData "1_" & "传送的内容"

热点排行
Bad Request.