[مساعدة]

السلام عليكم

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

كود :

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