专题：   软件测试   马云VS史玉柱    C#   社区   企业信息化    工作流    云计算           移动嵌入串串烧 
更多精彩专题

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

2007-04-04     推荐:335247302    收藏:216924537    评论:0     来源:网络　
在这个简单的例子中我们将通过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动态库也可以解决这个问题。

您可以针对本文进行：[评论]  [收藏]  [推荐]   [查看原文链接]  
我想发表评论：
用户名密码
  • 匿名发表
    验证码：
    • 资讯热点文章
      • 专题
        • 文章排行