ACamera - winsoft

[arnof]

Zitat von danten:

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;

Set

ACamera.FocusMode := foAuto;

before you take the picture (not a line before) .... the phone need a while to set the focus