这儿没有VB,有些关键字记不住,只能给你说下思路: 1、定义两个全局变量 Dim B() As Byte 用来保存数据, Dim I As Long 用来记录下标; I = -1 2、接收时 定义两个局部变量 Dim BB() As Byte 存放本次取回来的数据, Dim II As Long 本次的数据量; 将本次的数据用BB取回来 将本次的数据量用II取回来 ReDim P** B(I+II) P**是一个VB关键字,用来保护REDIM时B()中原来的数据不丢失 用一个循环,将BB中的数据逐个追加到B的尾部 ----------------------------------------------- 我编了三年程序 只用过VB 我用了三年VB 只用过WINSOCK 我用了三年WINSOCK 只用过UDP和TCP 我用了三年UDP和TCP 原来都用的是TCP/IP协议 http://www.offca.com/gps/iphonebbs/ **********中国网络程序开发联盟欢迎你********** -----------------------------------------------
Dim B() As Byte 用来保存数据,
Dim I As Long 用来记录下标;
I = -1
2、接收时
定义两个局部变量
Dim BB() As Byte 存放本次取回来的数据,
Dim II As Long 本次的数据量;
将本次的数据用BB取回来
将本次的数据量用II取回来
ReDim P** B(I+II) P**是一个VB关键字,用来保护REDIM时B()中原来的数据不丢失
用一个循环,将BB中的数据逐个追加到B的尾部 -----------------------------------------------
我编了三年程序 只用过VB
我用了三年VB 只用过WINSOCK
我用了三年WINSOCK 只用过UDP和TCP
我用了三年UDP和TCP 原来都用的是TCP/IP协议
http://www.offca.com/gps/iphonebbs/
**********中国网络程序开发联盟欢迎你**********
-----------------------------------------------