主题：[求助]OpenQQ批量下载时会出错，会是BUG吗？

因些我才怀疑是否多线程发送文件这块做得是否还是不够严谨

假如确定没办法的话，我也可以用队列的方式来处理

 如果你在遍历的过程中，集合的值发生改变，就会报那个错。

 肯定是你代码问题，做实例发上来。

值对与错都不会影响服务器的，因为服务器接收到信息，分析信息并核对文件，都正确才向终端发文件

接收的信息与文件都对就返回文件，信息不对就返回信息

现在出错的是服务器，不是终端

If Emeg.Contains("EDOWICO♂") Then
    'QQClient.Send("EDOWICO♂" & strMD5,True)    '终端请求下载图标文件信息
    Dim strMD5 As String = Emeg.split("♂")(1)   '获取信息内容的MD5
    Dim cmd1 As New SQLCommand
    cmd1.ConnectionName = gs_strActiveConn
    cmd1.CommandText = "s elect * from EimFileLog where EMain = '1' and  MD5 = '" & strMD5 & "'"
    Dim dt1 As DataTable = cmd1.ExecuteReader   

    If dt1.DataRows.Count > 0 Then                     '如果已经传过相应的文件了
        Dim dr1 As DataRow = dt1.DataRows(0)
        Dim ico As String  = gs_QQServerPath & "System\ICO\" &  dr1("ICO")
        If FileSys.FileExists(ico) Then '如果指定的文件存在
            QQServer.SendFile(Euser,ico)           '发给终端
        End If
    Else '不成功
        QQServer.Send(Euser,"Eim服务器找不到文件!")
    End If
End If

这是关键的代码了，是用自定义函数来做的

再次反复测试，一到328个数据就出错，我删除了相应数据及文件，

再次测试也是停留在第328个数据

我再返过来在服务器用遍历文件的方式发送到终端，

结果全部发到本地，并完全接收完成

但服务器也是出现原来的错误！

If Emeg.Contains("EDOWICO♂") Then 

问题我检查一下。

但一次性发送300多个文件，是不负责任的设计。

我举个例子：

foxtable内在的文件传输，用的是分包，将一个大文件分成上千个包，一开始就发送10个包，每次检查有包发送成功的确认信号，就发下一个包，这样始终保持有10个左右的包处于发送状态，充分利用带宽，同时也不至于因为资源耗尽导致系统出错。
不仅仅是文件，OpenQQ在发送一些很长的字符串时，例如好友列表，离线消息等等，都是用这个方法，将字符串分割成包发送，不会一次发送出去。

所以你也可以改变设计思路，将要发送的文件加入一个集合。
第一次发送10个文件，利用这个事件检查是否有文件发送完成：
http://www.foxtable.com/webhelp/scr/3028.htm

http://www.foxtable.com/webhelp/scr/3030.htm

 一旦有文件发送完成，就发送下一个待发文件，始终保持有10个文件处于发送状态，高效稳定。