تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 160 أمس, 04:58 AM
آخر رد: a.baomar
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 110 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 105 22-05-17, 09:25 AM
آخر رد: hglogtd
  ارجو المساعدة لو تكرمتم rabeh.ram 4 88 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  منع تعديل التاريخ والوقت ريم النهاري 7 149 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 56 17-05-17, 05:14 PM
آخر رد: 0theghost0
  ارجو المساعدة حفظكم الله rabeh.ram 2 94 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 205 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 251 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  ارجو المساعدة في تصحيح الخطا rabeh.ram 5 93 13-05-17, 01:11 AM
آخر رد: rabeh.ram

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


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