Sub TakePicture
Try
Log(rp.GetSafeDirDefaultExternal(""))
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
SetState(openstate, True, VideoMode)
Wait For(cam.FocusAndTakePicture(MyTaskIndex)) Complete (Data() As Byte)
SetState(openstate, False, VideoMode)
cam.DataToFile(Data, VideoFileDir, "1.jpg")
File.Copy(VideoFileDir, "temp-" & VideoFileName, VideoFileDir, VideoFileName)
Dim bmp As Bitmap = cam.DataToBitmap(Data)
Log("Picture taken: " & bmp) 'ignore
pnlBackground.SetVisibleAnimated(100, True)
B4XImageView1.Bitmap = RotateJpegIfNeeded(bmp, Data)
File.MakeDir(File.DirRootExternal, "CAM_DATA")
Sleep(4000)
pnlBackground.SetVisibleAnimated(500, False)
Catch
HandleError(LastException)
End Try
End Sub