一般情况下上传时候,传一个包大小多少?我是4096,通常是怎么做的?请指点

解决方案 »

  1.   

    Private Sub wscData_DataArrival(ByVal bytesTotal As Long)
        Dim strData As String
        Dim bytData() As Byte
        
        wscData.GetData bytData, vbArray + vbByte, bytesTotal 
        strData = StrConv(bytData, vbUnicode) 
        'Debug.Print strData
        If m_bTransferInProgress Then
            If m_bFileIsOpened Then            Put m_intLocalFileID, , strData            m_lDownloadedBytes = m_lDownloadedBytes + bytesTotal
                RaiseEvent DownloadProgress(m_lDownloadedBytes)
            End If
        Else
            m_strDataBuffer = m_strDataBuffer & strData
    '        Debug.Print strData
        End If
        
        m_objTimeOut.ResetEnd Sub大家看看这块有问题吗?
      

  2.   

    每次传输到最后的时候都是报错40006
    停在了这行wscData.GetData bytData, vbArray + vbByte, bytesTotal 
    谁知道是怎么回事
      

  3.   

    请问在上传的时候,大小一般分为多大?
    Get m_intLocalFileID, , strData
    strData一般都是string类型吗?会不会有影响?
    我是4k一个拆开传的