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

Дмитрий Потапов

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

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

  • Посещение

  • Победитель дней

    5

Дмитрий Потапов стал победителем дня 1 декабря 2021

Дмитрий Потапов имел наиболее популярный контент!

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

4 723 просмотра профиля
  1. Почему нет? В случае возникновения ошибок всегда можно их исправить самостоятельно. Сейчас никаким. Поначалу было нужно, сейчас не использую FireMonkey почти нигде.
  2. Попробуйте библиотеку компонентов FGX, она содержит компонент TFgPositionAnimation, созданный для анимации свойств типа TPosition. Я сам пробовал использовать этот компонент - работал нормально.
  3. Доброго времени суток. На Embarcadero Delphi 11 Alexandria при компиляции проекта стал замечать такие сообщения: Порядок действий: Создаю проект В настройках проекта включаю параметр Link with runtime packages при использовании конфигурации All Platforms - All Configurations (этот параметр мне нужен из-за одной библиотеки, которая уже предварительно скомпилирована и у меня имеются лишь BPL и DCP файлы, без DCU) Компилирую под WIn32 (debug) - все нормально Компилирую под Win32 (release) - все нормально Компилирую под Win64 (debug) - все нормально Компилирую под Win64 (release) - все нормально Возвращаюсь обратно на Win32 Компилирую под Win32 (debug) - ошибка (первое сообщение) Компилирую под Win32 (release) - все нормально Перехожу на Win64 Компилирую под Win64 (debug) - все нормально Компилирую под Win64 (release) - ошибка (второе сообщение) Потом ошибки могут наоборот появляться например Win32 Debug нормально скомпилируется, а Win32 Release с ошибкой. То же самое касается и Win64, там такая же история. Если ошибка не появляется, то можно зайти в настройки проекта, что-нибудь изменить (например я включал\отключал Use Debug .dcu) ну или пройти зайти в настройки проекта и выйти. Тогда с большой вероятностью ошибка появится при компиляции Сообщение 1: [dcc32 Fatal Error] Project1.dpr(5): E2213 Bad packaged unit format: c:\program files (x86)\embarcadero\studio\22.0\lib\Win32\release\vcl.dcp.Vcl.Forms - Expected version: 35.0, Windows Unicode(x86) Found version: 7.54, Unk(ARM) Сообщение 2: [dcc64 Fatal Error] Project1.dpr(5): E2213 Bad packaged unit format: c:\program files (x86)\embarcadero\studio\22.0\lib\Win64\debug\vcl.dcp.Vcl.Forms - Expected version: 35.0, Windows Unicode(x64) Found version: 90.95, MaxOSX NX Language(ARM) Собственно вопрос следующий: могли бы вы, кто-нибудь проверить у себя такое же (желательно именно на Delphi 11 Alexandria), т.е проделать мой порядок действий. Обращу внимание на то, что если параметр Link with runtime packages отключить, то все сразу становится нормальным, компиляция происходит в штатном режиме и никаких сообщений с ошибкой не вываливается.
  4. Доброго времени суток. Интересует такой вопрос. Вот не так давно (9 сентября где-то) вышла новая 11.0 Alexandria, и там опять минимально поддерживаемую версию подняли. Вроде бы до Android 8.1. И вообще Embarcadero с каждым релизом поднимает минимальную поддерживаемую версию Android. Интересно, эта поддержка реализуется на стороне компилятора или самого FireMonkey? т.е например если на стороне FireMonkey, то например теоретически может быть возможно собрать приложение минуя FireMonkey для какого-нибудь Android 5.1 на Rad Studio 11.0. Спасибо.
  5. В общем. ВСЕМ спасибо. Реально работает, все это время у было это решение под рукой, но из-за неправильного использования оно не работало...
  6. Это решение подразумевает наличие этих файлов на диске? (к сожалению, сейчас проверить это решение не имею возможности). Просто у меня архив с нестандартной структурой и хотелось бы получить иконки файлов без их извлечения на диск. Например (насколько я знаю), так работает WinRar и 7-zip, они не извлекают файлы для того получить их иконки. Можно открыть архив на несколько гигабайт и он корректно покажет иконки файлов. Вот чего я хочу добиться, чтобы отобразить иконку файла, но если самого файла на диске нет. P.S: Даже смотрел в сторону еще одного костыльного решения: создавать пустые файлы, которые содержатся в архиве и тогда вполне корректно смогу получить их иконки.
  7. Доброго времени суток. Имеется необходимость получить иконки файлов. Суть такая: Имеются некие файлы-архивы, с нестандартной структурой файла. Проще говоря, я пишу приложение-архиватор для своего типа файлов. Все бы ничего, но хотелось бы скрасить некрасивый голый список файлов иконками (как в проводнике). Соответственно я начал изучать этот вопрос, как же получить иконку по расширению файла. Например: у меня установлен AIMP и все поддерживаемые AIMP'ом файлы отображаются его иконками. EXE, DLL, BAT, CMD и др - системными иконками. Можно поискать готовые решения в виде ShellListBox, ShellListView и т.д., но они не подойдут, как минимум потому, что файлы, которыми я заполняю список не распакованы, они находятся в файле-архиве. Соответственно функции по типу ExtractIcon (ссылка на docs.microsoft.com) и др. не подходят, файла-то нет. Я нашел одно решение - поиск иконок по реестру. В принципе это работает, но далеко не так, как хотелось бы... Информация в реестре почему-то порой не соответствует указанным мною параметрам. Например, в реестре у меня иконки подгружаются из файла VLC.exe. Изначально так оно и было, пока я не сменил их на AIMP, в проводнике это привело к нужному результату (иконки сменились), а вот в реестре до сих пор отображается VLC, соответственно, когда я ищу иконку по расширению .mp3, я нахожу иконку VLC, хотя настройки ассоциации формата .mp3 явно указывают на AIMP. Так же, в реестре порой можно наткнуться на отсутствие необходимых ключей и значений, в таком случае я реализовал подгрузку иконки (Unknown. т.е, когда проводник не распознал формат файла и показывает просто белый файл). В итоге у меня половина проверенных мною форматов шла (Unknown). Собственно вопрос: В какую сторону копать для решения данной проблемы? (Решения "только для FireMonkey" не подойдут, ибо нужны именно WinAPI-решения). Код получения иконки по формату файла: (не самое лучшее решение, это очевидно). Прикрепляю небольшой пример использования этой функции. Project1.zip
  8. WINDOWLESS - это Lite версия библиотеки, я же использую обычную версию, так что все правильно в этом случае.
  9. Здесь просто забыл дописать, ибо писал это все с телефона, да и времени особо не было. В коде же stdcall есть обязательно перед каждой функцией библиотеки
  10. Начну по порядку: 1. SCFN я сразу же расшифровал как: __stdcall *НАЗВАНИЕ ФУНКЦИИ* - например __stdcall SciterVersion(bool major) 2. Я изначально использовал тип BOOL в Delphi, но так как его значение true является (-1), то я перешел на Integer, ведь функции и с ним работают нормально, по крайней мере что бы я не проверил подставив Integer вместо BOOL, результат был ожидаемым и ничего нигде не падало с каким-либо исключением. Из-за того, что значение BOOL (true) является -1, функции не считали его как true, они принимали значения (true - 1, false - 0)? Соответственно функция SciterVersion(true) (BOOL) возвращала то же, что и SciterVersion(false), а вот когда я перешел на Integer, результат функции SciterVersion(1) и SciterVersion(0) стал отличаться. К сожалению, но ничего из этого мне не помогает, и вообще было предпринято мною изначально. Пока-что, единственный мой выход из ситуации *костыль* в виде отдельной DLL-библиотеки-посредника, с которой связывается мой Delphi-код, а та в свою очередь вызывает одноименный метод структуры ISciterAPI в нужной мне библиотеке и возвращает мне через этого *посредника* мне обратно в Delphi-код. Выглядит ужасно, но это работает... Хотелось бы все-таки обойтись без этого костыля. Сейчас у меня работает это примерно так: 1. Delphi (вызывает функцию SciterVersion(1)) из DLL-посредника 2. DLL-посредник связывается с основной библиотекой и вызывает оттуда одноименный метод структуры ISciterAPI 3. DLL-посредник возвращает мне результат, полученный из основной функции. Минус этого подхода для меня в том, что после серьезного обновления библиотеки, или любого другого, которое хоть как-то заденет API, мне придется переписывать DLL-посредника для соответствия последним изменениям API Sciter. А так же придется переписывать код Delphi для соответствия последним моим изменениям DLL-посредника. ЭТО КРАЙНЕ НЕУДОБНО
  11. Всем доброго времени суток, имеется проблема... Есть библиотека sciter, я хочу ее использовать в Delphi, но имеющиеся там *привязки*(bindings) ориентированы на Delphi 7 (но это не самое главное, они рассчитаны на версию библиотеки 3.x, в то время, как библиотека уже давно 4.4.x, собственно там много чего нет). Но у библиотеки есть C PLAIN API, при помощи которого можно запросто подружить ее с Delphi, чем я собственно и занимаюсь, но возникла проблема.. Есть основная функция, которая возвращает структуру с кучей других функций (ISciterAPI), она в принципе работает, некоторые функции я пробовал из нее вызывать и они работали отлично, но работают лишь несколько первых функций нормально, остальные же сыплются на Access Violation, хотя на других языках это работает нормально. Структура выглядит таким образом, потом при помощи другой функции возвращается указатель на эту структуру ISciterAPI* (В самой структуре функций намного больше). typedef struct ISciterAPI { UINT version; LPCWSTR SciterClassName(void); UINT SciterVersion(BOOL major); }; typedef ISciterAPI* LPSciterAPI; В Delphi я все оформляю так: type PSciterAPI = ^ISciterAPI; ISciterAPI = packed record version: UINT; SciterClassName: function(): LPCWSTR; // LPCWSTR - PWideChar; SciterVersion: function(major: Integer): UINT; // Использовал до этого BOOL, но наткнулся на статью, где рассказывалось о том, что он немного странно работает, мол BOOL false = 0, а BOOL true = -1; Поэтому напрмиер функция SciterVersion у меня не работала правильно, но при использовании Integer все стало нормально работать. end; Но, как я уже сказал ранее - только некоторые функции работают, остальные падают с исключением ACCESS VIOLATION. Почему так может быть? P.S: Единственный пока рабочий для меня вариант - написание отдельной библиотеки, которая выносит все эти функции в экспорт, соответственно их теперь можно вызывать непосредственно из самой библиотеки, минуя ISciterAPI, но минусы такого подхода в том, что эта библиотека по сути является посредником между программой на Delphi и Sciter...
  12. Ну, если я не ошибаюсь, то Project->Format Project Sources, как раз и форматирует все юниты проекта.
×
×
  • Создать...