Alex Bakulin

1 час назад, Brovin Yaroslav сказал:

Я думаю, надо попробовать отключить пакет в среде MultiDevicePreview. Он может быть причиной этой ошибки.

Я в Project - Options - Package не нашел этого для Berlin. Не там смотрю? Или не так ищу?

У меня эта ошибка возникает на этапе работы с IDE. Причем вообще непонятно на что ругается. Самая большая картинка в проекте это стиль в TStyleBook. Причем радикально ничего не менялось в проекте, но в определенный момент ошибка стала выскакивать в виде диалогового окна при навигации по форме. 

В 17.04.2017 в 18:05, Dogos сказал:

procedure MyForm.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if (Key =vkHardWareBack) then
  begin
  Key:=0;
   SharedActivity.moveTaskToBack(True);
  end;

В том и дело, что не работает...

20 часов назад, sinuke сказал:

Я так понимаю, что "экраны" - это отдельные формы? А нажатие клавиши обрабатываете в главной форме? Если так, то, как вариант, вместо форм использовать фреймы. И тогда все заработает почти без изменений в коде

Нет, это TTabControl, соответственно переключения идут между вкладками.

Создаю стандартное мобильное приложение, которое предлагает Delphi Berlin. Там есть обработчик кнопки Назад. Собственно у меня задача, после того, как человек перешел в какой-то из режимов приложения, на эту кнопку реагировать, а именно присваивать Key := 0 и делать Application.Terminate. Но это не срабатывает, пролистываются все экраны приложения до первого и только после этого идет выход...

Возможно я что-то не так для Андроид использую. Как мне закрыть приложение по этой кнопке? 

Спасибо, примерно так и считаю сейчас, но точность не устраивает. Просто сидя на месте можно "намотать" не одну сотню метров, видимо за счет погрешности измерения. Вообще есть еще мысль при каждом OnLocationChange прибавлять к счетчику Distance метров, но боюсь, что работать не будет корректно по той же причине....

Вопрос простой - есть какие-то встроенные методы, которые позволяют определять пройденное расстояние? Оно понятно, что можно искать расстояние между двумя точками, но вдруг уже до нас что-то придумали. 

Поторопился. После очередного падения студии файл из деплоя самоустранился... Все работает

  MediaPlayer.FileName := System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'zakaz.mp3';
  MediaPlayer.Play;

Вот такой простой код. При отладке ничего не выдает молча падает. Можно как-то проверить, что файл физически туда деплоится? Нужны ли какие-то дополнительные права приложению?

Проблема была вот в этом 

Добрый день. 

Столкнулся с этой же проблемой. Сделал файл Keystore вчерашним числом. Собрал. Все равно так же ругается. 

Я мог что-то сделать неверно? 

Там здоровая библиотека, так не получится. Но скорее всего у меня проблема в том, что я здоровую строку передаю в функцию JS, весь текст страницы. Так что наверно какие-то символы ей не нравятся. Может переводы строки, может что-то еще. Пока не могу понять. Тут дело не в браузере, а в том что я входные данные еще не умею готовить...

Для формирования страницы в WebBrowser использую LoadFromStrings

Задача - добавить к странице скрипт на JS. Если я просто добавляю строку <script src="скрипт из сети"></script>, то он не срабатывает. В чем может быть проблема? 

Мы же работаем с ListView - визуальным компонентом. Не нужно ли синхронизироваться с главным потоком при изменении его свойств?

p.s. Если Synchronize убрать, то мало что меняется. 

Есть простая вроде бы задачка - в фоне загружать картинки для ListView. Делаю это так:

procedure TImageThread.Execute;
var
  i: integer;
begin
  for i := 0 to FListView.Items.Count -1 do
  begin
     FimageIndex := i;
     Synchronize(LoadImage);
  end;
end;

Ожидается, что с ListView в это время будет относительно комфортно работать, и в фоне в ImageList будут подгружаться картинки и появляться в ListView. А на деле получается так, что все приложение виснет аццки на время загрузки картинок и не отвечает. И это как под Windows так и под Android.

14 часов назад, RoschinSpb сказал:

Вот добавил пример для URL в ту же ветку, коль скоро там велось обстоятельное обсуждение.

Также в ImageListDemo есть пример добавления картинки нарисованной вручную
См. procedure TMainForm.AddSourceToItem(const Index: Integer);

Спасибо. Очень помогло.

Поторопился...

18 часов назад, egorea1999 сказал:

Не советую вам юзать Delphi-ImageList-зоопарк, вот получше пример.

 

Мне не очень хочется вручную для ListView все это отрисовывать. Я правильно понимаю мысль, что в моем коде проблема с ListView, а не с загрузкой картинки?

Всем привет. Есть задача загрузить изображение по сети в TImageList. Вроде бы все должно срабатывать, но изобряжения не появляются. Скорее всего дело в том, что изображение произвольные, чаще в формате Jpeg. Подскажите, как лучше сделать? 

function LoadImage(URL: string): integer;
var
  Stream: TMemoryStream;
  Item: TCustomSourceItem;
  B: TBitmap;
  BI: TCustomBitmapItem;
begin
  Result := 0;
  if URL <> '' then
  with TNetHTTPClient.Create(nil) do
  begin
    Stream:= TMemoryStream.Create;
    Get(URL, Stream);
    Item := ImageList.Source.Add;
    BI := Item.MultiResBitmap.Add;
    BI.Bitmap.CreateFromStream(Stream);
    Result := Item.Index;
    Stream.Free;
    Free;
  end;
end;