افزودن عکس به دیتابیس

[مسعود دلفان آذری 52]

سلام دوستان؛

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

چجوری میتونم در بیسیک فور اندروید یک عکس رو که قسمت فایل ذخیره کردم رو بریزم توو دیتابیس و اونو توو لیست ویو نمایش بدم.

ممنون.

[مسعود دلفان آذری 52]

آقا مهدی من یه جا رو اشتباه نوشته بودم درستش کردم، ولی از یه روش بهتر استفاده کردم، اسم فایل رو توو دیتابیس مینوشتم و تووو برنامه اضافش میکردم و بعد فراخوانیش میکردم.

تشکر داداش

[مسعود دلفان آذری 52]

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

ممنون فدات.

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

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

فدات

[مهدی ایزدی 9,203]

درود

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

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

آدرس عکس هم که راحت میتونید دیگه اینجور بدید

file.dirAssets,cur.getString("ax")

فقط کافیه آموزش های کار با دیتابیس آفلاین رو در انجمن دیده باشید...

[مسعود دلفان آذری 52]

سلام نوع متغیر در پایگاه داده از نوع BLOB است.

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

Dim buffer() As Byte

buffer=cur1.GetBlob("Pic")

ListView1.AddTwoLinesAndBitmap(cur1.Getstring("SP"),": F=" & cur1.Getint("F"),buffer)

اما این خطا رو میده:

main.java:421: error: incompatible types: byte[] cannot be converted to Bitmap

لطفا اگه چیزی میدونین بگید.

تشکر

[مهدی ایزدی 9,203]

اگر تصاویر رو به صورت درست در فرمت Blob در دیتابیس وارد کرده باشید میتونید به این صورت عکس هارو بخونید :

Dim bit1 As Bitmap
	cur = sql.ExecQuery("SELECT * FROM tbl")
    cur.Position = 0
    Dim Buffer() As Byte
    Buffer = cur.GetBlob("image")
    Dim InputStream1 As InputStream
    InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
    bit1.Initialize2(InputStream1)
    InputStream1.Close
	ImageView1.Bitmap = bit1

 

[مسعود دلفان آذری 52]

مرسی آقا مهدی، کدش واسه لیست ویو با دو خط چجوری میشه؟

[مهدی ایزدی 9,203]

در 5 دقیقه قبل، lvlasoud گفته است :

مرسی آقا مهدی، کدش واسه لیست ویو با دو خط چجوری میشه؟

کلمه bit1 رو به جای bitmap مورد نظر در لیست ویو قرار بدید...

 

[مسعود دلفان آذری 52]

الان من این کد رو زدم:

    Dim bit1 As Bitmap
    Dim buffer() As Byte
    Dim InputStream1 As InputStream
    buffer = cur1.GetBlob("Pic")
    InputStream1.InitializeFromBytesArray(buffer, 0, buffer.Length)
    bit1.Initialize2(InputStream1)
    InputStream1.Close

ListView1.AddTwoLinesAndBitmap(cur1.Getstring("SP"),": F=" & cur1.Getint("F"), bit1)

 

ولی همون خطای بالایی رو میده. به نظرتون درست نوشتم؟

[مهدی ایزدی 9,203]

احتمالا مشکل از تصاویری هست که در دیتابیس قرار دادید

سورس + دیتابیس رو قرار بدید

[مسعود دلفان آذری 52]

آقا مهدی من تصاویر رو توو دیتابیس با فرمت .jpg ذخیره کردم، نوع اونم BOLB. دیتابیسم فقط دو ردیف داره

[مهدی ایزدی 9,203]

در 4 دقیقه قبل، lvlasoud گفته است :

آقا مهدی من تصاویر رو توو دیتابیس با فرمت .jpg ذخیره کردم، نوع اونم BOLB. دیتابیسم فقط دو ردیف داره

 

در 8 دقیقه قبل، مهدی ایزدی گفته است :

احتمالا مشکل از تصاویری هست که در دیتابیس قرار دادید

سورس + دیتابیس رو قرار بدید

 

[مسعود دلفان آذری 52]

این کد همش خطا میده!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("src")
    
    ListView1.SingleLineLayout.Label.TextSize=15
    If File.Exists(File.DirInternal,"sqldata.db")=True Then
    File.Delete(File.DirInternal,"sqldata.db")
    End If
    If File.Exists(File.DirInternal,"sqldata.db")=False Then
    File.Copy(File.DirAssets,"sqldata.db",File.DirInternal,"sqldata.db")  
    End If

 

    SQL1.Initialize(File.DirInternal,"sqldata.db",False)
    cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
    For i=0 To cur1.RowCount-1
    cur1.Position = i
    
    Dim bit1 As Bitmap
    Dim buffer() As Byte
    Dim InputStream1 As InputStream
    
    buffer = cur1.GetBlob("Pic")
    
    InputStream1.InitializeFromBytesArray(buffer, 0, buffer.Length)
    bit1.Initialize2(InputStream1)
    InputStream1.Close
    
    ListView1.AddTwoLinesAndBitmap(cur1.Getstring("SP"),": F=" & cur1.Getint("F"), bit1)

    Next
      
    End Sub

[مهدی ایزدی 9,203]

دوست عزیز ناراحت نشید هاا

اما بنده دارم فارسی صحبت میکنم

اگه جواب میخواهید درخواستی که ازتون کردیم رو  اجرا کنید تا راهنمایی تون کنیم

جواب هم نمیخواهید الکی اسپم نکنید

عرض کردم سورس + دیتابیس رو قرار بدید

Source + DataBase

حالا باز یه چیز دیگه بگید !!!