Question

你好： 我自己写了一个类似聊天室的消息系统，用的winsock 控件 为什么老是报错，麻烦大师帮忙看看！

存在的主要错误为 1. 群发消息的时候会有部分客户端主动掉线 当服务挂的时间越长 群发消息的时候掉线的人越多。2.群发消息的时候服务端会直接报错然后中断。
报错后的提示为： Run-time error '5' Invalid procedure call or argument
而且服务端有时候自动就报错，特别是 开启几个小时或几十个小时的时候就会报错 错误信息为 “ Run-time error '5' Invalid procedure call or argument” 请问这是怎么回事呢？如何解决这样的问题。
不知道你方便告诉下邮箱地址不？ 这一可以把源码传发给你麻烦给看下，谢谢！

Answer 1

问题有些复杂，winsock 是一个控件，本身是采用计时器等技术开发，需要一定的相应时间。 我的体会，发送数据要有时间间隔，大概100毫秒以上；另外就是的大数据量大批次的发送，每次超过1000个字节，则发送的过程中，就会出错。
下面是我搜集的一些讨论帖。 仅供参考
WINSOCK一次最多传送8K
我在的DataArrival事件 里加入一些代码测试每接收一次文件共触发了多少次这个事件，得出来的数字，用文件总长度来除便是每次收到的数据，在单机情况下是8K，也就是说最多一次收8K，

不是最多一次发8K，而发送方面，我用另一个事件来测，不知道为什么如果文件不存在，就只触
发一次，也就是说一次就把文件全发过去了，如果文件存在，需要替换的话，则会以16K/次发送，原因还弄不明白，但“WINSOCK一次最多传送8K”的说法是明显错误的，做过这类程序的朋友不妨自己试试。

对我有用[0]丢个板砖[0]引用举报管理TOP 回复次数：32

vicky_jam
(蛙)
等　级：
#1楼 得分：0回复于：2003-05-31 20:20:39
WINSOCK一次最多传送8K？？
恩我也感觉不对

我试过，在传送数据时，不是每次发送的k多就传的快的
大于8k时也能发
但速度却反而慢了：）

还有用udp连接时最多能发4k多一点不满5k的
再大了就发不出去了：）

以上是自己的“实践”仅供参考
：）
对我有用[0]丢个板砖[0]引用举报管理TOP
精华推荐：[原创]Unlocker的编程”探险”及工作原理（已添加下载连接）

kissoflife
(明月高楼休独倚，酒入愁肠，化作)
等　级：
#2楼 得分：0回复于：2003-06-01 00:17:15
既然Winsock一次只能传有限的数据，如果要传送的文件数据比这个限度大，在发送方如何把文件分成几个小段呢？还有，在接收方又如何把这些片断整合起来？
对我有用[0]丢个板砖[0]引用举报管理TOP
精华推荐：深入理解VB中的图像之一：VB中的图像色深及对应的处理方法。

vcshcn
(黑天的猩猩)
等　级：
#3楼 得分：0回复于：2003-06-01 01:08:11
看一下tcp协议较好
对我有用[0]丢个板砖[0]引用举报管理TOP
精华推荐：知道如何最快的构造出图形异型窗体吗，我来告诉你，不服你可以写个更高效的------纯粹活跃下群里的气氛。

paopaoc
(大漠)
等　级：
#4楼 得分：0回复于：2003-06-01 11:05:45
在发送方打开待传送的文件，最好使用二进制的试打开，这样就能传送任何格式的文件了（包括EXE文件），每次发送一定大小的字节数据（最好小于8K），接收方再把这些接收到的字节流数据拼接起来写入文件就行了。
具体的方式请看＜visual basic6网络编程从入门到精通＞，或是看看msdn也行。
其实用winsock传送文件是很简单的，但如果要用它写类似QQ的聊天程序就稍复杂了一些，因为在连续传送字符串时会有一个“数据粘连”的问题解决起来比较麻烦。
对我有用[0]丢个板砖[0]引用举报管理TOP
精华推荐：【庆祝神七顺利进入轨道！！】

a11s
(没事情做了)
等　级：
#5楼 得分：0回复于：2003-06-01 11:30:43
谁能告诉我一个官方说法？
http://?????
对我有用[0]丢个板砖[0]引用举报管理TOP
精华推荐：【致某些不会请教别人的人】现在什么时代了!人都上太空了,还有小皇帝?

vicky_jam
(蛙)
等　级：
#6楼 得分：0回复于：2003-06-01 16:29:20
:)

关于分段发送我是这样实现的

把数据放在一个数组中
然后读区x个发送

接收方把收到的数据放在同一个数组中

官不官方的我没查过
但，可以用：）
对我有用[0]丢个板砖[0]引用举报管理TOP

fontz
(方舟)
等　级：
#7楼 得分：0回复于：2003-06-01 16:41:13
如果数据大于8K，sock会自动把数据截成小于8K的数据段分段发送出去。
对我有用[0]丢个板砖[0]引用举报管理TOP

rappercn
(rapper)
等　级：
#8楼 得分：0回复于：2003-06-01 23:01:17
管他是不是大于8K干什么？mp3我都可以用winsock传来传去了。
对我有用[0]丢个板砖[0]引用举报管理TOP

GetWindowPos
(阿汪)
等　级：
#9楼 得分：0回复于：2003-06-02 09:08:21
谁不会传来传去？别说MP3，我连VCD也照样传来传去，很值得炫耀吗？
我现在做的是进度条，自己画的进度条，不用任何控件的进度处
我不搞清楚他传多少K，我能控制进度条的进度吗？
对我有用[0]丢个板砖[0]引用举报管理TOP

rappercn
(rapper)
等　级：
#10楼 得分：0回复于：2003-06-02 11:14:37
你能知道整个文件的大小吗？不知道的话怎么算进度？

就向往一个瓶子里面灌水，你不知道瓶子的容积，怎么知道什么时候能灌满？

要算进度和8k不8k有什么关系呢？收到多少就是多少，显示不就行了。

我手头有现成的例子，你需要就开口，改改就能用。发送和接收端都有进度条。
对我有用[0]丢个板砖[0]引用举报管理TOP

tanyx
(不知道)
等　级：
#11楼 得分：0回复于：2003-06-02 13:55:40
这想法是错误的，就算不是8K,也必须当8K来处理，总之不能指望一次传送所有内容。
对我有用[0]丢个板砖[0]引用举报管理TOP

GetWindowPos
(阿汪)
等　级：
#12楼 得分：0回复于：2003-06-02 20:23:17
我已经做出来的了，我的进度条就是要根据每次发多少或每次收多少来决定它的进度是多少
假如每次发9k，那我的进度条每次就要进9K对应的进度，你所说的方法是控件用的方法，而我的进度条当取得每次发送或收到的字节数后，只要两行代码

你找到只用两行代码的进度条吗？而且你所说的是现成的，而我的是自己独立开发的

对我有用[0]丢个板砖[0]引用举报管理TOP

Wit253
(阿狼)
等　级：
#13楼 得分：0回复于：2003-06-02 20:29:29
Winsock的确一次不能传8K以上，你们之所以能传8K是因为你们的Winsock打了补丁SP5
它帮你分段发了，所以感觉上是可以
去看看TCP/IP的书吧
对我有用[0]丢个板砖[0]引用举报管理TOP

Wit253
(阿狼)
等　级：
#14楼 得分：0回复于：2003-06-02 20:30:43
不信的话，你可以试一下不打补丁的VB
对我有用[0]丢个板砖[0]引用举报管理TOP

rappercn
(rapper)
等　级：
#15楼 得分：0回复于：2003-06-02 20:46:05
to GetWindowPos(阿汪)

我解决问题的观点就是用最简洁的办法+最短的时间完成尽可能多的东西，客户没时间等我研究那些他们认为没必要的东西。
你用了两行，你牛X，OK？我用这东西是用来赚钱，不是让我的变得更能解决问题。
还有，我非常喜欢用现成的东西，我觉得那些东西放在那里不用，就是可惜，而且最关键的是自己的成果不被认可。不过话说回来，你喜欢用自己写的，那是你的兴趣，每个人都有自己的爱好，我不需要评价。
我来csdn是为了学点东西，也为了用我知道的尽量帮助别人，不是斗嘴。

前面的回复语气有问题，我向你承认错误，OK？
就到此为止吧，你的成果你要是愿意公开，我很欢迎。

还有，如果知道命名管道的解决方案，希望一起公开。
对我有用[0]丢个板砖[0]引用举报管理TOP

GetWindowPos
(阿汪)
等　级：
#16楼 得分：0回复于：2003-06-02 20:48:14
如果是在网络上的话，5K都没有，如果是单机绝不止8K，我说得很清楚了，是WINSOCK在接收数据时8K8K地收，但这不等于发送的WINSOCK是8K8K地发
对我有用[0]丢个板砖[0]引用举报管理TOP

odusseus
(龙会飞吗?)
等　级：
#17楼 得分：0回复于：2003-06-02 22:51:34
搂主委何不把自己的代码公开呢？
对我有用[0]丢个板砖[0]引用举报管理TOP

Tenner
(BE.Tenner)
等　级：
#18楼 得分：0回复于：2003-06-02 23:01:59
用一个 Picture 控件就可以实现一个进度条了，一行代码就行
对我有用[0]丢个板砖[0]引用举报管理TOP

GetWindowPos
(阿汪)
等　级：
#19楼 得分：0回复于：2003-06-02 23:13:06
我就是用楼上的这种方法，之所以我用了两行，是因为有一行用来算网速
现在公开代码也是没头没脑的，而且我想大家应该还是喜欢用现成的。
对我有用[0]丢个板砖[0]引用举报管理TOP

hengxin54
(火星)
等　级：
#20楼 得分：0回复于：2003-06-03 10:59:41
以大于8K的数据包来传输文件, 结果会出错, 我测试过, 所以在传输时最好不要大于8K, 一是为了数据包的完整性, 二是为了更准确的传输.
控制进度条需要先算出文件的大小, 然后每次传送的数据相迭加, 这样来算百分比.
对我有用[0]丢个板砖[0]引用举报管理TOP

a11s
(没事情做了)
等　级：
#21楼 得分：0回复于：2003-06-06 14:00:28
我用Winsock.dll 做了一次试验设置了多个缓冲区结果如下
发送 接收
<4000Byte 正常
<8000Byte 正常
<16000 失败了一次（9xxx)
<32000 成功过（很多次）
> 32000 只能收到最后32000Byte（每次）

个人的一点看法：
虽然我用的不是OCX但是我认为即使是WinSockControl也是调用的Winsock.dll
也许跟DLL的版本有一定的问题。（我没有收集DLL的爱好）
我用的是VB6+SP5,用WinsockOCX传送EXE从来没有成功过(悲哀)
(Winsock.DLL 类模块封装中...)
对我有用[0]丢个板砖[0]引用举报管理TOP

GetWindowPos
(阿汪)
等　级：
#22楼 得分：0回复于：2003-06-06 15:33:30
OCX始终要比单一的DLL要好，其实很简单，如果所有DLL都跟OCX的功能一样，那VB就简洁多了，微软可以把添加OCX变为引用DLL声明，这样多方便？
对我有用[0]丢个板砖[0]引用举报管理TOP

a11s
(没事情做了)
等　级：
#23楼 得分：0回复于：2003-06-07 00:14:24
ActiveDLL?
对我有用[0]丢个板砖[0]引用举报管理TOP

a11s
(没事情做了)
等　级：
#24楼 得分：0回复于：2003-06-07 00:39:53
我经常使用，的确ActiveXDLL省略了 "Declare Function ..... "
但是每增加一个AXDll都要往注册表里注册新类看一看Windowz下的Dll数量
就明白M$为什么不做成AXDll了(Windoz受不了的)

在我看来OCX 和 DLL 一样，那个好用用那个，4年前只会用OCX。现在发现
Windowz下的DLL真是太多了，有许多功能M$都已经为我们准备好了，不用白不用

真要是自己把DLL封装成类模块，一样很好用，并且非常节省空间，即使别人没有安装OCX，软件
仍然照用，不也是很好么？

我不是说OCX不好用，我只是不希望产生这样的误导：某些人（很多）认为VB除了找控件以外
什么都做不了。这样就有人对VB产生歧视态度（比如我的一个老师），更可怕的是4年前的我
也是这样认为的

（对不起，好像说了太多与主题无关的话）
对我有用[0]丢个板砖[0]引用举报管理TOP

thirdapple
(.:RNPA:.陨落雕 - 非)
等　级：
#25楼 得分：0回复于：2003-06-07 01:12:44
哦，楼主的进度条只用了两行？我用了100多行写一个进度条用户控件，汗....
对我有用[0]丢个板砖[0]引用举报管理TOP

GetWindowPos
(阿汪)
等　级：
#26楼 得分：0回复于：2003-06-07 10:40:01
DLL会根据操作系统的变化而变化啊，你总不希望自己的程序只在自己的电脑上稳定吧
对我有用[0]丢个板砖[0]引用举报管理TOP

GetWindowPos
(阿汪)
等　级：
#27楼 得分：0回复于：2003-06-07 10:50:34
我用两行写的进度条虽然方便，但在不同的程序上就不能用，需要重新写代码，用控件的进度条就像一个公共模块，只要添加了就能用，各有利弊，但我个人认为，就算再怎么麻烦，一千行的代码如果能代替一个几K的控件，我也会选前者，因为现在菜鸟太多，把控件随便一扔，那个程序就打不开了，我的目的就达不到了，只有靠这样才能防止一些不必要的意外
对我有用[0]丢个板砖[0]引用举报管理TOP

pigsanddogs
(我爱吃猪肉,但是长不胖,为什么)
等　级：
#28楼 得分：0回复于：2003-06-08 11:55:41
关注此问题
winsock是不是最多一次只能传8k，反正我有时候传超过8k，也能传送，对方分几次接收。但信息完整，在LAN中的实验，打过sp4的补丁，也许如 Wit253(阿狼) 所言：
“Winsock的确一次不能传8K以上，你们之所以能传8K是因为你们的Winsock打了补丁SP5
它帮你分段发了，所以感觉上是可以”
不过有一点是可以肯定，并不是“因为一个ip包只能传8k字节，所以他帮你分段发送”
一个ip包最大可以有64k，在ip报文头用2个字节说明，但是一般以太网的MTU只有1500字节
不知道这个8k是怎么定义的。。

以下参考都是　win2k，　vb6　sp4　下的结果
以前也听别人说过这个问题，默认是buf 是8k大小，并且不能改变，那样假设我每次都发送8k
我连续快速发送2个包，是否会第一个包准备发送，进buf，然后发送了3k，这个时候第2个包又准备发送，进buf，可是buf只有5k了，那不是要丢失数据？
事实证明不会丢失数据，做个实验，在qq上面找了个ip，开了21port的
dim byt() as byte
redim byt(999999) as byte
dim i as long
for i = 1 to 100
winsock.senddata byt
next i
事实证明，winsock的buf不是这样分配的，他是动态分配的，你运行这个程序，
用2k的任务管理器可以观看到，经过了这个循环，内存增加了100M，你可以很快的看到
project1这个进程增加了100m的内存，但是在增加的过程中（可能只有1s）的时间，同时观看网络
包确实有数据发送出去了，这个时候出了这个函数，　内存实际上是增加了1000000*100 - sended个字节，sended=执行这个循环的时间*实际发送线程（socket线程）的速度，然后过了这个循环以后，内存也慢慢释放，同时可以观看到网络数据出去了。另外还做了一些其他实验，
在这里可以肯定几个问题
1：可以肯定，vb中一旦引用了winsock控件，并且只要使用过winsock的一个属性方法等，
　　　winsock便创建出了一个单独线程，以后，不管winsock控件怎么动态加载啊什么的，也是
　　　这个socket线程，vb程序有且只有一个socket线程，这个线程负责发送数据和接收数据
并且采用定时器的机制（查询），看是否有需要发送数据和等待接收数据，它同样对应着2
个队列，由于是单独线程，所以不受vb的影响，不会由于接收数据太大，而来不急取出数据的
情况
2：一旦winsock执行了senddata的方法，数据立刻socket线程放在缓冲队列的后面，也就会
增加内存呵，函数返回只能证明data已经提交给了socket线程
3：socket线程发现有数据就通过协议族发送出去，并且动态释放缓冲队列的内存
4： 由于是不同的线程，这就是为什么刚在循环中即便没有加dovents，在循环过程中还是有少量
数据（上面的sended）发送出去的原因
5： 为什么有时候发送了2个用户包，而对方却收到了1个用户包，因为你连续的senddata拉，在
socket线程，的一个检测周期就望socket的buf放了2批数据，当然他认为是1批啊，于是就全
部发送出去拉当然，他会拆分成1500一个ip包（以太网的MTU，最大传送单元），在对方
的socket线程里面，他在一个检测周期发现了数据于是做一个包触发一个事件给vb一个通知，
不过这里面还多了个判断而已，就是如果这个包太大了（大于8k），他就给2个或2个以上事件
这也是为什么接收包一次只能8k的原因，如果用户在2次发送的过程中加了doevents，
这个时候呢，呵呵，提交了一披数据给socket buf，然后doevents,让系统检测下还有没有
消息队列没处理。。。这当然需要时间，就坏事在这个地方了，过了这个时间，又提交了2批的
socket buf， 虽然doevents要的时间很小，不过比起socket buf的一次检测时间（定时器）
还是大的， 所以他就发送了2个用户包出去拉（这2个用户包的间隔时间就是doevents的时间
+-检测时间），考虑网络稳定情况下，对方接收到2个包的间隔也是这个时间，但对方的接收检
测时间跟发送方的发送检测时间相同，于是就认为是接收到了2个包
6： 如果发送给多个用户， 即
dim i as long
for i = 1 to 10
winsock(i).senddata xxx
next i
如果不加doevents，可能只有最后一个 winsock（10）收到了数据，不同前面的给单个用户
发，不存在数据丢失问题，这可能是winsock的一个bug，不要忘记他是在一个线程中处理 多个
socket连接的：） ，加了doevents后，他可是没个包都能检测到，然后单独发送，就不会
有上面问题

以上个人看法，根据实验结果获取，还望大家共同探讨
真理越辩越明
对我有用[0]丢个板砖[0]引用举报管理TOP

flashdot
(雨中散步)
等　级：
#29楼 得分：0回复于：2003-06-09 09:25:58
欢迎大家继续讨论。根据我写sock程序的经验：其实有以下规律（以传送图像或音频文件为例）
假定当前传送的文件> 8k，当我们把该文件写入字节数组时，其数组维数大于8192。当调用senddata
方法进行发送时，如果数据维数大于8192,wcksock自动分段发送（在SendProgress事件中可监测整个发送状态），而wcksock的DataArrival事件则多次接受。如果需要确定的是文件传送完毕的状态和整个发送的状态可以在SendComplete和SendProgress中确定。
如果我们连续发送文件或采取断点续传方式发送，则需要其他算法。
对我有用[0]丢个板砖[0]引用举报管理TOP

lsun621
等　级：
#30楼 得分：0回复于：2003-06-09 11:43:58
to pigsanddogs(我爱吃猪肉,但是长不胖,为什么??) :
你说如果发送给多个用户， 即
dim i as long
for i = 1 to 10
winsock(i).senddata xxx
next i
如果不加doevents，可能只有最后一个 winsock（10）收到了数据，不同前面的给单个用户发，不存在数据丢失问题，这可能是winsock的一个bug，不要忘记他是在一个线程中处理 多个socket连接的：） ，加了doevents后，他可是没个包都能检测到，然后单独发送，就不会有上面问题。
*****但这样，要保证在很短的时间发送多个数据包就不好实现了？每doevents一次，在发送一个数据包，等发完十个数据包，可能发送的时间间隔就会超过要求了！怎么办？
对我有用[0]丢个板砖[0]引用举报管理TOP