那位高手帮个小忙?

Question

assume you are using winsock control, try something like this (from dejanews):Public Function SendPic(PicFileName As String) As BooleanStatic ThisFile As Long
Dim XferSize As Long
Dim Content() As ByteOn Error GoTo SendFailed    RaiseEvent SendBegin    ThisFile = FreeFile
    Open PicFileName For Binary As ThisFile
        XferSize = LOF(ThisFile)
        ReDim Content(XferSize - 1)
        Get ThisFile, 1, Content()
    Close ThisFile
    Kill PicFileName    Sending = True
    Winsock1.SendData 3 ''picture format
    While Sending
        DoEvents
    Wend    Sending = True
    Winsock1.SendData XferSize
    While Sending
        DoEvents
    Wend    Sending = True
    Winsock1.SendData Content
    While Sending
        DoEvents
    Wend
 SendFailed:
End Function

Answer 1

不好意思,连接受的源码一并给我好吗?