07-04-14, 10:11 AM
كود :
Imports System.IO
Imports System.Net.Sockets
Imports System.Net
Public Class Form1
Dim ofd As New OpenFileDialog
Dim listener As TcpListener
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
ofd.Filter = "Jpg(*.jpg)|*.jpg|png (*.png)|*.png|gif (*.gif)|*.gif"
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim mypic_path As String = ofd.FileName
PictureBox1.Image = Image.FromFile(mypic_path)
Dim ms As MemoryStream = New MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim arrImage As Byte() = ms.GetBuffer
ms.Close()
Dim myclient As TcpClient = New TcpClient("192.168.1.2", 9999)
Dim myns As NetworkStream = myclient.GetStream
Dim mysw As BinaryWriter = New BinaryWriter(myns)
mysw.Write(arrImage)
mysw.Close()
myns.Close()
myclient.Close()
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
listener = New TcpListener(IPAddress.Any, "9999")
Dim athread As New Threading.Thread(AddressOf list)
athread.Start()
End Sub
Private Sub list()
listener.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If listener.Pending Then
Dim mysocket = listener.AcceptSocket
Dim myns = New NetworkStream(mysocket)
PictureBox2.Image = Image.FromStream(myns)
End If
End Sub
End Class