Фотография из альбома

[Martifan]

Доброго времени сутки 

подскажите пожалуйста как получить фотографии из альбома телефона все примеры которые пробовал не работают

если можно рабочим примером

заранее спасибо

[Ry Koo]

я делал так:

создайм стандартный экшн TakePhotoFromLibrary

у экшна событие DidFinishTaking:

procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap); // Здесь забираю выбранную фотку к себе в каталог и отображаю её в приложении
begin
image.SaveToFile(TPath.GetDocumentsPath+PathDelim+'OurImage.png');
Image1.Bitmap:=image;
end;

Здесь юзера спрашиваю разрешения порыться в его картинках:

  PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE)],
      procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
      begin
        if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
        // Юзер разрешил читать файлы. Выполняем экшн.
        TakePhotoFromLibraryAction1.Execute;
      end);

Вот. У меня работает.