当前位置：首页 > 编程日记 > 正文

用.net中的socket实现文件传输

编程日记 2024-11-13 19:30:00

socket是网络套接字，使用它我们可以很方便的实现网络的数据传输。在.net中提供了socket类来帮助开

发者调用socket的使用，从而避免了调用socket的动态库来实现socket的麻烦。下面我们就来看一个简单的例子，从这个简单的例子来看看.net中的socket类实现socket是多么的方便。

　　编程思路：在这个简单的例子中我们将通过socket来实现文件的网络传输和接收功能。要实现这两个功能我们需要通过vs.net建立两个实例来完成。一个发送端，一个接收端。由于文中已经给出了详细的注释这里就不罗嗦了。

　　发送端

Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Button1_Click(ByVal sender As System.Object,
    　　ByVal e As System.EventArgs) Handles Button1.Click
        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("192.168.0.1"), 8888)'建立终结点
        'OpenFileDialog1.ShowDialog()
        Dim fs As New IO.FileStream("c:/p.doc",
　　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
    End Sub
End Class

　　接收端

Public Class Form1
    Inherits System.Windows.Forms.Form
    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("192.168.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 recfs As New IO.FileStream("p.doc",
　　IO.FileMode.OpenOrCreate)
　　'接收数据并将其保存到一个新的文件中
        Dim recbyte(229888) As Byte
        Dim hostsocket As Net.Sockets.Socket =
　　receivesocket.Accept()
　　'同意和发送端计算机建立连接
        Dim newfilestr As New IO.BinaryWriter(recfs)'流写
        hostsocket.Receive(recbyte)
        '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
End Class

　　通过上面的简单语句我们就完成网络文件的发送和接收，但是这里有一点要注意，此代码只可以接受文本文件和图片文件，对于其他文件的发送和接收将导致编码错误，如果你不相信你可以传输一个mp3文件，再在播放器中打开接收到的mp3文件，你会听到只有开头不到2秒的音乐可以播放。如果想解决这个问题你需要使用，net中的tcp/ip类或udp类来实现，当然调用底层的socket动态库也可以解决这个问题。

https://www.dkcj.cn/info/27366.html

用.net中的socket实现文件传输

相关文章：

ARP协议学习

数学，对人工智能开发者意味着什么

检查网站是否可以正常访问

使用.NET自带的类实现DataGrid报表的打印。

各种 AI 数据增强方法，都在这儿了

ORACLE11g 前期安装环境配置

linux mysql 卸载，安装，測试全过程

C#中获取程序当前路径的集中方法

如何开启远程（win7win8）

微软推出“ Group Transcribe”应用，多人多语言会议实时高准确度文字转录并翻译

STM32单片机外部中断配置讲解

ASP.NET 未被授权访问所请求的资源。请考虑授予 ASP.NET 请求标识访问此资源的权限

Android语音信号波形显示

科研费4年翻3倍，全球科研队伍突破8000人，滴滴致力打造出行领域核心技术

c++ 继承访问控制初步

Excel在.Net 环境下Web方式下驻留内存问题的解决

2.8 FSM之Moore和Mealy part3

对标GPT-3、AlphaFold，智源研究院发布超大规模智能模型系统“悟道1.0”

TCP Cluster for mqtt 技术实施方案

两台SQL Server数据同步解决方案

一个用微软官方的OpenXml读写Excel 目前网上不太普及的方法。

分析6千万条GitHub帖子，发现你的工作状态与表情符号强相关

软件定义网络对我们有多重要?

SQL Server数据库六种数据移动方法

[企业化NET]Window Server 2008 R2[3]-SVN 服务端和客户端基本使用

又一个Jupyter神器，操作Excel自动生成Python代码

CIR：2020年全球数据中心应用AOC市场达$42亿

Visual C＃创建资源文件

给IIS添加CA证书以支持https

MathWorks的AI之路：面向工业场景，打通开发到部署的全链路