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
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大家看看这块有问题吗?
停在了这行wscData.GetData bytData, vbArray + vbByte, bytesTotal
谁知道是怎么回事
Get m_intLocalFileID, , strData
strData一般都是string类型吗?会不会有影响?
我是4k一个拆开传的