• 用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
  • 相关阅读:
    nodejs日志管理log4js
    js数组去重的几种方法
    Echarts同一页面多个图表自适应浏览器窗口大小——window.onresize
    Echarts自适应浏览器大小
    [原创]Nodejs 远程执行linux shell
    ssh无需密码登录linux服务器
    Nodejs mysql pool使用实例
    Activity基础知识
    最大熵模型介绍
    node-sass element-plus 安装失败
  • 原文地址:https://www.cnblogs.com/zhuor/p/308935.html
Copyright © 2020-2023  润新知