تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارجو تعديل كود ارسال ملف صورة عبر tcp/ip
#1
حاولت في الكوك ولا فائدة اريد ارسال ملف صورة عبر 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

ارجو ان اجد الحل على يديكم
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#2
http://social.msdn.microsoft.com/Forums/...=vbgeneral

من يشرح كيف اعدل لارسل صورة
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#3
كود :
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
هذا هو الحل
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] لكل خبير ارجو الحل Engmtamous 2 47 أمس, 07:19 PM
آخر رد: Engmtamous
  [سؤال] طريقة أخذ صورة من فيديو thevest_knight 3 58 أمس, 05:58 PM
آخر رد: thevest_knight
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 32 19-09-17, 03:33 PM
آخر رد: أبو نوره
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 113 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 518 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 161 06-09-17, 08:32 AM
آخر رد: gharib
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 82 27-08-17, 12:01 PM
آخر رد: khodor1985
  [كود] احتاج الى تعديل :( MeDo Ly 2 98 25-08-17, 11:41 PM
آخر رد: أبو نوره
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 264 24-08-17, 06:23 AM
آخر رد: احمد الامين
Music [كود] هل لدى احد فكره عن كيفيه ارسال ملفات صوتيه عبر الشبكة badrkamel 1 85 23-08-17, 02:23 AM
آخر رد: zinom

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم