منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ارجو تعديل كود ارسال ملف صورة عبر tcp/ip

حاولت في الكوك ولا فائدة اريد ارسال ملف صورة عبر 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

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

http://social.msdn.microsoft.com/Forums/...=vbgeneral

من يشرح كيف اعدل لارسل صورة

كود :

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

هذا هو الحل

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

سعود

سعود