Hevard
Пользователи-
Постов
78 -
Зарегистрирован
-
Посещение
-
Победитель дней
7
Весь контент Hevard
-
Я обычно "сверху" ставлю UniversalAdbDriverSetup.zip
-
Интересно, но проект увеличился на 2 мБ в версии 11.3
-
Для переноса (компилирования) проектов из более ранней версии необходимо провести действия для Android 32-bit и Android 64-bit. В окне Projects (справа) выбрать Target Platforms -> Правой кнопкой щёлкнуть по Libraries и выбрать Revert System Files to Default. И не забудьте перенести debug.keystore из c:\Users\<USER>\AppData\Roaming\Embarcadero\BDS\21.0\ в папку ...\22.0\ Delphi: Community Edition - Embarcadero
-
Как узнать версию приложения под Android?
Hevard ответил Евгений Корепов вопрос в Приложение и формы
Сам спросил, сам ответил: var PackageManager: JPackageManager; ApplicationInfo: JApplicationInfo; VersionPackage,PackageName, Name_APK: JString; begin // APK Version PackageManager := SharedActivity.getPackageManager; ApplicationInfo := SharedActivity.getApplicationInfo; PackageName := SharedActivityContext.getPackageName; VersionPackage := PackageManager.getPackageInfo(PackageName, 0).versionName; Name_APK := PackageManager.getApplicationLabel(ApplicationInfo).toString; -
Как узнать версию приложения под Android?
Hevard ответил Евгений Корепов вопрос в Приложение и формы
Подскажите, а как "вытащить" название приложения? (label)? Не нашёл ни в getPackageInfo, ни в getApplicationInfo -
Использовал такой пример: procedure TForm1.Button2Click(Sender: TObject); var zip: TZipFile; PackageName: JString; begin // Отключаемся от базы test_connect.Connected := False; // Получаем имя apk файла PackageName := SharedActivityContext.getPackageResourcePath; if TFile.Exists(JStringToString(PackageName)) then begin // Удаляем старый файл базы TFile.Delete(TPath.GetHomePath + PathDelim + 'test.db'); // Извлекаем новый файл базы zip := TZipFile.Create; zip.Open(JStringToString(PackageName), TZipMode.zmRead); zip.Extract('assets/internal/test.db', TPath.GetDocumentsPath, False); zip.Close; zip.free; end else showmessage('False'); // Подключаемся к базе test_connect.Connected := True; end; (взято от сих: Delphi разработка под Android: Обновляем файл базы данных без перезапуска приложения (delphifmandroid.blogspot.com)) Суть проблемы была в том, что были изменения и в базе, и в приложении. Но все новые версии устанавливались без переустановки новых *.db файлов. Собственно, данным примером положение исправилось.
-
Вам к психологу обратиться не мешало бы! Тоже мне, доктор Хаус очередной. А если отвечать на Ваш вопрос по теме, то без разницы - и там, и там можно сделать запись татуировкой.
-
Подскажите, а в чём принципиальная разница между типизированным файлом и JSON? Как это влияет на сохранение небольшого количества данных и использование в дальнейшем? Для записи в типизированный файл не нужны дополнительные библиотеки, в отличии от использования JSON.
-
Это самому расписывать координаты и якоря?
-
Доброго дня! Есть динамический массив, который надо выгрузить в файл. Не могу понять, каким методом. Под Win делал так: ... AssignFile(IndexFile, 'DB\Index.tmp'); Rewrite(IndexFile); ... (в динамическом цикле) // Запись в файл Writeln(IndexFile,IntToStr(I)+', ' // номер по порядку +IntToStr(QNum)+', ' // номер вопроса +IntToStr(URes)+', ' // ответ +IntToStr(RAns)); // правильный ответ // Запись массива IndexData[I,1] := I; // I строка, 1 столбец - номер по порядку IndexData[I,2] := QNum; // I строка, 2 столбец - номер вопроса IndexData[I,3] := URes; // I строка, 3 столбец - ответ IndexData[I,4] := RAns; // I строка, 4 столбец - правильный ответ end; CloseFile(IndexFile); Параллельно возник ещё вопрос: А закрывать файл после записи не надо теперь? Не нашёл ничего похожего на CloseFile.
-
Добрый день! В RAD есть шаблоны на 5" и на 7". Как приложение определяет дюймовку экрана? Есть 2 телефона: Разрешение (пикс): 1920x1080 (5.2") Разрешение (пикс): 2340x1080 (6.3") В первом - шаблон 5", во втором - 7" Как так получается?
-
Деплоим в assets\internal\ файл звука (мр3 или ogg), размещаем на Форме компонент MediaPlayer1 и используем: procedure TMainForm.MakeSound; begin {$IFDEF ANDROID} MediaPlayer1.FileName := TPath.Combine(TPath.GetDocumentsPath, 'Button.ogg'); MediaPlayer1.Play; {$ENDIF} end; К примеру: procedure TMainForm.Button2Click(Sender: TObject); begin //==================== ... ... MakeSound; //====================== end;
-
Есть приложение, есть БД к нему. Опыта ноль, буду рад любым вариантам решения.
-
Глаза сломал в HEX редакторе... Вопрос решился изменением типа поля (в SQLite Studio) с Text на RTL Text.
-
Доброго дня! Не могу понять, откуда возникают пустые строки в списке? В самой ячейке таблицы SQLite текст выглядит как: ~ при обнаружении на пути или в тоннеле препятствия или неисправности, угрожающей безопасности движения; ~ при необходимости подать напряжение на контактный рельс; ~ при крушении поезда и в других случаях, когда требуется помощь; ~ при потере поездом тормозного эффекта, если создается угроза наезда на препятствие или людей; В Win приложении отображается корректно, а под Андроид - возникают разрывы между предложениями. (пункт 2 был написан в "одну строку"... )
-
Я не пойму, а в каком моменте идёт подключение к базе? BeforeConnect прописан, но в коде не указано .Conneсt :=True;
- 15 ответов
-
- sqlite
- база данных
-
(и ещё 1 )
C тегом:
-
Выбрано было всё верно, но работает оно, как-то странно. Я закрыл проект, открыл снова и стиль применился. Не знаю, от чего это зависит... (Бывает, что Панель компонентов живёт своей жизнью. ) И параллельно возник ещё вопрос - как сделать тему в цвет платформы? В Win установлена тёмная тема, а приложение - светлое.
- 9 ответов
-
- tstylebook
- android
-
(и ещё 1 )
C тегом:
-
Как боролись и чем победили?
- 9 ответов
-
- tstylebook
- android
-
(и ещё 1 )
C тегом:
-
А на вскидку, какой там пример с использованием стиля?
- 9 ответов
-
- tstylebook
- android
-
(и ещё 1 )
C тегом:
-
Отменил все разрешения
- 9 ответов
-
- tstylebook
- android
-
(и ещё 1 )
C тегом:
-
Без стиля всё прекрасно работало. Если удалить StyleBook - работает, если добавить в свойства Формы StyleBook1 - работает, но без стиля. А если прописать путь в FileName - повторяется прежняя котовасия с зависанием (х32) и вылетом(х64).
- 9 ответов
-
- tstylebook
- android
-
(и ещё 1 )
C тегом:
-
Доброго дня! Не могу победить применение стиля в приложении FMX. Положил на Форму TStyleBook, выбрал 0-Android, открыл и применил стиль Transparent.Style, в свойстве Формы добавил StyleBook = StyleBook1... В окне Design всё изменилось, всё красивое. В Win10 приложение запускается в стиле, на телефоне при параметре Android x32 зависает сплэш, при х64 вылетает. (Delphi 10.4, Samsung A30, Android 11) Подскажите, что я делаю не так?
- 9 ответов
-
- tstylebook
- android
-
(и ещё 1 )
C тегом:
-
Вот решение: