iOS Code Snippet [B4X] [B4XPages] Barcode Reader with Torch

Code for B4A and B4i
B4X:
Sub btnTorch_Click
    If Capturing Then
    #If B4i
        If scanner.TorchMode = scanner.TORCH_OFF Then
            scanner.TorchMode = scanner.TORCH_ON
            btnTorch.Text = "Torch Off"
        Else
            scanner.TorchMode = scanner.TORCH_OFF
            btnTorch.Text = "Torch On"
        End If
    #Else If B4A
        If camEx.GetFlashMode <> "torch" Then
            camEx.SetFlashMode("torch")
            camEx.CommitParameters
            btnTorch.Text = "Torch Off"
        Else
            camEx.SetFlashMode("off")
            camEx.CommitParameters
            btnTorch.Text = "Torch On"
        End If
    #End If
    End If
End Sub

 
Last edited:
Top