iOS Question Images from Library does not open

[Luiz Fernando Orlandini]

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.

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.

 

[Erel]

Try to run the example from this project: https://www.b4x.com/android/forum/threads/46144

Do you see the images?

 

[Luiz Fernando Orlandini]

Try to run the example from this project: https://www.b4x.com/android/forum/threads/46144

Do you see the images?

Works fine Erel.

My challenge now is to preview the image and crop a selected square area to show in a circle Image View.