رفتن به مطلب
  • 0

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


E-Beshkani

سوال

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

 

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

 

 

11.JPG

 

 

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

 

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

 

 

 

22.JPG

 

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام 

خوش آمدید 

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام 

خوش آمدید 

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

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

 

سلام

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

 

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

 

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

تشکر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

 

11.JPG

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

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

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

		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"))
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...