+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برنامج شبية بالـTeemView (/showthread.php?tid=18738)
RE: برنامج شبية بالـTeemView - Basil Abdallah - 10-01-17
كل الشكر لكم احبائي على مشاركاتكم الرائعه
لي عودة انشاء الله
(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" ولم تفلح ايضا
وبخصوص رفع الصورة نعم بالفعل انا وجدت انها افضل طريقة هي وضع كود رفع الصورة في تايمر
بحيث بعد رفع الصورة يقوم بحذفها من المجلد الي فيه الصورة عشان يتم تصوير صورة اخرى مباشرة و يرفعها و هكذا طريقة عمل رفع الصور
RE: برنامج شبية بالـTeemView - Basil Abdallah - 10-01-17
كتبت كل الي لقيتو و الي خطر ببالي
كود :
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)
حيرني الموضوع
RE: برنامج شبية بالـTeemView - مساعدة - 10-01-17
إذا كنت ستعتمد اسلوب UploadFile فالافضل تعريف WebClient مرة واحدة حفاظا على ذاكرة الجهاز شاملة الصلاحية وتكون على مستوى الكلاس مثل هذا الكود
كود :
Class Form1
Private server As New Net.WebClient With {.Credentials = New Net.NetworkCredential("Username", "Password")}
'
'هذا إذا لم ترغب طريقة درس الفيديو
RE: برنامج شبية بالـTeemView - Basil Abdallah - 10-01-17
(10-01-17, 04:44 PM)مساعدة كتب : إذا كنت ستعتمد اسلوب UploadFile فالافضل تعريف WebClient مرة واحدة حفاظا على ذاكرة الجهاز شاملة الصلاحية وتكون على مستوى الكلاس مثل هذا الكوداشكرك ساقوم بتعريف الويب كلاينت مرة واحدة بطريقتك
بعد ذلك يمكنك استخدم الأمر UploadFile فقط في الحدث المناسبكود :
Class Form1
Private server As New Net.WebClient With {.Credentials = New Net.NetworkCredential("Username", "Password")}
'
'
هذا إذا لم ترغب طريقة درس الفيديو
ولكن انا الان انتهيت من رفع الصورة للسيرفر
الان انا بدي طريقة لجعل هذي الصورة الي رفعتها على السيرفر تنعرض في PictureBox1 فعلى سبيل المثال هذي الصورة http://chat.freehostingphp.com/a.png
RE: برنامج شبية بالـTeemView - مساعدة - 10-01-17
حاول ان تستخدم رفع صور jpg ومقاس صغير نوعا ما لتقلل حجم بياناتها قدر الامكان
في التجارب حاول تستخدم مقاس صغير مثل 100×100 ونوع Jpg حتى تتأكد من نجاح العملية وبعد تطور وتعدل تدريجياً ما يقابلك من اشكالات.
لتحديد صيغة الصورة إلى Jpg في الأمر PictureBox1.Image.Save
كود :
PictureBox1.Image.Save ( filename , Imaging.ImageFormat.Jpeg )RE: برنامج شبية بالـTeemView - Basil Abdallah - 10-01-17
تمام اشكرك لي عودة انشاء الله
RE: برنامج شبية بالـTeemView - Basil Abdallah - 10-01-17
للاسف لم تنجح انا مش عارف وين المشكلة مع العلم اني رجعت رفعت الصورة على مركز رفع و مصدر الصورةبمركز الرفع نفس مصدر الصورة في الصورة بالسيرفر
شو الحل الان ؟
RE: برنامج شبية بالـTeemView - مساعدة - 11-01-17
قد تكون المشكلة لديك أنك لم تضف اسم للصورة مع مسار السيرفر
وحسب الموقع 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 SubRE: برنامج شبية بالـTeemView - مساعدة - 11-01-17
قمت بالتسجيل في نفس الموقع http://freehostingphp.com وتم رفع الصورة بنفس الكود في مشاركتي الأخيرة.
RE: برنامج شبية بالـTeemView - Basil Abdallah - 11-01-17
اشكرك على وقفتك الجميلة معي فكرة بالموضوع ووجدة سيرفر ftp رح يكون فيه مشاكل و بطئ في رفع و تحميل الصور
وانا عندي خلفية في السوكت لذلك قررت اعمل البرنامج بهذي الطريقة