如何用winsock在局域网内传输非文本文件？

提供点思路
传送文件用WINSOCK控件
分割文件用open(read、write)file
这是我从特定文件取小段数据的例子
Private Function SQLt()
    Dim a, b, c, d, e, f, g, s As Long
    Dim lpBuffer As Byte
    Dim Apath, Strsql, Strv, Strx, Stry As String
    Dim i As Integer
    Dim Sina As Single
For i = 0 To 15
    e = CLng(i + High * 66 + INindex * 8)
    Apath = App.Path & "\tempr.prn"
    a = CreateFile(Apath, GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, 0, 0)
    d = SetFilePointer(a, e, 0, FILE_BEGIN)
    f = ReadFile(a, lpBuffer, 8, c, ByVal 0&)
    If c <> 8 Then GoTo Err
    Strv = Chr(lpBuffer)
    Strsql = Strsql + Strv
Next i
    CloseHandle (a)
    Strx = Trim(Left(Strsql, 8))
    Stry = Trim(Right(Strsql, 8))
    Sina = Text8(INTa).Text - Int(Text8(INTa).Text * 200) / 200
    SQLt = Strx + Sina / 0.005 * (Stry - Strx)
Err:
End Function
我也用过这种方法储存图片文件
应该是可行的，当然办法比较笨了一点