ACamera - winsoft

[danten]

Ok, I got it solved.

Delphi-Quellcode:

procedure TFormMain.ButtonTakePictureClick(Sender: TObject);
begin
  ACamera.FocusMode := foAuto;
  ACamera.AutoFocus; // call onAutoFocus
end;

procedure TFormMain.ACameraAutoFocus(Sender: TObject; Success: Boolean);
begin
  if success = True then // when it is focused then Take Picture
  begin
    ACamera.TakePicture;
  end;
end;

procedure TFormMain.ACameraPictureTaken(Sender: TObject; Data: TArray<System.Byte>);
begin
  TFile.WriteAllBytes(TPath.Combine(dirImages, edName.Text + '.jpg'), Data);
end;