ببخشید من از کدهای زیر برای لود عکس در ایمیج ویو استفاده میکنم .
For i=0 To cu.RowCount-1
cu.Position=i
Dim imageView2 As ImageView
imageView2.Initialize("imageView2")
imageView2.Bitmap = tasvir(cu.GetString("esm"))
next
Sub tasvir(esm1 As String) As Bitmap
Dim cur1 As Cursor
cur1=Main.sq.ExecQuery("SELECT aks FROM mydb WHERE esm='"& esm1 & "'")
cur1.Position=0
Dim bytes() As Byte
bytes=cur1.GetBlob("aks")
Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)
Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub
بعد خیلی برنامه سنگین میشه .
الان میخوام با این کد ها از LoadBitmapSample استفاده کنم . سره شبی ذهنم نمیکشه چطور از LoadBitmapSample برای نمایش عکس در ایمیج ویو از دیتابیس استفاده کنم .
سوال
Amir - B 184
سلام دوستان
ببخشید من از کدهای زیر برای لود عکس در ایمیج ویو استفاده میکنم .
For i=0 To cu.RowCount-1 cu.Position=i Dim imageView2 As ImageView imageView2.Initialize("imageView2") imageView2.Bitmap = tasvir(cu.GetString("esm")) next Sub tasvir(esm1 As String) As Bitmap Dim cur1 As Cursor cur1=Main.sq.ExecQuery("SELECT aks FROM mydb WHERE esm='"& esm1 & "'") cur1.Position=0 Dim bytes() As Byte bytes=cur1.GetBlob("aks") Dim input As InputStream input.InitializeFromBytesArray(bytes,0,bytes.Length) Dim b As Bitmap b.Initialize2(input) input.Close Return(b) End Subبعد خیلی برنامه سنگین میشه .
الان میخوام با این کد ها از LoadBitmapSample استفاده کنم . سره شبی ذهنم نمیکشه چطور از LoadBitmapSample برای نمایش عکس در ایمیج ویو از دیتابیس استفاده کنم .
ممنون میشم راهنمایی کنید .
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.