讨论：关于用winsock进行文件传输的两个小问题

我现在正在把自己写的一个文件传输的代码封装为类，有两个小问题跟大家请教和讨论一下：
1、大家都知道winsock的缓冲区大小是8K，大文件需要分包发送，那么这个包的大小设为多少比较合适呢？我参考了几个文件传输的代码，有的设置为1K多，有的4K多，有的甚至是64K。据说IE的数据包大小是1045字节，因为这个大小最不容易引起网络阻塞，不知道这是不是真的？按我的理解，应该综合考虑联网方式、网速快慢、CPU处理能力等因素来决定这个包的大小。我以前的包的大小是8192字节，也就是正好是缓冲区的大小，在本机上或局域网中测试正常，外网间传输时有时会中途卡死，没有查到别的原因，是不是数据包的大小不合适造成了阻塞？
2、我的发送部分关键代码如下：

    If m_lFileSize <= TRUNK_MAX_SIZE Then           '如果要发送的文件小于数据块大小，直接发送

        ReDim bData(1 To m_lFileSize)               '根据文件长度重新定义数组大小

        Get #nFileNum, , bData                      '读取数据

        Close #nFileNum                             '关闭文件

        wskData.SendData bData: DoEvents            '发送数据

       GoTo SendFinished

    End If

    

    '文件大于数据块大小，进行分块发送，直到剩余<=TRUNK_MAX_SIZE的最后一块

    Do Until (m_iPos >= (m_lFileSize - TRUNK_MAX_SIZE))     '发送整块数据的循环

        ReDim bData(1 To TRUNK_MAX_SIZE)                    '定义数组用于存放数据

        Get #nFileNum, m_iPos + 1, bData                    '读取数据

        wskData.SendData bData: DoEvents                    '发送数据

        'RaiseEvent SendedSizeChanged(m_iPos)                '触发SendedSizeChanged事件

        m_iPos = m_iPos + TRUNK_MAX_SIZE                    '移动iPos，使它指向下次要读的数据

    Loop

    

    '发送最后一块

    ReDim bData(1 To m_lFileSize - m_iPos)                  '定义数组

    Get #nFileNum, m_iPos + 1, bData                        '读取数据

    wskData.SendData bData: DoEvents                        '发送数据

接收部分关键代码如下：

Private Sub wskData_DataArrival(ByVal bytesTotal As Long)

    Dim bData() As Byte

    Dim nFileNum

    nFileNum = FreeFile

    Open m_sLocalFile For Binary As #nFileNum           '打开文件准备写入数据

    m_lReceivedSize = LOF(nFileNum)                     '获取已保存文件大小

     RaiseEvent ReceivedSizeChanged(m_lReceivedSize + bytesTotal) '触发ReceivedSizeChanged事件

    ReDim bytData(1 To bytesTotal)

    wskData.GetData bData                               '获取数据

    Put #nFileNum, m_lReceivedSize + 1, bData

    Close #nFileNum                                     '每次写入后都关闭文件

     If m_lReceivedSize + bytesTotal = m_lFileSize Then  '如果当前文件已接收完成

        m_bReceivedOK = True

    End If

End Sub

以上代码请大家看看有没有不合适的地方？特别是接收部分，每次接到数据包都进行保存与先用copymemory放到一个数组等到全部接收完毕再保存效率相差大不大？