سوال مهم درباره دیتابیس و نمایش تصاویر

[cloner01001 38]

سلام دوستان

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

سلام

( یه عکس)

خوبی؟

(یه عکس دیگه )

خداحافظ

(یه عکس دیگه)

نمیشه

میخواستم بدونم واسه حل این مشکل راهی دارید؟

[cloner01001 38]

کسی نمیتونه کمک کنه؟

[shahab1392 47]

سلام دوست عزیز

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

بعد بیا در Sub Activity_Create این مقدار ها رو بزار

Dim ImageView1 As ImageView
   ImageView1.Initialize("Imageview1")
   ImageView1.Bitmap=Bitmap1
   ScrollView1.Panel.AddView(ImageView1,0,15,ScrollView1.Width,30%y)

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

Sub Bitmap1 As Bitmap
Dim cur As Cursor
cur=Menu1.SQL1.ExecQuery("SELECT Pic FROM Tbl1 WHERE id="&Menu1.Fasl)
cur.Position=0

Dim bytes() As Byte
bytes=cur.GetBlob("Pic")

Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)

Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub

البته اینها رو بسته به کد های خودتون تغییر بدید

[cloner01001 38]

سلام دوست عزیز

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

بعد بیا در Sub Activity_Create این مقدار ها رو بزار

Dim ImageView1 As ImageView
   ImageView1.Initialize("Imageview1")
   ImageView1.Bitmap=Bitmap1
   ScrollView1.Panel.AddView(ImageView1,0,15,ScrollView1.Width,30%y)

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

Sub Bitmap1 As Bitmap
Dim cur As Cursor
cur=Menu1.SQL1.ExecQuery("SELECT Pic FROM Tbl1 WHERE id="&Menu1.Fasl)
cur.Position=0

Dim bytes() As Byte
bytes=cur.GetBlob("Pic")

Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)

Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub

البته اینها رو بسته به کد های خودتون تغییر بدید

این برای یه عکس جواب میده ولی اگه ما تو دیتابیس یه مطلب داشته باشیم با 2 تا عکس و مطلب بعدی با 4 تا عکس باشه دیگه این کد جواب نمیده

[محمدرضا شاهپیری 5,499]

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

در ضمن باید یه فیل مثلا id درست کنید که واسه متن مقدارش 1 و واسه عکس 0 بعد بگی اگه id=0 فلان کارو انجام بدی اگه id=1 فلان کارو

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

[shahab1392 47]

این برای یه عکس جواب میده ولی اگه ما تو دیتابیس یه مطلب داشته باشیم با 2 تا عکس و مطلب بعدی با 4 تا عکس باشه دیگه این کد جواب نمیده

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