怎么样用winsock来传输文件

Question

当服务端的winsock向客户端的winsock发送一条消息后，由客户端的winsock向服务端的winsock传送一个文件，怎么做呀？搞死我了，以前没有用过这东东我想知道的不是传输文件，而是两个winsock如何进行传输信息最要有相关代码！！谢谢大家！！

Answer 1

TCP/IP File Transfer via Winsockhttp://www.freevbcode.com/ShowCode.Asp?ID=988
http://www.freevbcode.com/code/both.zip

Answer 2

SERVER:
Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocolWinsock1.LocalPort = 1001
Winsock1.Listen
'Form2.ShowEnd SubPrivate Sub Text1_Change()
Winsock1.SendData Text1.Text
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
   Winsock1.Close
End If
 Winsock1.Accept requestID
 
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata
Text2.Text = strdataEnd SubCLIENT:
Private Sub Command1_Click()
Winsock1.Connect
End SubPrivate Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "PCNAME"
Winsock1.RemotePort = 1001End SubPrivate Sub Text1_Change()
Winsock1.SendData Text1.Text
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata
Text2.Text = strdataEnd Sub
验两个窗体互相传递信息