• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

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

发布: 2007-5-26 13:55 | 作者: 佚名 | 来源: 互连网 | 查看: 40次 | 进入软件测试论坛讨论

领测软件测试网
  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.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网