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

Letter

Пользователи
  • Постов

    18
  • Зарегистрирован

  • Посещение

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

  1. не , ничего не получается, тупой я, пример нужен
  2. Ну да, там и были. Через total commander искал, и не нашел
  3. я этот файл найти на пк не могу, где он?
  4. Вот текст из memo получается, а как файл привязать не получается ShowShareSheetAction2.TextMessage:=memo1.Lines.Text;
  5. что то не понятно мне в этом примере, как и куда прикрутить текстовый файл для отправления. Подскажите пожалуйста
  6. подскажите по точнее пожалуйста, все перерыл, не нашел
  7. Подскажите, нужно поделиться файлом, например текстовым, путь до файла известен. Нужно открыть вкладку "Поделиться" , и отправить файл выбрав каким способом. У меня на самсунге называется" поделиться" как на фото
  8. Написал программу на delphi 10.4 под андроид, в программе есть запрос на доступ к файлам чтения и записи, вот такой: procedure TForm1.Button1Click(Sender: TObject); begin //запрашиваем и узнаем что дал права PermissionsService.RequestPermissions([FPermissionWrite, FPermissionRead], PermissionRequestResult, ExplainReason); end; procedure TForm1.FormCreate(Sender: TObject); begin //заносим значения при открытии FPermissionWrite := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE); //Значение на запись FPermissionRead := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE); //Значение на чтение end; procedure TForm1.FormShow(Sender: TObject); begin //запрашиваем и узнаем что дал права PermissionsService.RequestPermissions([FPermissionWrite, FPermissionRead], PermissionRequestResult, ExplainReason); end; procedure TForm1.PermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>); begin //PermissionRequestResult - это обработка ответа пользователя if (Length(AGrantResults) = 2) and (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) then begin // Ура! Пользователь дал разрешение на оба наших запроса. Выставялем глобальные флаги (к примеру) которые сигнализируют что можно читать/писать карту памти form1.CheckBox1.Visible:=True; form1.Button1.Enabled:=False; end else begin TDialogService.ShowMessage('Не возможно продолжить работу, требуемые разрешения не получены'); form1.CheckBox1.Visible:=false; form1.Button1.Enabled:=true; end; end; procedure TForm1.ExplainReason(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc); begin //И ExplainReason - если пользователь сдуру не дал разрешение, // то вам нужно объяснить ему что без этого приложение работать не будет. TDialogService.ShowMessage('Приложению нужен доступ к карте памяти для таких то целей, иначе приложение не сможет работать. Зайдите в настроки Андроид и дайте разрешение на доступ', procedure(const AResult: TModalResult) begin APostRationaleProc; form1.CheckBox1.Visible:=false; form1.Button1.Enabled:=true; end) end; end. и все работает, но в телефоне я посмотрел права у программы, и там только доступ к медиафайлам. Подскажите как сделать ко всем файлам доступ?
  9. Подскажите как открыть sdk manager в delphi 10.4
  10. Подскажите как сократить путь? Например при System.IOUtils.TPath.GetDownloadsPath выдаст такой путь " /storage/emulated/0/Download " и нужно его сократить до "/storage/emulated/0 "
  11. Подскажите, как можно вывести в ListBox весь список папок и файлов из корня внутренней памяти?
  12. Letter

    пароль на бд

    Программой db browser for Sqlite установил пароль на базу данных. В fdconnection.params.password добавил пароль которым запоролил базу, но при подключении, выдает ошибку " Cipher: Invalid password is specified or DB is corrupted " Пароль тот, же и база данных без пароля открывается. Задача такая, установить пароль на бд и при открытии в программе распаролить, можно это средствами fdconnection на delphi xe 10.1 ?
  13. Что то я не вьезжаю, вот открыл файл, выделил картинку, а как мне ее от туда вытащить , а потом обратно вставить?
  14. Хотел изменить png в стиле .fsf, а как вытащить картинку и обратно вставить? Если 2 раза на stylebook нажать попадаю в style designer там файл .fsf открывается ,а как картинку вытащить и вставить? А в Bitmap style designer файл .fsf не открывается. И еще подскажите,как подписываться на созданную тему?
×
×
  • Создать...