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

[Kazem Forghani 2,927]

سلام

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

Sub Globals
    Dim sql1 As SQL
    Dim cur1 As Cursor
    Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
    File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
    sql1.Initialize(File.DirInternal,"data.db",True)
    cur1 = sql1.ExecQuery("SELECT * FROM tbl")
    For i=0 To cur1.RowCount-1
    cur1.Position = i
    ListView1.AddTwoLinesAndBitmap(cur1.GetString("T1"),cur1.GetString("T2"),cur1.GetBlob("IMAGE"))
    Next
    
End Sub

اما متاسفانه زیر خط 14 یه خط قرمز می کشه و برنامه ران نمی شه .

لطفا راهنمایی کنید .

از جسجو استفاده کردم اما نتیجه به دست نیومد .

[Nemesis 1,846]

از این راه استفاده کن یه ساب بساز

Sub picture (name As String) As Bitmap
	Dim bytes()As Byte
	bytes = cur.GetBlob("IMAGE")
	
	Dim input As InputStream
	input.InitializeFromBytesArray(bytes,0,bytes.Length)
	
	Dim b As Bitmap
	b.Initialize2(input)
	input.Close
	
	Return(b)

End Sub

به صورت Bitmap فراخوانی کن

 pic.Bitmap = picture(i)

شما در لیست bitmap باید بدی نه Blob

[Nemesis 1,846]

برادر برای فراخوانی تصویر این راهش نیست