Sub SaveFoto
FotoDB.ExecNonQuery("DELETE FROM Fotos")
Dim bFoto2 As Bitmap
Dim imgBuffer() As Byte
bFoto2 = CreateScaledBitmap(ImageView1.Bitmap, 960,960, True)
Dim out As OutputStream
out.InitializeToBytesArray(0)
bFoto2.WriteToStream(out, 0, "PNG")
imgBuffer = out.ToBytesArray
out.Close
FotoDB.ExecNonQuery2("INSERT INTO Fotos VALUES(?)", Array As Object(imgBuffer))
End Sub
Sub CreateScaledBitmap(Original As Bitmap, Width As Int, Height As Int, Filter As Boolean) As Bitmap
Dim r As Reflector
Dim b As Bitmap
b = r.RunStaticMethod("android.graphics.Bitmap", "createScaledBitmap", _
Array As Object(Original, Width, Height, Filter), _
Array As String("android.graphics.Bitmap", "java.lang.int", "java.lang.int", "java.lang.boolean"))
Return b
End Sub