У нас есть этот код, который долгое время работал в Delphi 11.x. Однако это приводит к сбою приложения в Delphi 12.1. Он имеет необходимые разрешения «камеры» Android, как указано ранее. Есть ли что-то, что я пропустил в Delphi 12.1? Разрешения также стандартны и работают в соответствии с версией 11.x.
Есть какие-нибудь указания, на что следует обратить внимание? Однако функция «Выбрать фотографию из альбома» работает! (все это произошло без изменения кода с 11.x на 12.1):
var
Params: TParamsPhotoQuery;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService,
FCameraService) then
begin
Params.Editable := False;
Params.NeedSaveToAlbum := False;
Params.RequiredResolution := TSize.Create(640,640);
Params.OnDidFinishTaking := TakePhotoDidFinishTaking;
Params.OnDidCancelTaking := DoCancelTaking;
FCameraService.TakePhoto(button1, Params);
end else
begin
end;
Подробнее здесь: https://stackoverflow.com/questions/793 ... on-android
