Android Question Android Rugged Phone and CameraEx class

Sub btNewPicture_Click
    If cam.IsInitialized = False Then
        initCamera
    End If
    OpenCamera(frontCamera)
    ImgStatic.Visible = False
    btNewPicture.Visible = False
    BtSend.Visible = False
    BtSnap.Visible = True
End Sub

Sub BtSnap_Click
    'MyCam.TakePicture
    ImgStatic.Visible = False
    TakePicture
End Sub

Sub initCamera
    VideoFileDir = rp.GetSafeDirDefaultExternal("")
    VideoFileName = "1.mp4"
    cam.Initialize(PnlCamera)
    
    Log(cam.SupportedHardwareLevel)
End Sub

Sub OpenCamera (front As Boolean)
    rp.CheckAndRequest(rp.PERMISSION_CAMERA)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result = False Then
        ToastMessageShow("Permessi camera richiesti", True)
        Return
    End If

    Wait For (cam.OpenCamera(front)) Complete (TaskIndex As Int)
    If TaskIndex > 0 Then
        MyTaskIndex = TaskIndex 'hold this index. It will be required in later calls.
        Wait For(PrepareSurface) Complete (Success As Boolean)
    End If
    Log("Start success: " & Success)

    If Success = False Then
        ToastMessageShow("Errore apertura camera", True)
    End If
End Sub

Sub PrepareSurface As ResumableSub
    'sizes can be modified here
    If VideoMode Then
        cam.PreviewSize.Initialize(640, 480)
        ResizePreviewPanelBasedPreviewSize
        'Using a temporary file to store the video.
        Wait For (cam.PrepareSurfaceForVideo(MyTaskIndex, VideoFileDir, "temp-" & VideoFileName)) Complete (Success As Boolean)
    Else
        cam.PreviewSize.Initialize(1920, 1080)
        ResizePreviewPanelBasedPreviewSize
        Wait For (cam.PrepareSurface(MyTaskIndex)) Complete (Success As Boolean)
    End If
    
    If Success Then cam.StartPreview(MyTaskIndex, VideoMode)
    Return Success
End Sub

Private Sub ResizePreviewPanelBasedPreviewSize
    Dim pw = cam.PreviewSize.Height, ph = cam.PreviewSize.Width As Int
    Dim r As Float = Max(Activity.Width / pw, Activity.Height / ph)  'FILL_NO_DISTORTIONS (change to Min for FIT)
    Dim w As Int = pw * r
    Dim h As Int = ph * r
    PnlCamera.SetLayoutAnimated(0, Round(Activity.Width / 2 - w / 2), Round(Activity.Height / 2 - h / 2), Round(w), Round(h))
End Sub

Sub HandleError (Error As Exception)
    Log("Error: " & Error)
    OpenCamera(frontCamera)
End Sub

Sub TakePicture
    Try
        Wait For(cam.FocusAndTakePicture(MyTaskIndex)) Complete (Data() As Byte)
        '
        cam.DataToFile(Data, VideoFileDir, "1.jpg")
        Dim bmp As Bitmap = cam.DataToBitmap(Data)
        Log("Picture taken: " & bmp) 'ignore
        imgTaken = RotateJpegIfNeeded(bmp, Data)

        cam.Stop
        
        'Layout settings'
        btNewPicture.Visible = True
        BtSend.Visible = True
        BtSnap.Visible = False
        PnlCamera.SetLayoutAnimated(0, sdLeft, sdTop, sdW, sdH)
        ImgStatic.Visible = True
        ImgStatic.Bitmap = imgTaken

    Catch
        HandleError(LastException)
    End Try
    
    'reset focus for QRCode scanner'
    txtScan.Text = ""
    txtScan.RequestFocus
    
End Sub


Private Sub RotateJpegIfNeeded (bmp As B4XBitmap, Data() As Byte) As B4XBitmap
    Dim p As Phone
    If p.SdkVersion >= 24 Then
        Dim ExifInterface As JavaObject
        Dim in As InputStream
        in.InitializeFromBytesArray(Data, 0, Data.Length)
        ExifInterface.InitializeNewInstance("android.media.ExifInterface", Array(in))
        Dim orientation As Int = ExifInterface.RunMethod("getAttribute", Array("Orientation"))
        Select orientation
            Case 3  '180
                bmp = bmp.Rotate(180)
            Case 6 '90
                bmp = bmp.Rotate(90)
            Case 8 '270
                bmp = bmp.Rotate(270)
        End Select
        in.Close
    End If
    Return bmp
End Sub

Dim ScannerAction As String = "com.android.serial.BARCODEPORT_RECEIVEDDATA_ACTION"
Dim ScannerData As String = "DATA"

public Sub RegisterScannerReceiver()
    BroadCast.addAction(ScannerAction)
    BroadCast.SetPriority(999)
    BroadCast.registerReceiver("")
End Sub

Sub BroadcastReceiver_OnReceive (Action As String, i As Object)
    Dim i2 As Intent = i
    If Action = ScannerAction Then
        If i2.HasExtra(ScannerData) Then
            Log(i2.GetExtra(ScannerData))
        End If
    End If
End Sub

intent.Initialize(laserService, "")
intent.SetPackage(laserPackage)
StartService(i)

broadcast.sendBroadcast(broadcastScannerOn)