مشکل در فراخوانی عکس از دیتابیس

[E-Beshkani 61]

سلام خسته نباشید.

 

این عکس دیتابیس من هست

 

 

 

 

خب این هم عکس از پروژه من

 

در این حالت پروزه کاملا سالمه و متن ها و عنوان ها درست فراخوانی میشن

 

 

 

 

خب حالا من کد زیر رو به کد ها بالا اضافه کردم برای نشون دادن عکس ها ولی کار نمیکنه

sql1.ExecQuery2("SELECT pic FROM tdb WHERE id= ?", Array As String(list.meghdar))
cur.Position = 0
Dim Buffer As Byte
Buffer = cur.GetBlob("pic")
   
Dim bit1 As Bitmap
ImageView1.Bitmap = bit1

میشه بگین مشکل از کجاست، بنده تازه شروع به یادگیری کردم،تشکر

[حاج حسین 2,098]

سلام 

خوش آمدید 

آموزش ویدیویی قرار دادن عکس در دیتابیس (بسیار مهم)

 اینو ببیند حتما مشکلتون حل میشه 

[E-Beshkani 61]

سلام 

خوش آمدید 

آموزش ویدیویی قرار دادن عکس در دیتابیس (بسیار مهم)

 اینو ببیند حتما مشکلتون حل میشه 

 

سلام

ممنونم ولی من تا به حال سه تا ویدیو رو دیدم و مثل همون ها رو پیاده کردم ولی متاسفانه نشده

 

الان فقط یه کد میخوام که از ستون pic در دیتابیس ، عکس بنده رو در یک imageview بزاره

 

لطفا همین کد رو با توجه به نام دیتابیس و ... که در پست اول هست لطف کنید

تشکر

[حاج حسین 2,098]

 

 

Dim Buffer As Byte
Buffer = cur.GetBlob("pic")
   
Dim bit1 As Bitmap
ImageView1.Bitmap = bit1

ببنید شما توی دیتابیس اسم عکس آوردی و توی برنامه میخای با فرمت blob بگیری ؟؟!!

اگر تو خود دیتابیس هم خود عکس اد کنی میتونی بلاب بگیری در غیر این صورت باید بصورت تکس بگیری 

و عکس ها رو از asset بخونی 

الان bit1 چیو میگره که ایمیج ویوی بخواد نشون بده 

[shahab.es 5,429]

سلام

اقای بیات درست میگن

شما اگر عکست رو از تو خود نویکتت اد کنی ، به شکل بلاب میره و با کد زیر متونی بگیریش

		Dim Buffer() As Byte
		Buffer = Cur.GetBlob(Image)'image is then name of image column'
		Dim InputStream1 As InputStream
   		InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
   		Bitmap1.Initialize2(InputStream1)
         	InputStream1.Close

الان bitmap1 رو میدی هر جا میخوای

اگر به شکلی که الان کار کردی باشه ، باید تصاویرت رو بریزی توی پوشه files موجود در محل ذخیره پروژه ات

الان تصویر اون ای دی خاص ، ریخته شده توی bit1

Dim Bit1 As Bitmap
Bit1.Initialize(File.DirAssets,cur1.GetString("pic"))

[arastooms 1,046]

سلام شهاب عزیز 
در باره کد های تبدیل کننده بایت تصویر در دیتا بیس اگر ممکن هست کمی توضیح میدی چه طور کار میکنه 
همین چند خطی که بالا لطف کردی راهنمایی کردی 
من استفاده کردم و کاملا درست هست ولی دوست دارم یاد بگیرم که یعنی چه و چه کاری میکنه هر خط 
با تشکر
 

Dim Buffer() As Byte
		Buffer = Cur.GetBlob(Image)'image is then name of image column'
		Dim InputStream1 As InputStream
   		InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
   		Bitmap1.Initialize2(InputStream1)
         	InputStream1.Close

[arastooms 1,046]

سلام شهاب عزیز 
در باره کد های تبدیل کننده بایت تصویر در دیتا بیس اگر ممکن هست کمی توضیح میدی چه طور کار میکنه 
همین چند خطی که بالا لطف کردی راهنمایی کردی 
من استفاده کردم و کاملا درست هست ولی دوست دارم یاد بگیرم که یعنی چه و چه کاری میکنه هر خط 
با تشکر
 

Dim Buffer() As Byte
		Buffer = Cur.GetBlob(Image)'image is then name of image column'
		Dim InputStream1 As InputStream
   		InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
   		Bitmap1.Initialize2(InputStream1)
         	InputStream1.Close