' HACER FOTO CON LA APLICACION CÁMARA DE ANDROID
' LLamada
OpenCam(DirImagen, "NombreImagen.jpg") ' dejara la imagen en el directorio y con ese nombre
Sub OpenCam(Directory As String, PictureName As String)
Dim i As Intent
i.Initialize("android.media.action.IMAGE_CAPTURE", "")
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName)))
StartActivity(i)
End Sub
Sub ParseUri(FileName As String) As Object
Log("ParseUri " & FileName)
Dim r As Reflector
Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String"))
End Sub