01-01-21, 12:44 AM
لدي علي الفورم كما هو موضح بيكتشر بوكس يستقبل صوره من خلال رابط مباشر لكن عند اسقبال الصوره تظهر هكذا مع العلم جوده الانترنت لدي عاليه جداااا
ما السبب وكيف اتغلب علي ذلك
ما السبب وكيف اتغلب علي ذلك
(01-01-21, 05:52 AM)معاند الحظ كتب : [ -> ]يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب
Dim WC As New WebClient
Dim BYTES() As Byte = WC.DownloadData(my_link_img)
Dim IMGSTREAM As New MemoryStream(BYTES)
pic_my_img_support.Image = Image.FromStream(IMGSTREAM)
(01-01-21, 07:04 AM)اليوم السابع كتب : [ -> ](01-01-21, 05:52 AM)معاند الحظ كتب : [ -> ]يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب
هذا هو الرابط ولكن حليت المشكله عن طريق
https://h.top4top.io/p_1826gwh211.jpg
كود :
Dim WC As New WebClient
Dim BYTES() As Byte = WC.DownloadData(my_link_img)
Dim IMGSTREAM As New MemoryStream(BYTES)
pic_my_img_support.Image = Image.FromStream(IMGSTREAM)
Dim tClient As WebClient = New WebClient
Dim tImage As Bitmap = Bitmap.FromStream(New MemoryStream(tClient.DownloadData("ضع هنا رابط الصورة المباشر")))
PictureBox1.Image = tImage
(01-01-21, 07:25 AM)ابو روضة كتب : [ -> ](01-01-21, 07:04 AM)اليوم السابع كتب : [ -> ](01-01-21, 05:52 AM)معاند الحظ كتب : [ -> ]يمكن رابط الصورة غير مباشر
لو تضيف الرابط اللي تستخدمه عشان اجرب
هذا هو الرابط ولكن حليت المشكله عن طريق
https://h.top4top.io/p_1826gwh211.jpg
كود :
Dim WC As New WebClient
Dim BYTES() As Byte = WC.DownloadData(my_link_img)
Dim IMGSTREAM As New MemoryStream(BYTES)
pic_my_img_support.Image = Image.FromStream(IMGSTREAM)
بسم الله ما شاء الله أخى اليوم السابع مستواك فى تحسن , ربنا يعينك...
هذا كود أيضاً
كود :
Dim tClient As WebClient = New WebClient
Dim tImage As Bitmap = Bitmap.FromStream(New MemoryStream(tClient.DownloadData("ضع هنا رابط الصورة المباشر")))
PictureBox1.Image = tImage