Spanish [SOLUCIONADO] B4I - CAPTURA DE FOTOS

'Code module

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Private Page_fcamara As Page
    Private btnTakePicture As Button
    Private cam As Camera
    Private VideoPlayer1 As VideoPlayer
    Private ImageView1 As ImageView
End Sub

Sub show
    If Page_fcamara.IsInitialized=False Then
        Page_fcamara.Initialize("Page_fcamara")
        Page_fcamara.RootPanel.LoadLayout("fcamara")
    End If
    Main.NavControl.ShowPage (Page_fcamara)
    InitCamera
    cam.TakePicture
End Sub

Sub InitCamera
    cam.Initialize("cam", Page_fcamara)
End Sub

Sub btnTakePicture_Click
    InitCamera
    cam.TakePicture
End Sub


Sub Cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
    Dim p As Phone
    If Success Then
        If Image.IsInitialized Then
            VideoPlayer1.BaseView.Visible = False
            ImageView1.Bitmap = Image
            p.AddImageToAlbum(Image)
        End If
    End If
End Sub

Sub camok_Click

        Dim My_bmp As Bitmap
        My_bmp = camimage.Bitmap
        Dim out As OutputStream
        out = File.OpenOutput(File.DirDocuments, "Photo1.png", False)
        My_bmp.WriteToStream(out, 100, "png")
        out.Close
End Sub