Перейти к содержанию
Fire Monkey от А до Я
  1. Общие вопросы

    1. 512
      поста
    2. 1,5т
      поста
    3. 924
      поста
    4. Базы данных и REST

      Работа с базами данных и с REST из FireMonkey

      1,6т
      пост
    5. 10т
      поста
    6. Положение, размеры, выравнивание

      Положение контролов, размеры, способы выравнивания, абсолютные, локальные и экранные координаты

      434
      поста
    7. Работа с текстом

      Текстовые настройки, шрифты, отображение

      424
      поста
    8. Приложение и формы

      Настройки приложения и работа с формами

      1,3т
      поста
    9. Отладка

      Вопросы отладки и логирования delphi приложений. Поиск ошибок.

      504
      поста
    10. Развертывание приложений

      Deployment Manager, копирование своих файлов на устройство при установке приложения, подготовка к публикации, распространение.

      647
      постов
    11. поста
    12. Общая информация о TControl

      Общая информация о TControl, на основе которого строятся все остальные визуальные компоненты FireMonkey

      74
      поста
    13. 301
      пост
    14. Прочие вопросы

      Если нет соответствующего раздела форума, то сюда публикуем свой вопрос, затем тема перейдет в нужный раздел форума.

      3,1т
      поста
  2. Вопросы по платформам

    1. 6,9т
      постов
    2. 1,8т
      поста
    3. OSX

      195
      постов
    4. 713
      поста
    5. 6
      постов
    6. 88
      постов
  3. Вопросы по использованию RAD Studio

    1. Лицензирование

      Вопросы связанные с редакциями RAD Studio и лицензированием

      156
      постов
    2. 126
      постов
    3. 13
      постов
    4. 24
      поста
    5. 303
      поста
  4. Обучение

    1. 37
      постов
    2. 150
      постов
      • Сообщений пока нет
  5. Поиск специалистов по FireMonkey

    1. Консультации

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

      616
      постов
    2. Ищу подрядчика

      В этом разделе заказчики ищут подрядчиков для разовых/проектных работ на FireMonkey

      173
      поста
  6. Дополнительные ресурсы по FireMonkey

    1. Сторонние компоненты

      Раздел для публикации существующих компонентов для FireMonkey

      887
      постов
    2. Приложения, написанные с использованием FireMonkey

      Подборка ссылок на приложения, написанные с использование FireMonkey и RAD Studio

      328
      постов
    3. Примеры

      Подборка ссылок на официальные примеры

      9
      постов
    4. Руководства

      Книги, брошюры по FireMonkey

      67
      постов
    5. Шаблоны

      Шаблонные проекты

      159
      постов
    6. Статьи и заметки

      Публикация ссылок на интересные стать о Delphi и FireMonkey. Каждый пользователь может поделиться здесь своими ссылками.

      403
      поста
    7. Информация о версиях RAD Studio

      Информация о новых возможностях, появившихся в каждый версиях RAD Studio. А так же исправлениях и улучшениях

      812
      поста
    8. 536
      постов
  7. Организация работы данного форума

    1. 1
      пост
    2. Нарушения правил форума

      Сюда попадают темы, не отвечающие правилам форума

      23
      поста
    3. 147
      постов
    4. 100
      постов
    5. Функции форума

      Инструкции по использованию функций форума и оповещение о новых функциях

      19
      постов
  • Последние сообщения

    • Есть картинки *.png,*.jpg в основном. На примере темы  написал код, для начала только уменьшение качестка     if (FileExists("d:\\Work\\Project\\Tmp\\11.JPG"))         TFile::Delete("d:\\Work\\Project\\Tmp\\11.JPG");     TStream *Stream = new TMemoryStream();     TBitmapSurface *Surface = new TBitmapSurface();     TBitmapCodecSaveParams *SaveParam = new TBitmapCodecSaveParams();     TBitmap *SrcBitmap = new TBitmap();     TBitmap *DstBitmap = new TBitmap();     SrcBitmap->LoadFromFile("d:\\Work\\Project\\Tmp\\1.JPG");     Surface->Assign(SrcBitmap);     SaveParam->Quality = 50;     TBitmapCodecManager::SaveToStream(Stream, Surface, ".jpg", SaveParam);     Stream->Position = 0;     DstBitmap->LoadFromStream(Stream);     DstBitmap->SaveToFile("d:\\Work\\Project\\Tmp\\11.JPG"); Исходное изображение 2,5Мб а конечное DstBitmap 3,7 Мб. Ето так надо? Где я ошибся? Кроме изменения размеров изображения и качества - что еще можно оптимизировать? Спасибо
    • Получилось. Надо было кнопкой изменить рабочую версию, а я просто загрузила. 
    • Здравствуйте. В консоль гугла загрузила файл aab App Bundle. Загрузка прошла успешно. Но как сделать эту версию рабочей в консоли? Согласно документации версию надо подписать в самой консоли: http://docwiki.embarcadero.com/RADStudio/Sydney/en/Submitting_Your_Android_App_to_Google_Play#Android_App_Bundle_Support Но внешний вид консоли изменился ничего подобного там нет. Документация по ссылке устарела. Всю консоль просмотрела, не нашла как сделать мой App Bundle рабочей версией. Ткните, пожалуйста, носом где это делается в нынешней консоли разработчика?
    • Большое спасибо! Подскажите, пожалуйста, мои шаги следующие правильные? У меня в дереве проектов две версии приложения. Запускаю 32 бит версию. На телефоне появляется приложение и оно работает. Запускаю версию 64 бит на телефоне и рядом с приложением 32 бит появляется 64 битное и тоже работает. Далее создаю aab и отправляю в магазин. http://docwiki.embarcadero.com/RADStudio/Sydney/en/Submitting_Your_Android_App_to_Google_Play#Android_App_Bundle_Support Однако если aab содержит сервис то могут быть проблемы, информация отсюда, правда это было год назад: https://fire-monkey.ru/topic/2040-проблема-с-android-service/#comment-10875 Как все таки правильно? Пробовать создать гибридный apk?
    • И на моём запустился и не "упал". С Уважением. Олег.
    • Вот получился 32 бит. Вроде как работает. На моем телефоне запустился.   PublicRadio.apk
    • Написал программу на 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
    • Как сделать Конструктор форм не встроенным? Tools > Options > Form Designer, and clear the Embedded designer check box отсутствует чекбокс, хотя раньше был.
  • Последние темы

×
×
  • Создать...