请问VB中Winsock控件问题？

[miss]

请问在VB中怎样使Winsock控件可以发送文件？最好请您给我一个例子!谢谢!

[TopHead]

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

[liyang]

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

[Pizza]

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

[neulf]

请查找msdn,