[سعود]

حاولت في الكوك ولا فائدة اريد ارسال ملف صورة عبر tcp/ip

كود :

Imports System.Text
Imports System.IO
Imports System.Net.Sockets
Imports System.Net
Imports System.Management

Public Class Form1
    Dim b() As Byte
    Dim ofd As New OpenFileDialog
    Dim listener As TcpListener
    Dim client As TcpClient
    Dim message As String
    Dim m() As Byte

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Text files (*.txt)|*.txt
        ofd.Filter = "Jpg(*.jpg)|*.jpg|png (*.png)|*.png|gif (*.gif)|*.gif"
        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            b = My.Computer.FileSystem.ReadAllBytes(ofd.FileName)
        End If

        If BackgroundWorker1.IsBusy = False Then
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        listener = New TcpListener("9999")
        listener.Start()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        client = New TcpClient("192.168.1.2", "9999")
        Dim streamw As New BinaryWriter(client.GetStream)
        streamw.Write(b)
        streamw.Flush()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If listener.Pending = True Then
            client = listener.AcceptTcpClient
            Dim streamr As New BinaryReader(client.GetStream)
            
            m = streamr.ReadByte




            My.Computer.FileSystem.WriteAllBytes("a.png", m, False)
            Process.Start("a.png")


        End If
    End Sub
End Class

ارجو ان اجد الحل على يديكم