Letter

TDialogservice.InputQuery('первое заполнение', ['второе заполнение'], [''], procedure(const AResult: TModalResult; const AValues: array of string) begin case AResult of mrOk: DIALOG:=StrToint(AValues[0]); mrCancel: DIALOG:=0; end; end ); Использую такой код для диалога, но проблема в том, что если ни чего ни ввести в окно диалога, и нажать "OK", то программа закрывается. Подскажите в чем проблема, как исправить.

не , ничего не получается, тупой я, пример нужен

Ну да, там и были. Через total commander искал, и не нашел

я этот файл найти на пк не могу, где он?

Вот текст из memo получается, а как файл привязать не получается ShowShareSheetAction2.TextMessage:=memo1.Lines.Text;

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

подскажите по точнее пожалуйста, все перерыл, не нашел

Подскажите, нужно поделиться файлом, например текстовым, путь до файла известен. Нужно открыть вкладку "Поделиться" , и отправить файл выбрав каким способом. У меня на самсунге называется" поделиться" как на фото

Написал программу на 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. и все работает, но в телефоне я посмотрел права у программы, и там только доступ к медиафайлам. Подскажите как сделать ко всем файлам доступ?

Подскажите как открыть sdk manager в delphi 10.4

Подскажите как сократить путь? Например при System.IOUtils.TPath.GetDownloadsPath выдаст такой путь " /storage/emulated/0/Download " и нужно его сократить до "/storage/emulated/0 "

Подскажите, как можно вывести в ListBox весь список папок и файлов из корня внутренней памяти?

Программой db browser for Sqlite установил пароль на базу данных. В fdconnection.params.password добавил пароль которым запоролил базу, но при подключении, выдает ошибку " Cipher: Invalid password is specified or DB is corrupted " Пароль тот, же и база данных без пароля открывается. Задача такая, установить пароль на бд и при открытии в программе распаролить, можно это средствами fdconnection на delphi xe 10.1 ?

Что то я не вьезжаю, вот открыл файл, выделил картинку, а как мне ее от туда вытащить , а потом обратно вставить?

Хотел изменить png в стиле .fsf, а как вытащить картинку и обратно вставить? Если 2 раза на stylebook нажать попадаю в style designer там файл .fsf открывается ,а как картинку вытащить и вставить? А в Bitmap style designer файл .fsf не открывается. И еще подскажите,как подписываться на созданную тему?

Подскажите ни чего не придумали на delphi android работать с отпечатком пальца? Например есть программы ,которые можно защитить отпечатком пальца, то есть при открытии программы требует отпечаток пальца.

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

Создайте пожалуйста файл базы данных с двумя таблицами с индексом, хочу посмотреть как правильно создавать индексы между таблиц.