请问VB中Winsock控件问题？

Question

把文件读到字符串中不就行了

Answer 1

我原来传送文件就是将文件一部分一部分读出，再分别传送，收到后再进行组装。

Answer 2

    Const BUF_SIZE = 1024
    Dim iFile As Integer
    Dim bytBuffer() As Byte
    Dim strFileName As String
    
    Winsock1.Protocol = sckUDPProtocol
    Winsock1.RemoteHostIP = "127.0.0.255"
    Winsock1.LocalPort = 3008
    Winsock1.RemotePort = 3001
    Winsock1.Bind
    
    strFileName = "f:\temp\2.txt"
    iFile = FreeFile
    Open strFileName For Binary Access Read As iFile
    Do Until EOF(iFile)
        ReDim bytBuffer(IIf(LOF(iFile) - Seek(iFile) > BUF_SIZE, BUF_SIZE, LOF(iFile) - Seek(iFile)))
        Get iFile, , bytBuffer
        Winsock1.SendData bytBuffer
    Loop
    Close iFile