B4a - Memasukkan Gambar Pilihan ke Dalam Database SQL

Libraries : MFImage, Phone dan SQL

1. Buatlah sebuah Project baru
2. Buatlah dua Layout
3. Layout pertama bernama Main dan Layout kedua bernama Load
4. Dalam Layout Main, tambahkan 1 ImageView dan 2 Button
5. Dalam Layout Load, tambahkan 1 ListView
6. Ketik kode berikut ke dalam Main

Sub Process_Globals
Private SQL As SQL
End Sub

Sub Globals
Dim Button1 As Button
Dim MF_Image As MF_Image
Dim ImageView1 As ImageView
Dim Bmp As Bitmap

Dim Str As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
Activity.AddMenuItem("Lihat Database", "LihatDatabase")
SQL.Initialize(File.DirRootExternal, "testGambar.db", True)
SQL.ExecNonQuery("DROP TABLE IF EXISTS tGambar")
SQL.ExecNonQuery("CREATE TABLE tGambar (Gambar TEXT)")
End Sub

Sub Button1_Click
Bmp = ImageView1.Bitmap
Str = MF_Image.BitmapToString(Bmp, 100)
ImageView1.Bitmap = MF_Image.StringToBitmap(Str)
SQL.ExecNonQuery("INSERT INTO tGambar VALUES('" & Str & "')")
ToastMessageShow("Gambar disimpan", False)
End Sub

Sub LihatDatabase_Click
StartActivity("Load")
End Sub

Sub Button2_Click
Dim ImageChooser As ContentChooser
ImageChooser.Initialize("imgChooser1")
ImageChooser.show("image/*", "Pilih gambar dari?")
End Sub

Sub imgChooser1_Result(Success As Boolean, Dir As String, FileName As String)
    If Success Then 
  ImageView1.Bitmap = LoadBitmap(Dir, FileName)    
    ImageView1.Gravity = Gravity.FILL
    Else 
        ToastMessageShow("File tidak dipilih", True) 
    End If 
 End Sub

7. Berikut kode Load

Sub Process_Globals
Dim SQL As SQL
End Sub

Sub Globals
Dim ListView1 As ListView
Dim MF_Image As MF_Image
Dim Cursor As Cursor
Dim Bmp As Bitmap
Dim Str As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Load")
SQL.Initialize(File.DirRootExternal, "testGambar.db", True)
Cursor = SQL.ExecQuery("SELECT Gambar FROM tGambar")
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
Str = Cursor.GetString("Gambar")
Bmp = MF_Image.StringToBitmap(Str)
ListView1.AddTwoLinesAndBitmap("Tes DB dgn Gambar", "jendraliblis.blogspot.com", Bmp)
ToastMessageShow("Gambar telah dimuat", False)
Next
End Sub

4. Jalankan aplikasinya atau tekan F5 di keyboard
5. Berikut adalah hasilnya