سلام به همه دوستان من به یکی مشکل برخوردم من با استفاده از کدهای زیر می خوام عکس و متن رو از دیتابیس بگیرم و نمایش بدم ولی خطای زیر رو می ده خیلی توی کد گشتم ولی مشکلی پیدا نکردم می شه راهنمایی کنید؟می خوام برنامه رو خروجی بگیرم تنها مشکلش اینه لطف کنید راهنمایی کامل کنید ممنون
کد :
Sub Process_Globals
Dim s As SQL
End Sub
Sub Globals
Private OpenList As Button
Private ScrollView1 As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Android")
If File.Exists(File.DirInternal,"dbbook.db")=False Then
File.Copy(File.DirAssets,"dbbook.db",File.DirInternal,"dbbook.db")
End If
If s.IsInitialized=False Then
s.Initialize(File.DirInternal,"dbbook.db",False)
End If
show
End Sub
Sub show
Dim sh As Int
sh=0
Dim cur As Cursor
cur=s.ExecQuery("SELECT * FROM Tbl")
Dim h As Int
h = 2%y
For i = 0 To cur.RowCount-1
cur.Position=i
If cur.GetInt("Type")=0 Then
Dim Lbl As Label
Lbl.Initialize("")
Lbl.Text=cur.GetString("Value")
Lbl.TextSize=15
Lbl.TextColor=Colors.Black
ScrollView1.Panel.AddView(Lbl,2%x,h,96%x,0)
Dim su As StringUtils
Lbl.Height=su.MeasureMultilineTextHeight(Lbl,Lbl.Text)
h = h + Lbl.Height + 2%y
sh=sh+Lbl.Height
ScrollView1.Panel.Height=sh
Else
Dim img As ImageView
img.Initialize("")
img.Bitmap=Namayesh(i)
Dim bp As BitmapExtended
bp.Initialize("")
ScrollView1.Panel.AddView(img,0,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))
h= h + bp.getHeight(img.Bitmap) + 2%y
sh=sh+bp.getHeight(img.Bitmap)
ScrollView1.Panel.Height=sh
End If
ScrollView1.Panel.Height=ScrollView1.Panel.Height+10%y
Next
End Sub
Sub Namayesh(Position As String) As Bitmap
Dim cur As Cursor
cur=s.ExecQuery("SELECT Value FROM Tbl")
cur.Position=Position
Dim bytes() As Byte
bytes=cur.GetBlob("Value")
Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)
Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub
سوال
MahdiHD 1,748
سلام به همه دوستان من به یکی مشکل برخوردم من با استفاده از کدهای زیر می خوام عکس و متن رو از دیتابیس بگیرم و نمایش بدم ولی خطای زیر رو می ده خیلی توی کد گشتم ولی مشکلی پیدا نکردم می شه راهنمایی کنید؟می خوام برنامه رو خروجی بگیرم تنها مشکلش اینه لطف کنید راهنمایی کامل کنید ممنون
کد :
Sub Process_Globals Dim s As SQL End Sub Sub Globals Private OpenList As Button Private ScrollView1 As ScrollView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Android") If File.Exists(File.DirInternal,"dbbook.db")=False Then File.Copy(File.DirAssets,"dbbook.db",File.DirInternal,"dbbook.db") End If If s.IsInitialized=False Then s.Initialize(File.DirInternal,"dbbook.db",False) End If show End Sub Sub show Dim sh As Int sh=0 Dim cur As Cursor cur=s.ExecQuery("SELECT * FROM Tbl") Dim h As Int h = 2%y For i = 0 To cur.RowCount-1 cur.Position=i If cur.GetInt("Type")=0 Then Dim Lbl As Label Lbl.Initialize("") Lbl.Text=cur.GetString("Value") Lbl.TextSize=15 Lbl.TextColor=Colors.Black ScrollView1.Panel.AddView(Lbl,2%x,h,96%x,0) Dim su As StringUtils Lbl.Height=su.MeasureMultilineTextHeight(Lbl,Lbl.Text) h = h + Lbl.Height + 2%y sh=sh+Lbl.Height ScrollView1.Panel.Height=sh Else Dim img As ImageView img.Initialize("") img.Bitmap=Namayesh(i) Dim bp As BitmapExtended bp.Initialize("") ScrollView1.Panel.AddView(img,0,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap)) h= h + bp.getHeight(img.Bitmap) + 2%y sh=sh+bp.getHeight(img.Bitmap) ScrollView1.Panel.Height=sh End If ScrollView1.Panel.Height=ScrollView1.Panel.Height+10%y Next End Sub Sub Namayesh(Position As String) As Bitmap Dim cur As Cursor cur=s.ExecQuery("SELECT Value FROM Tbl") cur.Position=Position Dim bytes() As Byte bytes=cur.GetBlob("Value") Dim input As InputStream input.InitializeFromBytesArray(bytes,0,bytes.Length) Dim b As Bitmap b.Initialize2(input) input.Close Return(b) End Subعکس دیتابیسم :
عکس خطا :
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.