Перейти к содержанию
Fire Monkey от А до Я
  • 0

Не могу скачать файл в Android - permission denied


Delpher-X

Вопрос

Здравствуйте. У меня такая проблема. 

Пытаюсь скачать файл:
 

var
S : TMemoryStream;
begin
S := TMemoryStream.Create();
IdHTTP1.Get('http://sitename.com/7UlmBU7IXHA.jpg', S);
S.SaveToFile('/storage/emulated/0/ImageFile.jpg');
S.Free;
end;


Проблема возникает на последней стадии - при сохранении файла. Android пишет, Cannot create file: '/storage/emulated/0/ImageFile.jpg'. Permission denied, то есть доступ запрещен. Но как его разрешить? Когда я устанавливаю приложение, система пишет, что никаких разрешений данная программа не требует.

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
45 минут назад, Delpher-X сказал:

Здравствуйте. У меня такая проблема. 

Пытаюсь скачать файл:
 


var
S : TMemoryStream;
begin
S := TMemoryStream.Create();
IdHTTP1.Get('http://sitename.com/7UlmBU7IXHA.jpg', S);
S.SaveToFile('/storage/emulated/0/ImageFile.jpg');
S.Free;
end;


Проблема возникает на последней стадии - при сохранении файла. Android пишет, Cannot create file: '/storage/emulated/0/ImageFile.jpg'. Permission denied, то есть доступ запрещен. Но как его разрешить? Когда я устанавливаю приложение, система пишет, что никаких разрешений данная программа не требует.

Выдать разрешения в манифесте

Запросить при необходимости в рантайме из кода

И путь брать через System.IOUtils

Ссылка на комментарий
  • 0
1 час назад, mazayhin сказал:

Выдать разрешения в манифесте

А как сделать этот манифест? 

1 час назад, mazayhin сказал:

Запросить при необходимости в рантайме из кода

Аналогичный вопрос. 

1 час назад, mazayhin сказал:

И путь брать через System.IOUtils

Нельзя ли поподробнее? Что за System.IOUtils

Ссылка на комментарий
  • 0

Изучите особенности программирования под Android, общее устройство этой ОС, структуру apk файлов (сначала будет трудно, но иначе ничего у вас не получится).

Про манифест: https://developer.android.com/guide/topics/manifest/manifest-intro

Отвечу на ваши вопросы, но сейчас толку будет мало:

Файл-шаблон манифеста AndroidManifest.template.xml создается автоматически при создании проекта (копируется в папку проекта), окончательный файл манифеста формируется при сборке проекта, разрешения для работы с внешним хранилищем даны по-умолчанию (чтение+запись).

1361862021_.thumb.png.268444edc464a12e01fbf2193aa515b6.png

но перед работой с внешним хранилищем в программе необходимо явно запросить разрешение у пользователя (если пользователь уже дал разрешение, то диалога-запроса не будет, код выполнится сразу без запроса):

1239924948_.png.300db18f2b767483d3f95e6ddf985da7.png

System.IOUtils - кроссплатформенная библиотека для работы с файлами (папками и прочее)..  Пример вызова: TFile.WriteAllText().

Советую изучить ее исходный код.

 

 

Ссылка на комментарий
  • 0
В 23.01.2021 в 14:42, slav_z сказал:

Файл-шаблон манифеста AndroidManifest.template.xml создается автоматически при создании проекта (копируется в папку проекта), окончательный файл манифеста формируется при сборке проекта, разрешения для работы с внешним хранилищем даны по-умолчанию (чтение+запись).

Я посмотрел. У меня там стоит галочка True и в пункте Read eternal storage и в Write eternal storage. 

Кстати, если этот манифест нужно распространять вместе с приложением - то как? Все приложения которые я видел, распространялись исключительно как установочные APK-файлы, никаких XML-файлов к ним не прилагалось. Или, для Android тоже нужны программы для создания установочных файлов, как и для Windows? 

В 23.01.2021 в 14:42, slav_z сказал:

System.IOUtils - кроссплатформенная библиотека для работы с файлами (папками и прочее).. 

Где можно почитать про нее? 

 

Ссылка на комментарий
  • 0

И кстати, 

В 23.01.2021 в 14:42, slav_z сказал:

но перед работой с внешним хранилищем в программе необходимо явно запросить разрешение у пользователя (если пользователь уже дал разрешение, то диалога-запроса не будет, код выполнится сразу без запроса):

Код который изображен на картинке - нерабочий. В том смысле, что он вообще не компилируется. var и := в самом начале, подчеркиваются красным. 

Также подчеркивается красным запятая в выражении RequestPermissions([WriteStorage], 

и Granted в (AGrantResults[0] = TPermissionStatus.Granted) 

Ссылка на комментарий
  • 0
3 минуты назад, Delpher-X сказал:

И кстати, 

Код который изображен на картинке - нерабочий. В том смысле, что он вообще не компилируется. var и := в самом начале, подчеркиваются красным. 

Также подчеркивается красным запятая в выражении RequestPermissions([WriteStorage], 

и Granted в (AGrantResults[0] = TPermissionStatus.Granted) 

потому что у вас старая версия делфи. Уточните, какая именно?

Ссылка на комментарий
  • 0
4 часа назад, Delpher-X сказал:

Код который изображен на картинке - нерабочий

объявите переменную WRITE_EXTERNAL_STORAGE обычным способом типа string. все остальные ошибки компиляции - следствие первой...

9 часов назад, Delpher-X сказал:

Кстати, если этот манифест нужно распространять вместе с приложением - то как?

при сборке он автоматически включается в APK-файл..  ничего делать для этого не нужно... APK-файл это обычный ZIP-файл... измените расширение на ZIP и откройте, посмотрите что у него внутри...

9 часов назад, Delpher-X сказал:

Где можно почитать про нее?

хотя бы здесь: http://www.proghouse.ru/programming/126-ioutils

Ссылка на комментарий
  • 0
1 минуту назад, slav_z сказал:

объявите переменную WRITE_EXTERNAL_STORAGE обычным способом типа string.

А, так это строковый тип. Так бы сразу и сказали, а то непонятно. 

2 минуты назад, slav_z сказал:

ри сборке он автоматически включается в APK-файл..  ничего делать для этого не нужно... APK-файл это обычный ZIP-файл... измените расширение на ZIP и откройте, посмотрите что у него внутри...

Только что посмотрел - и вправду есть. Но почему же тогда все же разрешения для приложения никак не отображаются при установке? 

4 минуты назад, slav_z сказал:

Спасибо, уже сам нашел. 

Ссылка на комментарий
  • 0
7 минут назад, slav_z сказал:

объявите переменную WRITE_EXTERNAL_STORAGE обычным способом типа string. все остальные ошибки компиляции - следствие первой...

Попробовал. В результате теперь там все полыхает красным подчеркиванием. 

Ссылка на комментарий
  • 0
41 минут назад, Delpher-X сказал:

Но почему же тогда все же разрешения для приложения никак не отображаются при установке? 

такое поведение было у старых андроидов...  теперь необходимо запрашивать разрешение у пользователя прям тогда, когда программе это реально нужно...

40 минут назад, Delpher-X сказал:

В результате теперь там все полыхает красным подчеркиванием. 

подключить модули в uses не забыли ? (см. картинку с кодом)

Ссылка на комментарий
  • 0
1 час назад, Delpher-X сказал:

Попробовал. В результате теперь там все полыхает красным подчеркиванием. 

 

22 минут назад, slav_z сказал:

подключить модули в uses не забыли ? (см. картинку с кодом)

 

20 минут назад, Delpher-X сказал:

Все подключил, в точности как на картинке. 

Все, разобрался. Только один баг не могу пофиксить. В коде: 

procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
ShowMessage('Write to File')
end;

end; почему-то подчеркнут красным. Пробовал ставить перед предыдущей строкой ставить точку с запятой, убирать, помещать в отдельный блок begin end; - все бесполезно. 

Изменено пользователем Delpher-X
Ссылка на комментарий
  • 0
22 минут назад, Delpher-X сказал:

почему-то подчеркнут красным. Пробовал ставить перед предыдущей строкой ставить точку с запятой, убирать, помещать в отдельный блок begin end; - все бесполезно. 

закр. скобку поставьте ")"...  это анонимная функция... (см. картинку с кодом)

Ссылка на комментарий
  • 0
2 часа назад, slav_z сказал:

такое поведение было у старых андроидов...  теперь необходимо запрашивать разрешение у пользователя прям тогда, когда программе это реально нужно...

Да, еще вопрос. Тот код, который вы запостили вот в этом сообщении, он подходит для запроса любых разрешений для приложения - или только для возможности создавать и изменять файлы и каталоги? 

Ссылка на комментарий
  • 0
12 часов назад, slav_z сказал:

для любых (они должны быть добавлены так же в Uses Permissions для того чтобы попасть в файл манифеста)

Тут немного не понял. В вашем коде в uses добавлены только System.Permissions, Androidapi.Helpers, Androidapi.JNI.Os 

Ссылка на комментарий
  • 0
1 час назад, Delpher-X сказал:

Толку от этого манифеста, коль скоро нужно запрашивать доступ отдельно и через программный код. 

если не будет в манифесте, не сможете запросить и программно... это нужно чтобы ОС Android знала какие разрешения может запросить программа... ей это нужно... а сами разрешения у ПОЛЬЗОВАТЕЛЯ! должны запрашиваться в момент когда они действительно  нужны, а не в момент первого запуска программы (как было раньше) ... тут все правильно.. потом разберетесь...

Ссылка на комментарий
  • 0
В 27.01.2021 в 02:02, slav_z сказал:

если не будет в манифесте, не сможете запросить и программно... это нужно чтобы ОС Android знала какие разрешения может запросить программа... ей это нужно... а сами разрешения у ПОЛЬЗОВАТЕЛЯ! должны запрашиваться в момент когда они действительно  нужны, а не в момент первого запуска программы (как было раньше) ... тут все правильно.. потом разберетесь...

А как разрешения записать в манифест? Или, это делается как-то автоматически? 

Ссылка на комментарий
  • 0
3 минуты назад, slav_z сказал:

Посмотрите выше картинку. Окно Project Options\Uses Permissions.

А, ну да. 

В любом случае, спасибо вам за консультацию. Не хотел бы вас лишний раз напрягать, но быть может, вы могли бы что-то подсказать мне и по вот этому вопросу

Изменено пользователем Delpher-X
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Похожий контент

    • Автор Delpher-X
      Итак, у меня была Delphi 10.3 Community Editon, которой я пользовался год. Затем, бесплатная лицензия истекла и я поставил себе новую Community Edition - на этот раз, версию 10.4. Однако она оказалась полным отстоем - ничего нового и интересного в ней нет, а вот целая куча нужных вещей оказалась выпилена (включая то, что многие старые компоненты больше не работают). 
      А посему у меня вопрос - как реанимировать установленную у меня Delphi 10.3, как продлить ее Community Edition лицензию? 
    • Автор Delpher-X
      Итак, я установил себе новую Delphi 10.4 CE, так как у старой Delphi 10.3 CE кончился годовой срок. Однако, у меня возникла проблема с разработкой, точнее - с компиляцией приложений для Android. Дело в том, что в поставке новой Embarcadero RAD 10.4 отсутствует AVD Manager (эмулятор для Android), что вы и можете видеть на втором скрине. А когда я пытаюсь использовать старый, из набора Embarcadero RAD 10.3, компиляция вылетает с ошибкой, которую вы можете видеть на первом скрине.   


    • Автор Yaugenka
      В компанию требуется опытный разработчик, который готов присоединиться к команде для разработки крупного проекта в области Blockchain-технологий, распределенных систем и криптографии. Зп от 150 000 до 200 000 ₽. Удаленная работа.

      Обязанности:

      - Работа с криптографическими алгоритмами, blockchain технологиями
      - Разработка программного обеспечения на Delphi
      - Участие в разработке блокчейн проекта нового поколения
      - Разработка, поддержка и развитие серверных функций системы на основе Blockchain
      - Отладка, анализ производительности оптимизация ПО;
      - Проектирование и разработка архитектуры разрабатываемых решений;

      Требования:

      - Опыт разработки ПО от 5 лет;
      - Плюс: Понимание принципов работы публичных и закрытых блокчейнов (Ethereum/Solidity, Bitcoin, Quorum)
      - Знание принципов ООП и шаблонов проектирования;
      - Опыт работы с системами контроля версий ПО (Git)
      - Уверенное владение языком программирования Delphi, средой разработки embarcadero
      - Знание английского языка на уровне чтения технической литературы;

      Условия:

      - Участие в интересном и масштабном проекте
      - Дружный коллектив;
      - Возможности развития и обучения

      Бонусы
      Бонусы по итогам года.

      О нас:
      Мы компания новаторов и энтузиастов в сфере блокчейн и криптовалют.
      https://career.habr.com/vacancies/1000074707

      Контакт для обратной связи: hr@relictum.pro
    • Автор Delpher-X
      Итак, как добавить в приложение проверку наличия соединения с Интернетом? Я всегда пользовался кодом: 
      var NetControl : DWORD; begin NetControl := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@NetControl, 0); end; Однако здесь он явно не подходит, так как предназначен для Windows, а меня интересует Android. Я пробовал использовать компонент IdIPWatch, но он все время верещал о том что Интернета нет, несмотря на то что смартфон был вполне подключен к сети. 
    • Автор Delpher-X
      Вопрос: как спрятать главную форму приложения в FMX? В VCL это делается просто - Project>View Source>вписываешь в открывшемся окне Application.ShowMainForm := False, однако в FMX такой фокус не прокатывает, там просто свойства такого нет - ShowMainForm. Как же быть? 
    • Автор Delpher-X
      Пытаюсь программно добавить в своем проекте компонент IdFTP: 
      FTPBot : TIdFTP; FTPBot := TIdFTP.Create(); FTPBot.Name := 'FTPGhost'; FTPBot.Passive := True; FTPBot.Host := ''; FTPBot.Username := ''; FTPBot.Password := ''; Код компилируется нормально. 
      Однако, когда я пытаюсь обратиться к свойству TransferType полученного объекта: 
      FTPBot.TransferType.ftBinary; Программа при компиляции вылетает с ошибкой, утверждает что нельзя так писать. В чем дело? 
    • Автор Simons Cat
      У меня среда программирования rad studio Delphi 10.4.2. Собственно ищу совета как отправить и получить ответ на запрос USSD.
      Нашел в интернете единственный пример более или менее который похож на правду.
      Привел его к виду нормальному виду, но не хватает знаний как передать функцию CallBack.
      procedure TForm7.Button6Click(Sender: TObject); var Temp:Jstring; ResponceCallBack: JTelephonyManager_UssdResponseCallback; handler: JHandler; begin     TM :=TJTelephonyManager.Create;   handler := TJHandler.Create;   ResponceCallBack := TJTelephonyManager_UssdResponseCallback.Wrap(   TAndroidHelper.Context.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE));    TM.sendUssdRequest(StringToJString('*100#'), ResponceCallBack,handler);   end;  
      На java делается вот так. Не знаю как этот код переделать в delphi.
      TelephonyManager =  telephonyManager(TelephonyManager)getSystemService(Context.TELEPHONY_SERVICE);     Handler handler = new Handler();     TelephonyManager.UssdResponseCallback callback = new TelephonyManager.UssdResponseCallback() {         @Override         public void onReceiveUssdResponse(TelephonyManager telephonyManager, String request, CharSequence response) {             super.onReceiveUssdResponse(telephonyManager, request, response);             Log.e("ussd",response.toString());           }           @Override         public void onReceiveUssdResponseFailed(TelephonyManager telephonyManager, String request, int failureCode) {             super.onReceiveUssdResponseFailed(telephonyManager, request, failureCode);             Log.e("ussd","failed with code " + Integer.toString(failureCode));         }     };       try {            Log.e("ussd","trying to send ussd request");            telephonyManager.sendUssdRequest("*123#",                     callback,                     handler);         }catch (Exception e){                 String msg= e.getMessage();             Log.e("DEBUG",e.toString());             e.printStackTrace();         }  
    • Автор Delpher-X
      Я обратил внимание, что если в VCL цвет формы, а также некоторых других компонентов можно менять, то в FMX это сделать нельзя - доступен только дефолтно-серый, во всяком случае, при компиляции под Android. Есть ли какие-то способы это поправить? 
    • Автор Delpher-X
      У меня есть следующий код, который передает данные из потока в объект типа TStrings: 
      var F : TMemoryStream; S : TStrings; begin F := TMemoryStream.Create; S := TStringList.Create; F.LoadFromFile('C:/File.jpg'); S.LoadFromStream(F); Из TMemoryStream в TStrings все передается нормально. Однако - как обратно? Как снова преобразовать объект TString в поток данных, дабы снова можно было бы сохранить его в полноценный файл? 
    • Автор slav_z
      Все разработчики при работе с FMX рано или поздно сталкиваются с одной и той же проблемой: необходимо исключить "случайное" срабатывание нажатий элементов внутри скроллбокса во время его скроллинга. Идут годы, а решения так и нет. Давайте попробуем это исправить. Поехали!
      Запускаем IDE, создаем новый проект, кидаем на форму TVertScrollBox и на него чего-нибудь побольше... запускаем на мобильном устройстве, пытаемся скроллировать,

      получаем проблемы в виде срабатывания разных событий типа OnClick элементов.
      Решение состоит в том, чтобы сделать элементы "невидимыми" для событий связанных с действиями пользователя с экраном во время скроллинга.
      Делаем следующее:

      Все. Переносим код в базовую форму, делаем его более гибким, убираем все те костыли, которые мы уже успели сделать ранее...
      Удачи!
      https://github.com/slav-libx/scroll-click.git
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...