- Introduction
Camera for iOS is a Firemonkey component that only works on the iOS platform. It makes use of the AVFoundation framework and offers a native video preview. It also recognizes native barcodes (EAN, QR Code, Data Matrix, Aztec, UPC-E, PDF417, ITF 14, and so on) and native faces.
2. Components in the Demo and what they do.
The Demo includes a TabControl that opens two screens (tabs). The ‘Preview’ screen opens the camera in the format specified in the ‘Settings’ screen. The Camera component’s main settings are available on the Settings screen. The description of a particular setting is displayed using TLabel, and the Dropdown options are loaded into TComboBox. For example, at the top, you can toggle between the rear and front cameras, which will open one of the phone’s cameras. The following code demonstrates how this is handled:
|
1 2 3 4 5 6 7 8 |
if ComboBoxCamera.Selected <> nil then begin ICamera.Device := FindDevice(ComboBoxCamera.Selected.Text); if ICamera.Device <> nil then ICamera.RequestAccess; end; ComboBoxFormat.Items.Clear; ComboBoxFormat.Enabled := ICamera.Device <> nil; |
The function FindDevice goes through the camera devices of the phone and filters the chosen one by name, as it follows:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
<strong>function</strong> <strong>TFormMain</strong>.FindDevice(<strong>const</strong> Name: <strong>string</strong>): AVCaptureDevice; var Devices: TArray<TICameraCaptureDevice>; I: Integer; begin Devices := ICamera.CaptureVideoDevices; for I := 0 to Length(Devices) - 1 do if Name = Devices[I].Name then begin Result := Devices[I].Device; Exit; end; Result := nil; end; |
The same structure and logic are used for the remaining settings, such as camera format, resolution, Flash on/off, Torch on/off, and so on.
There are two timers as well, one for face recognition and one for barcode recognition. When they are activated, they both hide the rectangles for Face recognition or barcode recognition, depending on which has been captured by the Camera component.
|
1 2 3 4 5 6 7 8 9 10 11 |
procedure TFormMain.TimerFaceTimer(Sender: TObject); begin TimerFace.Enabled := False; RectangleFace.Visible := False; end; procedure TFormMain.TimerBarcodeTimer(Sender: TObject); begin TimerBarcode.Enabled := False; RectangleBarcode.Visible := False; end; |
In the short video below you can see the Demo in action:
You can download the Demo from the link below:
https://winsoft.sk/icamera.htm
You may also try Firemonkey’s Native Ios App Builder; you can deploy a Powerful Camera Component in the Delphi or C++ environments. Try the free tool here.
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
