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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 37 29-11-16, 01:37 AM
آخر رد: hglogtd
  حفظ صورة الموظف في جدول مستقل أبووسم 3 180 18-11-16, 03:56 PM
آخر رد: أبووسم
  ارسال محتوى DataGridView1 الى ايميل nabil.1710 11 353 16-11-16, 09:05 PM
آخر رد: nabil.1710
  ارجو المساعدة في كود VB.NET 7 106 16-11-16, 03:20 AM
آخر رد: أبو عمر
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 72 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 188 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 105 09-11-16, 12:32 PM
آخر رد: نوريس
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 263 05-11-16, 12:00 PM
آخر رد: Adrees
  اسف تم عمل 2 موضوع بالخطاء ارجو اذالة هذه الموضوع Mohamed20 0 58 02-11-16, 11:47 PM
آخر رد: Mohamed20
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم

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


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