[سعود]

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

هذا هو الحل