简单的说就是如何能够在一个过程里能够发10次数据,而在接收端能够分10次接受到数据,现在碰到的问题是在客户端发了10次(这十次数据是在一个循环里完成的,在每个send后面我都加了doevents,但是在服务器端却市一次接受了10次的数据,我想让10次数据分开接受到.如何解决)
Csocket.SendData selfname & "errortemp"
DoEvents
这个是我的程序中,我在sendcompelete事件对发送的数据进行了记数,记的数字是正确的10次,但是为什么接受端却是一次把所有的数据都接到了,请指点
Csocket.SendData selfname & "errortemp"
DoEvents
这个是我的程序中,我在sendcompelete事件对发送的数据进行了记数,记的数字是正确的10次,但是为什么接受端却是一次把所有的数据都接到了,请指点
解决方案 »
- VB 1个窗体问题
- 请问VB中的Sub Main 和 sub Form_load 都有哪些异同?
- VB6中的工程属性中的工程名称及其它一些地方,汉字乱码。何解???
- 请教,如何在VB6环境使用二维控件数组
- 如何实现在代码中将MSSQL数据库中表明修改的功能???
- 怎样让一个窗体始终处在其他窗体前面
- 我想在vb下学习windows的api,请问一下,用什么书好呢?谢谢
- 如何在OpenDatabase方法中传递密码?
- vb和vc哪一个更好
- 挑战各位大虾,请看一看我的问题:简繁体转换(附源代码)
- 系列专题:【附源码】Windows Shell接口之VB实现(一):ICopyHook接口
- Vb中的事务问题?还有三层结构的问题(我觉得很高深的问题,我问过好几个人了,都没有详细的回答)
tcpClient.SendData "browJPG"服务器收到消息再发送需要的 数据 Select Case A
Case "browJPG"
'列出列表中的扑活 的图片dir
tcpServer.SendData "browJPG" & vbCrLf & dirJPG(App.Path & "\log\")
Case "real time JPG" '准备把 App.Path & "\realtime.jpg"发送到客户机器
'先发文件
If Picture1.Tag = "" Then
xcam_Photo1 Picture2, 80
Else
xcam_Photo1 Picture1, 80
End If
'先获得文件大小
i = FileLen(App.Path & "\realtime.jpg")
tcpServer.SendData "FileSize:" & i
StatusBar1.Panels(4).Text = "发送文件大小" & i
Case "Send ok!"
RefWinsock
Case "Close"
'断开连接 重新进入侦听状态
RefWinsock
Timer3.Interval = 0
解决办法:
1种是要求发送方每次发一条,接受方收到后回复,然后再发第二条。速度也很快。近乎实时。
2种是在发送的每条记录上都添加开始和结束标识,如:BOF\EOF等。收到后在接受方自己解析字符串,认为的拆分成10条记录。
我的软件下载地址:
its screenshot url:
http://free.efile.com.cn/huangtao/ScreenShot.jpg
>
setup download url:
>http://free.efile.com.cn/huangtao/SmartmailSource.rar