Letter

Поделитесь, ка вы даете разрешение на запись на delphi 12.2. Может кто нашел выход

Подскажите как менять цвет обводки в RoundRect? В delphi 10.4 менял так и все было хорошо form2.RoundRect1.Canvas.Stroke.Color := TAlphaColorRec.red; А на delphi 12 ни чего не меняется

Как выяснилось, не удаляется только на моем смарте, на других все работает, в чем проблема? ни кто не знает?

Деплою файл базы данных в assets\internal , deployment qverwrite always . Но если удалить программу , то файл не удаляется.

Подскажите, если я в своей программе создаю и записываю параметры в ini файл в assets\internal и далее буду в него записывать и читать из него. Нужно запрашивать у пользователя права на чтение и запись? У меня работает без запросов, понять бы как будет на других смартах. Delphi 10,4 android , MIUI 14

Есть таблица PRODUKT в ней столбцы ID_RAZDEL , NAME и HOLS . В NAME записаны мужские имена и женские, те которые мужские, в ID_RAZDEL помечены цифрой 1 , женские цифрой 2. В HOLS записан их возраст. Нужно вывести только женские имена с возрастом от 20 до 25. Пробую так, но выводятся и мужские и женские SELECT * FROM PRODUKT WHERE HOLS BETWEEN 20 AND 25 ORDER BY ID_RAZDEL = 2

А еще проверить на дублирующие записи в текстовой колонке

Подскажите еще как сортировать по условию. Колонка ID_RAZDEL имеет цифры, нужно вывести записи от 40 до 60

Сначало вывожу все строки в которых есть цифра 1 with Produkt_Query do begin SQL.Clear; SQL.Add('select * from PRODUKT where ID_RAZDEL = 1'); Active:=True; end; Потом нужно отсортировать , но что то делаю не так with Produkt_Query do begin SQL.Clear; SQL.Add('SELECT * FROM PRODUKT ORDER BY NAME_PRODUKT ' ); Active:=True; end;

В listbox загружаю список из БД , на onClick установлено ShowMessage('ListBoxItem.itemindex = ' + ListBox1.ItemIndex.ToString); При прокручивании списка пальцем на андроиде выскакивает Showmessage. С этим все понятно так и должно быть, подскажите как сделать так , что бы Showmessage срабатывало непосредственно только при нажатии на items , а не при прокручивании

Спасибо, так и есть После ввода пароля, открылась надпись "Enter password for key 'Sign':" Ввожу тот же пароль но опять ошибка, где взять пароль? При создании keystore.keystore пароль везде ставил один

Здравствуйте, помогите сделать подпись приложения, для размещения в Rustore. В данном случае не получается сделать zip архив (pepk_out.zip). Сам сертификат создать получается (.pem). В Rustore читал хелп и смотрел ролик, но на практике только получается создать сертификат. После того как я ввожу в командную строку java -jar pepk.jar --keystore /Users/user/keys/keystore/keystore.keystore --alias Sign --output /Users/user/pepk_out.zip --encryptionkey=00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 --include-cert Нажимаю Enter и получаю вот такую надпись Enter password for store 'keystore.keystore': При этом в командную строку ввести ни чего нельзя, клавиатура заблокирована Далее опять нажимаю Enter И получаю: Error: Unable to export or encrypt the private key java.io.IOException: Keystore was tampered with, or password was incorrect at java.base/sun.security.provider.JavaKeyStore.engineLoad(JavaKeyStore.java:804) at java.base/sun.security.util.KeyStoreDelegator.engineLoad(KeyStoreDelegator.java:228) at java.base/java.security.KeyStore.load(KeyStore.java:1499) at com.google.wireless.android.vending.developer.signing.tools.extern.export.KeystoreHelper.loadKeystore(KeystoreHelper.java:53) at com.google.wireless.android.vending.developer.signing.tools.extern.export.KeystoreHelper.getKeystore(KeystoreHelper.java:39) at com.google.wireless.android.vending.developer.signing.tools.extern.export.ExportEncryptedPrivateKeyTool.run(ExportEncryptedPrivateKeyTool.java:207) at com.google.wireless.android.vending.developer.signing.tools.extern.export.ExportEncryptedPrivateKeyTool.main(ExportEncryptedPrivateKeyTool.java:165) Caused by: java.security.UnrecoverableKeyException: Password verification failed at java.base/sun.security.provider.JavaKeyStore.engineLoad(JavaKeyStore.java:802) ... 6 more В этом запросе и должен быть создан pepk_out.zip

Спасибо всем, надоело искать причину, установил delphi 11 и все заработало

А что нибудь для delphi 11 есть?

Окно на запрос дать разрешение не открывается, почему? PermissionsService.RequestPermissions( [ JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE), JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)],nil);

Здравствуйте, на Delphi 12.1 нужно что бы пользователь дал разрешение на запись и чтение файла. Данный код работал без проблем на Delphi 10.4. А на Delphi 12.1 при открытии приложения не появляется окно что бы дать разрешение, а сразу перескакивает на процедуру PermissionRequestResult и при проверки соответственно так как разрешение не дано выводит окно "Требуемые разрешения не получены". Подскажите что не так в коде? unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,System.Permissions, Androidapi.Jni.Os,Fmx.DialogService, Androidapi.Helpers; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure PermissionRequestResult(Sender: TObject;const APermissions: TClassicStringDynArray;const AGrantResults: TClassicPermissionStatusDynArray); procedure ExplainReason(Sender: TObject; const APermissions: TClassicStringDynArray; const APostRationaleProc: TProc); procedure FormShow(Sender: TObject); private { Private declarations } FPermissionWrite: string; FPermissionRead: string; public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.ExplainReason(Sender: TObject; const APermissions: TClassicStringDynArray; const APostRationaleProc: TProc); begin TDialogService.ShowMessage('Приложению нужен доступ к карте памяти для таких то целей', procedure(const AResult: TModalResult) begin APostRationaleProc; end) 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: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray); begin if (Length(AGrantResults) = 2) and (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) then begin TDialogService.ShowMessage('Разрешения получены'); end else begin TDialogService.ShowMessage('Требуемые разрешения не получены'); end; end; end.

Спасибо еще раз! А не могли бы Вы подсказать как удалить записи? То есть из текстового файла загружаю список. И нужно так же , какие отмечены чикетом, то те удалить записи. Пробовал ListBox1.Items.Delete(r); Но не получается.

Установил Delphi 10.4.2 теперь после компиляции файл с расширением aab, подскажите как вернуть с расширением apk? Я в Google Play закачивать не собираюсь, мне как бы роднее apk

Загружаю список файлов в listbox, как все отмеченные ischecked файлы удалить?

А не подскажите еще, как усилить звук записи? Если писать на диктофон встроенный, то запись громче

Вот спасибо, помню что эта тема есть, но не помню где видел

Подскажите, как включить запись звука?

Создал файл Delphi 10.4 , Release откомпилировал, начал загружать на rustore , ошибка "Это дебаг-сборка. Загрузите сборку для обычных пользователей" Вот фотки компиляции и загрузки, подскажите что не так?

На чем можно протестировать приложение написанное на андроиде fmx delphi 10.4 Что бы понять как будет выглядить на разных смартфонах, с разными экранами

У компонента SpinBox на андроиде нужно что бы цифры вводились стрелками, а с клавиатуры вводить нельзя. Подскажите как реализовать?