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

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


Kazem Forghani

سوال

سلام

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

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 یه خط قرمز می کشه و برنامه ران نمی شه .

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

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

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

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

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

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

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

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

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

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

بایگانی شده

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

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

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