Thank you,
please write your code.
I use object photography, I do not use QRcode scanning.
I use:
Delphi-Quellcode:
procedure TFormMain.ButtonTakePictureClick(Sender: TObject);
begin
ACamera.FocusMode := foAuto;
ACamera.TakePicture;
end;
procedure TFormMain.ACameraPictureTaken(Sender: TObject; Data: TArray<System.Byte>);
begin
TFile.WriteAllBytes(TPath.Combine(dirImages, edName.Text + '.jpg'), Data);
end;