Delphi Android API 26 FileURIExposed - PullRequest
       7

Delphi Android API 26 FileURIExposed

0 голосов
/ 15 января 2019

Добрый день, поэтому я успешно обновил свое приложение Delphi до API 26 (в настоящее время я использую Rad Studio 10.1 Berlin) все работает, кроме фотографирования на устройствах Android 6+, я получаю следующую ошибку:

Error

И мой код:

procedure TF_SS_MAIN.ListBoxItem_menu_pictureClick(Sender: TObject);
var
  Service: IFMXCameraService;
  Params: TParamsPhotoQuery;
begin
  {$IFDEF Android}
  if TOSVersion.Check(6, 0) then
  begin
    try
      //Android 6+ stuff goes here, if basically I put the same code down below it crashes
    except
      on E: Exception do
        ShowMessage(E.Message);
    end;
  end
  else
  {$ENDIF}
  if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService, Service) then
  begin
    Params.Editable := true;
    // Specifies whether to save a picture to device Photo Library
    Params.NeedSaveToAlbum := false;
    // Params.RequiredResolution := TSize.Create(2736, 4864);
    Params.RequiredResolution := TSize.Create(2500, 2500);
    // Params.
    Params.OnDidFinishTaking := DoDidFinish;

    Service.TakePhoto(nil, Params);

    TabItem_picture.Visible := true;
    TabControl.ActiveTab := TabItem_picture;
  end
  else
    ShowMessage('This device does not support the camera service');
end;

1 Ответ

0 голосов
/ 21 января 2019

Кажется, что в 10.1 Berlin нет способа сделать это, я пробовал внешние URi, но это не работает, поэтому лучший вариант в сценарии - воспользоваться рекомендацией Реми Лебо и получить обновление 10.3 Rio, специально предназначенное для API 26. +

...