Перейти к содержанию
  • Регистрация

Евгений Корепов

Пользователи
  • Публикаций

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

  • Посещение

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

    84

Евгений Корепов стал победителем дня 6 сентября

Евгений Корепов имел наиболее популярный контент!

1 Подписчик

Информация о Евгений Корепов

  • Звание
    Продвинутый пользователь
  • День рождения 22 июля

Информация

  • Пол
    Мужчина
  • Город
    Ухта

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

3 543 просмотра профиля
  1. Смотрите, вот ваш код: procedure TfmMain.LoadBitmapFromURL(const AURL: string; const AItem: TListViewItem; aBitmap: TBitmap; aSourceBmp: TRectangle); var K: Integer; // Анонимная процедура захватывает локальную переменную, а не обращается к AItem, которой уже может не быть в момент _окончания_ скачивания фотки FHTTPClient : THTTPClient; ResourceStream: TResourceStream; begin Вы используете асинхронный вызов FHTTPClient.BeginGet , начинает выполнятся HTTP запрос, одновременно процедура LoadBitmapFromURL завершает работу и компилятор уничтожает локальные переменные, включая FHTTPClient. Асинхронные вызовы с получением результат происходят уже после уничтожения FHTTPClient и естественно ничего не работает. Вод виндой работает случайно - из за другой модели управления памятью. У вас несколько путей: 1. Сделать FHTTPClient глобальным - лучший и простой путь. 2. Создавать поток самостоятельно, использовать в нем FHTTPClient.Get (не асинхронный) 3. И еще куча вариантов.... Посмотрите как реализовано у меня (по первому варианту)
  2. Вопрос решился благодаря компонентам https://www.jvesoft.com/wp/ads-and-in-app-payments/ . Подробности в этой теме
  3. По служебной необходимости сижу в Интернете через Чешский forpsi.net , доступа к форму нет, приходится роутить маршрут отдельно для форума, что не удобно. D:\>tracert fire-monkey.ru Трассировка маршрута к fire-monkey.ru [92.53.96.202] с максимальным числом прыжков 30: 1 76 ms 74 ms 80 ms 10.1.0.1 2 76 ms 75 ms 76 ms 3.211.forpsi.net [80.211.211.3] 3 77 ms 75 ms 76 ms bee-core.cloud-bee-bee.forpsi.net [81.2.192.93] 4 * * * Превышен интервал ожидания для запроса. 5 * * * Превышен интервал ожидания для запроса. 6 * * * Превышен интервал ожидания для запроса. 7 * * * Превышен интервал ожидания для запроса.
  4. Понял в чем дело - шаблоны лежат тут \vkrapotkin-vklistview-2389334d1383\Demo\Win32\Debug , а exe файл компилятор создает тут \vkrapotkin-vklistview-2389334d1383\Demo\ В настройках проекта, в Delphi Compiler, Output Direcrory = '', вместо '.\$(Platform)\$(Config)' по умолчанию.
  5. Предлагаю улучшение ) function TVK_LV_BaseAdapter<TDataItem>.AddPatternFromFile( const Filename: string): TVK_LVPattern; begin if Not TFile.Exists(Filename) then raise Exception.Create('Template file not found'); result := TVK_LVPattern.CreateFromFile(Filename); result.LV := LV; Patterns.Add(result); end;
  6. Вылетает AV на GetValue(ItemSpaces.X), ItemSpaces нигде до этого не инициализируется вроде. procedure TVK_LVPattern.SetupListView(const LV: TListView); var i: Integer; begin FNowParsing.Clear; LV.ItemSpaces.Left := GetValue(ItemSpaces.X); LV.ItemSpaces.Top := GetValue(ItemSpaces.Y); LV.ItemSpaces.Right := GetValue(ItemSpaces.X + ItemSpaces.W); LV.ItemSpaces.Bottom := GetValue(ItemSpaces.Y + ItemSpaces.H); end;
  7. У меня ругается на отсутствие JsonableObject. В x-superobject вроде такого нет. Где взять?
  8. Там видимо все контролы ControlType Platform подвержены этому глюку. А Браузер - это нативный контрол по умолчанию.
  9. Я в своем сообщении указал способ решения: https://quality.embarcadero.com/browse/RSP-25523 Там Dave Nottage написал причину и способ исправления: Прикладываю архив с исправленным FMX.Platform.iOS.pas - положите в папку с проектом и все заработает нормально (я проверил). P.S. Несчастный FMX.Platform.iOS.pas изуродовали в Рио бесчеловечно )) Какой то индус прошелся по нему в наркотическом угаре. FMX.Platform.iOS.pas.7z
  10. Да, легко удалось воспроизвести проблему - набрал yandex.ru, нажал Go (открылась страница), на странице нажал ссылку "Картинки" - появилась клавиатура, которая не получает фокуса, не реагирует на тыканье. Среда 10.3.2, iPhone SE, iOS 12.3.1 Возможно проблема перекликается с https://quality.embarcadero.com/browse/RSP-25523
  11. Закиньте сюда тестовый проект, я проверю на своем устройстве.
  12. И сделайте лучше как я предложил - отдельно преобразование класса, отдельно получение данных. Тут invalid class type cast скорее ошибка TListViewItem (ListView1.Items.Item), а не AsCurrency. Вы никак не ускоряете код записывая его одной строкой, но ухудшаете читабельность и усложняете поиск ошибок.
  13. Да, последняя строчка моего сообщения как раз об этом:
×
×
  • Создать...