WINSOCK控见传输文件时出现的错误 ：套接字不成块，制定的操作将分块，不知所云！


套接字不成块，制定的操作将分块，
是什么错误我用的是udp协议传输文件
在局域网内
请问如何解决？
Public Function FSfile(fn As Integer, Ffz As Long, Fl As Long, Fsock
As Winsock)
    '发送文件
    'Fn 文件号, Ffz 文件分组块数   ,Fl 文件长度,   Fsock 传输文件用的专
用sock控件
    Dim i As Long
    Dim datas() As Byte    ReDim datas(999)
    For i = 1 To Ffz
        If Ffz = 1 Then ReDim datas(1 To Ffz)
        If i = Ffz Then ReDim datas(1 To Fl - Loc(fn))
        Get fn, , datas
        Fsock.SendData datas
        Fsd = Loc(fn)
As Winsock)
    Next
End Function传输小文件是没问题单打于1m以上便出现以上错误
请高手指出错在那里谢谢！--