Hello All, I have been using camera function to start the camera without fail. Below are my codes for camera,
I have been trying to catch user permission for camera... but i dont find any codes in this forum that solves that. How can i build a function to check camera access permission?
B4X:
'**********************************
'CAMERA INTENT
'**********************************
Sub TW_Camera_Init(sPage As Page)
Camera.Initialize("Camera",sPage)
End Sub
Sub TW_Camera_Exec(sPage As String,sWidth As Int,sHeight As Int)As ResumableSub
TakePicture (sPage,sWidth, sHeight)
Wait For Image_Available(Success As Boolean, bmp As B4XBitmap)
If Success=True Then
Return bmp
Else if Success=False Then
Dim TmpImg As B4XBitmap=LoadBitmap(File.DirAssets,"empty.png")
Return TmpImg
End If
End Sub
Private Sub TakePicture (sPage As String,TargetWidth As Int, TargetHeight As Int)
Camera.TakePicture
Dim TopPage As String = sPage
Wait For Camera_Complete(Success As Boolean, Image As Bitmap, VideoPath As String)
B4XPages.GetManager.mStackOfPageIds.Add(TopPage) 'this is required as the page will be removed from the stack when the external camera page appears.
If Success Then
Dim bmp As B4XBitmap = Image
bmp.Resize(TargetWidth, TargetHeight, True)
CallSubDelayed3(Me, "Image_Available", True, bmp)
Else
CallSubDelayed3(Me, "Image_Available", False, Null)
End If
End Sub
I have been trying to catch user permission for camera... but i dont find any codes in this forum that solves that. How can i build a function to check camera access permission?