用socket实现简单的文件传输

'发送端：
'By wgscd

 Dim sendsocket As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
        '实例化socket
        Dim ipendpiont As New Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 8888) '建立终结点
        'OpenFileDialog1.ShowDialog()
        Dim fs As New IO.FileStream("c:\wgscd.dat", IO.FileMode.OpenOrCreate, IO.FileAccess.Read) '要传输的文件
        Dim fssize(fs.Length - 1) As Byte
        Dim strread As New IO.BinaryReader(fs) '流处理要传输的文件
        'fs.Read(fssize, 0, fssize.Length - 1)
        strread.Read(fssize, 0, fssize.Length - 1)
        sendsocket.Connect(ipendpiont) '连接远程计算机
        sendsocket.Send(fssize) '发送文件
        Label1.Text = fs.Length()
        fs.Close()
        sendsocket.Shutdown(Net.Sockets.SocketShutdown.Send)
        '关闭发送连接
        sendsocket.Close() '关闭本机socket
=======================================

接收端：
 Dim receivesocket As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork,Net.Sockets.SocketType.Stream,Net.Sockets.ProtocolType.Tcp)
    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
        Dim hostipendpiont As New Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 8888)
        receivesocket.Bind(hostipendpiont)
        '建立远程计算机的的socket
        receivesocket.Listen(2) '监听socket
    End Sub

    Private Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button1.Click
     
        Dim recbyte(229888990) As Byte
        Dim hostsocket As Net.Sockets.Socket = receivesocket.Accept()
        '同意和发送端计算机建立连接

        hostsocket.Receive(recbyte)
        If hostsocket.Receive(recbyte) > 0.1 Then
            MsgBox("yyyyy" & hostsocket.Receive(recbyte))
        End If

        Dim recfs As New IO.FileStream("c:\wgscd2.dat", IO.FileMode.OpenOrCreate)
        '接收数据并将其保存到一个新的文件中

        Dim newfilestr As New IO.BinaryWriter(recfs) '流写
        'recfs.Write(recbyte, 0, recbyte.Length - 1)
        newfilestr.Write(recbyte, 0, recbyte.Length - 1)
        recfs.Close()
        hostsocket.Shutdown(Net.Sockets.SocketShutdown.Receive)
        hostsocket.Close()
    End Sub

本文地址：http://com.8s8s.com/it/it42253.htm