السلام عليكم
اعطاني اليوم احد الاخوة هذا الموقع
http://www.screenleap.com/ لعمل بث مباشر من الشاشة
ففكرت لو اني اقدر اسوي برنامج بنفس مبدأ هذا الموقع
بلشت في العمل و الان انا انهيته تقريبا و بعمل بشكل ممتاز مبدأ عمل البرنامج انه بلتقط صور متتالية للشاشة و برفعهن على موقع او سيرفر يدعم الـFTP و البرنامج الاخر يقوم بسحب هذي الصور من السيرفر و يقوم بعرضهن بسرعات متفاوتة بالترتيب
فعلا المشروع زبط معي بس المشكلة اني بدي كود يرفع الصور مباشرتا على سيرفر FTP كتبت كم كود ولكن ظهرت لي كم مشكلة
و رجعت لطريقتي الاولى الي هي بحفظ الصورة ثم يقوم برفعها على السيرفر
فلذلك لو في احد من المبرمجين عندهخبرة بالموضوع و يعطيني كود يقوم برفع الصورة الموجودة في PictureBox1 الى السيرفر
ممكن يفيدك هذا الكود
كود :
Dim server As New WebClient
server.Credentials = New Net.NetworkCredential("Username", "Password")
server.UploadFile("رابط السيرفر ", "مسار الصورة على جهاز الحاسوب")
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في الحقيقة رغم أنني لست متخصص في 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
الآن بإمكانك الرفع مباشرة بالكود الخاص بكأنتظرك
وينكم يا شباب بدي بس كود اوو فكرة او طريقة اي شي يفيدني
اعتذر لم ارى مشاركتك الجميلة انتضر ردي
(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
الآن بإمكانك الرفع مباشرة بالكود الخاص بكأنتظرك
انا مشكلتي كيف ارفع الصورة الى السيرفر و بخصوص التصوير لا مشكلة عندي فيه ابداً
فلذلك اتمنى ان يكون لديك جواب يكفي لسؤالي
السلام عليكم
استبدل مسار الصورة بـ ClipBoard.Getimage
وسيعمل إن شاء الله
انتا مش فاهم علي شوف هذي الصورة التقطها البرنامج - صورة عفوية
http://chat.freehostingphp.com/a.png
كيف اجعل الـPictureBox1 يعرض هذه الصورة مع العلم اني جربت الاكواد الشعبه و دوال الويب براوزر بس ما نفع معي
و جربت مرى اخرى و رفعت الصورة على مركز رفع و جربت افتحها على الPictureBox1 فتحت
فليش ما رضيت تفتح على الرابط بالاعلى هل من طريقة ؟
اكيد جربتها ومن يجهلها ؟
بس نفس الشي
ممم
احنا تركنا السؤال الرئيسي للموضوع و سؤالي كيف اخلي الPictureBox1 يعرض صورة مباشرتا من قاعدة البيانات وعلى سبيل المثال هذي الصورة
http://chat.freehostingphp.com/a.png
عشان تفهمو اكثر جربو الكود الاتي و ردولي خبر
كود :
Try
PictureBox1.Load("http://chat.freehostingphp.com/a.png")
Catch ex As Exception
MsgBox(ErrorToString)
End Try
السلام عليكم
تصحيح لكود الأستاذ الشاكي لله
كود :
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