[Basil Abdallah]

السلام عليكم 
اعطاني اليوم احد الاخوة هذا الموقع http://www.screenleap.com/ لعمل بث مباشر من الشاشة 
ففكرت لو اني اقدر اسوي برنامج بنفس مبدأ هذا الموقع 
بلشت في العمل و الان انا انهيته تقريبا و بعمل بشكل ممتاز مبدأ عمل البرنامج انه بلتقط صور متتالية للشاشة و برفعهن على موقع او سيرفر يدعم الـFTP و البرنامج الاخر يقوم بسحب هذي الصور من السيرفر و يقوم بعرضهن بسرعات متفاوتة بالترتيب 
فعلا المشروع زبط معي بس المشكلة اني بدي كود يرفع الصور مباشرتا على سيرفر FTP كتبت كم كود ولكن ظهرت لي كم مشكلة 
و رجعت لطريقتي الاولى الي هي بحفظ الصورة ثم يقوم برفعها على السيرفر

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

ممكن يفيدك هذا الكود 

كود :

  Dim server As New WebClient
           server.Credentials = New Net.NetworkCredential("Username", "Password")
           server.UploadFile("رابط السيرفر ", "مسار الصورة على جهاز الحاسوب")

[MSCFC]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

في الحقيقة رغم أنني لست متخصص في VB.NET

لكني سأجيبك بطريقة VB6 وربما ستفيدك إجابتي

يتم وضع PictureBox1 في فورم لمفرده ( فورم المعاينة )

بشرط تغير حالة الإطار ( border ) إلى None لا شيئ

ثم تقوم بعمل تصوير للفورم

هذا الكود يكون في General Decleration :

كود :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C

وهذا الكود كفيل بالتقاط صورة للفورم ونقلها إلى الحافظة :

كود :

keybd_event VK_SNAPSHOT, 1, 1, 1

الآن بإمكانك الرفع مباشرة بالكود الخاص بك

أنتظرك

[Basil Abdallah]

وينكم يا شباب بدي بس كود اوو فكرة او طريقة اي شي يفيدني

---

اعتذر لم ارى مشاركتك الجميلة انتضر ردي

---

(08-01-17, 09:59 PM)MSCFC كتب :

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

في الحقيقة رغم أنني لست متخصص في VB.NET

لكني سأجيبك بطريقة VB6 وربما ستفيدك إجابتي

يتم وضع PictureBox1 في فورم لمفرده ( فورم المعاينة )

بشرط تغير حالة الإطار ( border ) إلى None لا شيئ

ثم تقوم بعمل تصوير للفورم

هذا الكود يكون في General Decleration :

كود :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C

وهذا الكود كفيل بالتقاط صورة للفورم ونقلها إلى الحافظة :

كود :

keybd_event VK_SNAPSHOT, 1, 1, 1

الآن بإمكانك الرفع مباشرة بالكود الخاص بك

أنتظرك

انا مشكلتي كيف ارفع الصورة الى السيرفر و بخصوص التصوير لا مشكلة عندي فيه ابداً
فلذلك اتمنى ان يكون لديك جواب يكفي لسؤالي

[Basil Abdallah]

وينكم يا شباب ؟

[MSCFC]

السلام عليكم

استبدل مسار الصورة بـ ClipBoard.Getimage

وسيعمل إن شاء الله

[Basil Abdallah]

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

[الشاكي لله]

(09-01-17, 10:37 PM)Basil Abdallah كتب : انتا مش فاهم علي شوف هذي الصورة التقطها البرنامج - صورة عفوية  
http://chat.freehostingphp.com/a.png
كيف اجعل الـPictureBox1 يعرض هذه الصورة مع العلم اني جربت الاكواد الشعبه و دوال الويب براوزر بس ما نفع معي
و جربت مرى اخرى و رفعت الصورة على مركز رفع و جربت افتحها على الPictureBox1 فتحت
فليش ما رضيت تفتح على الرابط بالاعلى هل من طريقة ؟

جرب
PictureBox.Load

[Basil Abdallah]

اكيد جربتها ومن يجهلها ؟

بس نفس الشي
ممم

---

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

عشان تفهمو اكثر جربو الكود الاتي و ردولي خبر

كود :

Try
           PictureBox1.Load("http://chat.freehostingphp.com/a.png")
       Catch ex As Exception
           MsgBox(ErrorToString)
       End Try

[الشاكي لله]

امم ..جرب هذي :

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 


[مساعدة]

السلام عليكم

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

كود :

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