تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنزيل ملف صورة من موقع ديناميكيا و عرضها في PictureBox
#1
كاتب الموضوع : Boutemine Oualid




كود :
Imports System
Imports System.Net
Imports System.IO

Public Class frmMain
'''<summary>
'''The stream buffer size.
'''</summary>
Public Const BufferSize As Integer = 512 * 1024
'''<summary>
'''The bloc reading size.
'''</summary>
Public Const BufferReadSize As Integer = 1024

Private Sub btnGetPicture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetPicture.Click
Dim imageRequest As HttpWebRequest
Dim serverResponse As WebResponse
Try
'ارسال طلب
imageRequest = CType(WebRequest.Create(txtURL.Text), HttpWebRequest)
'قراءة الجواب
serverResponse = imageRequest.GetResponse()
'التأكد من أن الملف المطلوب ملف صورة
If Not serverResponse.ContentType.StartsWith("image/") Then
MsgBox("Le fichier n'est pas une image valide!", MsgBoxStyle.Critical)
Exit Sub
End If
'قراءة محتوى الجواب (مكتوب ببروتوكول ال Http)
Dim responseStream As Stream = serverResponse.GetResponseStream()
'يستعمل في قراءة محتويات الجواب
Dim buffer(BufferSize) As Byte
'عدد البايتات المقروءة في مقطع ال Stream الحالي
Dim read As Integer
'عدد البايتات المقروءة
Dim parsedBytes As Integer = 0
While True
read = responseStream.Read(buffer, parsedBytes, BufferReadSize)
If read = 0 Then Exit While 'نهاية ال Stream
parsedBytes += read
End While
'تحرير الذاكرة
responseStream.Close()
'طريقة أخرى هي استعمال الفئة WebClient
'Dim vb4arabClient As WebClient = New WebClient()
'buffer = vb4arabClient.DownloadData(txtURL.Text)

'تحويل المعطيات إلى Stream
Dim pictureStream As MemoryStream = New MemoryStream(buffer)
'الصورة
Dim logo As Image = Image.FromStream(pictureStream)
'اظهار الصورة
pbxLogo.Image = logo
Catch ex As Exception
MsgBox(ex.Message)
Finally
If Not serverResponse Is Nothing Then
serverResponse.Close()
End If
End Try
End Sub
End Class


الملفات المرفقة
.zip   TelechargementImage - Copy.zip (الحجم : 15.72 ك ب / التحميلات : 69)
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  موقع شبيه بموقع كتب بسورس كود حسين الربيعي 3 4,301 07-12-18, 12:55 PM
آخر رد: ahmedtonsy
  البرنامج بعد وضعه في صورة exe لا يتعامل مع قاعدة البيانات محمد خلف زكي 0 2,693 04-08-16, 05:10 AM
آخر رد: محمد خلف زكي
  كيفية عمل صورة - مدورة - Rouded PictureBox ! RaggiTech 0 2,889 17-10-12, 09:55 PM
آخر رد: RaggiTech
  أحصل على أيبى أى موقع بسهولة RaggiTech 0 2,159 17-10-12, 09:49 PM
آخر رد: RaggiTech
  تدوير صورة حول مركزها باستخدام gdi+ RaggiTech 0 3,125 17-10-12, 09:30 PM
آخر رد: RaggiTech
  نسخ صورة النافذه المفتوحه Screen capture RaggiTech 0 2,115 17-10-12, 08:27 PM
آخر رد: RaggiTech
  تعلم كيف تفتح صورة من رابط داخل ال Picture box RaggiTech 0 2,163 17-10-12, 08:21 PM
آخر رد: RaggiTech
  كيفية ادارة صورة 360 درجة RaggiTech 0 2,199 17-10-12, 07:24 PM
آخر رد: RaggiTech
  كيفية رسم صورة متحركة على الفورم بدون تايمر RaggiTech 0 2,488 17-10-12, 07:11 PM
آخر رد: RaggiTech
  كيف تشكل الفورم طبقا لأى صورة تريدها بدون اى عناء اعتمادا على صورة لديك RaggiTech 0 2,323 17-10-12, 07:09 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم