服务器端(发送图片)代码如下:
With Me.OpenFileDialog1
.AddExtension = True
.CheckFileExists = True
.CheckPathExists = True
.Filter = "位图(*.bmp)|*.bmp|jpg图象(*.jpg)|*.jpg"
.ShowDialog()
Name = .FileName
End With
Dim filestream As New IO.FileStream(Name, IO.FileMode.OpenOrCreate)
Dim msg(filestream.Length) As Byte
filestream.Read(msg, 0, msg.Length - 1) '读取文件中的数据,然后保存到msg中
clientsocket.Send(msg, msg.Length, SocketFlags.None)
filestream.Close() '关闭文件流
客户端代码(接收图片)
Public Sub socketReceive() '接收图片的函数
While (True)
Dim recvbytes(2000000) As Byte
clientsocket.Receive(recvbytes, recvbytes.Length,SocketFlags.None)
'使用内存流创建image对象
Dim mStream As IO.MemoryStream = New IO.MemoryStream(recvbytes)
Me.PictureBox1.Image = Image.FromStream(mStream)
mStream.Close()
End While
End Sub