كل الشكر لكم احبائي على مشاركاتكم الرائعه
لي عودة انشاء الله
(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" ولم تفلح ايضا
وبخصوص رفع الصورة نعم بالفعل انا وجدت انها افضل طريقة هي وضع كود رفع الصورة في تايمر
بحيث بعد رفع الصورة يقوم بحذفها من المجلد الي فيه الصورة عشان يتم تصوير صورة اخرى مباشرة و يرفعها و هكذا طريقة عمل رفع الصور 
كتبت كل الي لقيتو و الي خطر ببالي
كود :
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 فقط في الحدث المناسب
هذا إذا لم ترغب طريقة درس الفيديو
(10-01-17, 04:44 PM)مساعدة كتب : [ -> ]إذا كنت ستعتمد اسلوب UploadFile فالافضل تعريف WebClient مرة واحدة حفاظا على ذاكرة الجهاز شاملة الصلاحية وتكون على مستوى الكلاس مثل هذا الكود
كود :
Class Form1
Private server As New Net.WebClient With {.Credentials = New Net.NetworkCredential("Username", "Password")}
'
'
هذا إذا لم ترغب طريقة درس الفيديو
اشكرك ساقوم بتعريف الويب كلاينت مرة واحدة بطريقتك
ولكن انا الان انتهيت من رفع الصورة للسيرفر
الان انا بدي طريقة لجعل هذي الصورة الي رفعتها على السيرفر تنعرض في PictureBox1 فعلى سبيل المثال هذي الصورة
http://chat.freehostingphp.com/a.png
حاول ان تستخدم رفع صور jpg ومقاس صغير نوعا ما لتقلل حجم بياناتها قدر الامكان
في التجارب حاول تستخدم مقاس صغير مثل 100×100 ونوع Jpg حتى تتأكد من نجاح العملية وبعد تطور وتعدل تدريجياً ما يقابلك من اشكالات.
لتحديد صيغة الصورة إلى Jpg في الأمر PictureBox1.Image.Save
كود :
PictureBox1.Image.Save ( filename , Imaging.ImageFormat.Jpeg )
تمام اشكرك لي عودة انشاء الله
قد تكون المشكلة لديك أنك لم تضف اسم للصورة مع مسار السيرفر
وحسب الموقع
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
اشكرك على وقفتك الجميلة معي فكرة بالموضوع ووجدة سيرفر ftp رح يكون فيه مشاكل و بطئ في رفع و تحميل الصور
وانا عندي خلفية في السوكت لذلك قررت اعمل البرنامج بهذي الطريقة
