iOS Question Images from Library does not open

Luiz Fernando Orlandini

Active Member
Licensed User
Hi All.

I'm trying to implement Camera library, to when I click in a button choose a new picture from user profile.

I'm trying to follow code.

B4X:
Private Sub btnChangePhoto_Click
    cam.Initialize("Camera", pg)
    If (cam.IsSupported = True) Then
        Try
            cam.SelectFromPhotoLibrary(Me, cam.TYPE_ALL)
        Catch
            Msgbox(LastException.Description, "Atenção")
        End Try
    End If
End Sub

Private Sub Camera_Complete(Success As Boolean, Image As Bitmap, VideoPath As String)
    If Success Then
        If Image.IsInitialized Then
            imgResponsible.Bitmap = Image
        End If
    End If
End Sub
When I try to test the application, just open a little small white window, with a right top button cancel and anyone images are listed.

Thanks.
 
Last edited:
Top