السلام عليكم لدي برنامج لإرسال صورة من العميل إلى السيرفر وأريد أن أجعل العميل يرسل عدة صور متتالية والسيرفر يستقبلها وتظهر لديه إيضاً بشكل متتابع
جهة السيرفر:
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports System.IO
Public Class Form1
Dim th As Thread
Dim pth As String = "@NOOR2:\c#"
' Dim pth1 As String
Dim n As Integer = 1
Sub srvr()
Dim ser As TcpListener = New TcpListener(8500)
ser.Start()
While (True)
Dim clnt As Socket = ser.AcceptSocket()
Dim ns As NetworkStream = New NetworkStream(clnt)
PictureBox1.Image = Image.FromStream(ns)
' pth = pth1 & n & ".JPG"
PictureBox1.Image.Save(pth & n & ".jpeg")
n = n + 1
ns.Close()
clnt.Close()
End While
ser.Stop()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
th = New Thread(AddressOf srvr)
th.Start()
' pth1 = "c:\p"
End Sub
End Class
جهة العميل
Imports System.Text
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim clnt As TcpClient = New TcpClient("127.0.0.1", 8500)
Dim ns As NetworkStream = clnt.GetStream
Dim bw As BinaryWriter = New BinaryWriter(ns)
Dim ms As MemoryStream = New MemoryStream()
Dim ofd As OpenFileDialog = New OpenFileDialog()
ofd.Filter = "image(*.jpg)|*jpg|bitmap(*.bmp)|*.bmp"
ofd.ShowDialog()
Dim pic As PictureBox = New PictureBox()
pic.Image = Image.FromFile(ofd.FileName)
pic.Image.Save(ms, Imaging.ImageFormat.Jpeg)
Dim ba() As Byte = ms.GetBuffer
ns.Write(ba, 0, ba.Length)
bw.Close()
ns.Close()
ms.Close()
End Sub
End Class