[Basil Abdallah]

كل الشكر لكم احبائي على مشاركاتكم الرائعه
لي عودة انشاء الله

---

(10-01-17, 02:31 PM)الشاكي لله كتب : امم ..جرب هذي :

PHP كود :

Dim wc as new WebClient
Dim imgData As Byte() = wc.DownloadData("url")
Using (Dim ms As new System.IO.MemoryStream(imgData))
   Using (Dim img = Image.FromStream(ms))
      PictureBox1.Image = img
End Using
End Using 


للاسف لم تنفع 
هي و ال PictureBox1.load واحد

---

(10-01-17, 03:20 PM)مساعدة كتب : السلام عليكم

تصحيح لكود الأستاذ الشاكي لله

كود :

Dim wc as new WebClient
Dim imgData As Byte() = wc.DownloadData("url")
Using ms As new System.IO.MemoryStream(imgData)
     PictureBox1.Image = Image.FromStream(ms)
End Using

مع أنه يمكن تحميل الصورة مباشرة في الأداة بخاصية واحدة وهي

كود :

PictureBox1.ImageLocation = "url image"

لكن طلب الاستاذ Basil هو كيفية رفع الصورة الموجودة في أداة PictureBox إلى السيرفر باستخدام الأمر UploadFile،
وتكون الطريقة لكود الأستاذ بحفظ الصورة أولا بملف مؤقت ثم رفعها
تفضل الكود

كود :

If PictureBox1.Image IsNot Nothing Then

   Dim filename As String = "picture.jpg"
   PictureBox1.Image.Save(filename)

   Dim server As New WebClient
   server.Credentials = New Net.NetworkCredential("Username", "Password")
   server.UploadFile("رابط السيرفر ", filename)

End If

---

ممكن يفيدك مشاهدة هذا الدرس



https://www.youtube.com/watch?v=azkTFwA0bXM

اشكرك اخي الغالي على مساعدتك الطيبة مقدر وقفتك معي

جربت من قبل 
PictureBox1.ImageLocation = "url image" ولم تفلح ايضا

وبخصوص رفع الصورة نعم بالفعل انا وجدت انها افضل طريقة هي وضع كود رفع الصورة في تايمر 
بحيث بعد رفع الصورة يقوم بحذفها من المجلد الي فيه الصورة عشان يتم تصوير صورة اخرى مباشرة و يرفعها و هكذا طريقة عمل رفع الصور 

[Basil Abdallah]

كتبت كل الي لقيتو و الي خطر ببالي

كود :

   Dim ImagePath As String = "http://chat.freehostingphp.com/a.png"
           Dim img1 As Bitmap
           Dim newImage As Image = Image.FromFile("http://chat.freehostingphp.com/a.png")

           img1 = New Bitmap(ImagePath)
           PictureBox1.ImageLocation = ImagePath

           PictureBox1.Image = newImage

كود :

 Dim fileName As String = System.IO.Path.GetFullPath("http://chat.freehostingphp.com/a.png")
           PictureBox1.Load(fileName)

حتى 

كود :

           Dim ds As New DataSet


           ds.ReadXml("")
           Dim byteArray = CType(ds.Tables(0).Rows(0)(0), Byte())
           Dim ms As New IO.MemoryStream(byteArray)
           Me.PictureBox1.Image = Image.FromStream(ms)

كود :

      Dim fs As New IO.FileStream("", IO.FileMode.Open)
           Dim br As New IO.BinaryReader(fs)
           Dim byteArray = br.ReadBytes(CInt(fs.Length))
           br.Close()
           'just to show the sample without a fileread error
           Dim ms As New IO.MemoryStream(byteArray)
           Me.PictureBox1.Image = Image.FromStream(ms)

و ما زبط شي

حيرني الموضوع

[مساعدة]

إذا كنت ستعتمد اسلوب UploadFile فالافضل تعريف WebClient مرة واحدة حفاظا على ذاكرة الجهاز شاملة الصلاحية وتكون على مستوى الكلاس مثل هذا الكود

كود :

Class Form1
    Private server As New Net.WebClient With {.Credentials = New Net.NetworkCredential("Username", "Password")}
    '
    '

بعد ذلك يمكنك استخدم الأمر UploadFile فقط في الحدث المناسب


هذا إذا لم ترغب طريقة درس الفيديو

[Basil Abdallah]

(10-01-17, 04:44 PM)مساعدة كتب : إذا كنت ستعتمد اسلوب UploadFile فالافضل تعريف WebClient مرة واحدة حفاظا على ذاكرة الجهاز شاملة الصلاحية وتكون على مستوى الكلاس مثل هذا الكود

كود :

Class Form1
   Private server As New Net.WebClient With {.Credentials = New Net.NetworkCredential("Username", "Password")}
   '
   '

بعد ذلك يمكنك استخدم الأمر  UploadFile فقط في الحدث المناسب


هذا إذا لم ترغب طريقة درس الفيديو

اشكرك ساقوم بتعريف الويب كلاينت مرة واحدة بطريقتك 

ولكن انا الان انتهيت من رفع الصورة للسيرفر
الان انا بدي طريقة لجعل هذي الصورة الي رفعتها على السيرفر تنعرض في PictureBox1 فعلى سبيل المثال هذي الصورة http://chat.freehostingphp.com/a.png

[مساعدة]

حاول ان تستخدم رفع صور jpg ومقاس صغير نوعا ما لتقلل حجم بياناتها قدر الامكان

في التجارب حاول تستخدم مقاس صغير مثل 100×100 ونوع Jpg حتى تتأكد من نجاح العملية وبعد تطور وتعدل تدريجياً ما يقابلك من اشكالات.

---

لتحديد صيغة الصورة إلى Jpg في الأمر PictureBox1.Image.Save

كود :

PictureBox1.Image.Save ( filename , Imaging.ImageFormat.Jpeg )

[Basil Abdallah]

تمام اشكرك لي عودة انشاء الله

[Basil Abdallah]

للاسف لم تنجح انا مش عارف وين المشكلة مع العلم اني رجعت رفعت الصورة على مركز رفع و مصدر الصورةبمركز الرفع نفس مصدر الصورة في الصورة بالسيرفر
      
شو الحل الان ؟

      

[مساعدة]

قد تكون المشكلة لديك أنك لم تضف اسم للصورة مع مسار السيرفر

وحسب الموقع http://freehostingphp.com الذي تتعامل معه تكون ملفات داخل مجلد اسمه htdocs فيكون الكود

كود :

Private server As New WebClient With {.Credentials = New Net.NetworkCredential("Username", "Password")}

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If PictureBox1.Image IsNot Nothing Then

        Dim filename As String = "picture.jpg"
        PictureBox1.Image.Save( filename , Imaging.ImageFormat.Jpeg )

        server.UploadFile("ftp://ftp.freehostingphp.com/htdocs/" & "picture.jpg", filename)

    End If
End Sub

[مساعدة]

قمت بالتسجيل في نفس الموقع http://freehostingphp.com وتم رفع الصورة بنفس الكود في مشاركتي الأخيرة.

[Basil Abdallah]

اشكرك على وقفتك الجميلة معي فكرة بالموضوع ووجدة سيرفر ftp رح يكون فيه مشاكل و بطئ في رفع و تحميل الصور
وانا عندي خلفية في السوكت لذلك قررت اعمل البرنامج بهذي الطريقة