clwn.net
当前位置:首页 >> vB winsoCk 发送大的数据 >>

vB winsoCk 发送大的数据

'读一段发一段,直到结束,使用2进制读取文件,每读取一段发送成功后指针向后移动sendfilesize再读取,当然中间要加eof判断 Const sendfilesize = 1024 '发送文件块大小 Private Sub Command1_Click() Dim a() As Byte ReDim a(sendfilesize) En...

用一问一答的方式来传输就不会出错了。服务器端定义一个变量用于记录是否传送完毕。 Dim SendOver As Boolean '模块变量 下面是发送数据代码,加一个标志,continue 表示还有后续 For i =1 to n SendOver= False Sendstr =? if i =n then Serve...

在VB6中利用Winsock实现数据的发送和接收。下面的代码实现了两个程序:发送端程序和接收端程序,这两个程序实现以下功能: Socket通信采用UDP协议 发送端程序向接收端程序发送字符串数据 接收端接收到数据后在窗口显示数据 一、接收端程序 (1)...

Sleep 1000 改为 DoEvents 此外 Winsock1.SendData "UD1,TREND,i" & vbCrLf 要改为 Winsock1.SendData "UD1,TREND," & i & vbCrLf

vb的Winsock是使用异步传输的,也就是说你的发送端For i = 1 To s(s为数据总数) Winsock1.SendData s(i) Next i看似是分开S次发送了,但可能VB会合并成一次性发完;又或者你某个s数组里的内容太长,VB又会将它分开几次传输。所以在传输前要先...

发送数据直接把整个数据扔出去,接收数据直接把数据写入数组就可以了。请看下面的代码: '发送二进制数据:Private Sub Command1_Click() Dim a() As Byte ReDim a(10) Me.Winsock1.SendData aEnd Sub'接收二进制数据:Private Sub Winsock1_Dat...

这种情况在VB中常见,但感觉没有太好的办法。它发送的时候将字串的地址发了出去,这是VB固有的问题。 一个使用数组的方法解决,前面已经有人说了,这个方法很实用。 另一个是用Win32 API。 其他类型的变量发送之前都转化成数组即可发送,如果不...

使用 Winsock 控件 利用 WinSock 控件可以与远程计算机建立连接,并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer 控件类似,WinSock 控件在运行时是不可见的。 可能...

使用控件数组 服务器对每个连线都使用不同index数组 对特定条件或全部的连接发相同广告内容 for i = 1 to Ubound(WinSock1) 'WinSock1(0)控件是服务器自己监听用途 WinSock1(i).SendData "广告内容" Next i

看了LZ在CSDN的代码,既然是以字节流接收,暂时不必转换成字符串,而应先判断接收的12byte包头来设置动态数组的接收长度,待接收到完整数据包后,判断和处理数据。

网站首页 | 网站地图
All rights reserved Powered by www.clwn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com