Загрузка произвольной картинки в TImageList динамически

[Alex Bakulin]

Всем привет. Есть задача загрузить изображение по сети в 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;

 

[egorea1999]

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

 

 

 

abcdefg.zip

Изменено 12 марта, 2017 пользователем egorea1999

[ENERGY]

egorea1999

А о причинах, почему Вы не советуете делать действие X, нам нужно догадаться самим?

[Alex Bakulin]

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

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

 

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

Изменено 13 марта, 2017 пользователем Alex Bakulin

[Brovin Yaroslav]

Мне кажется, у вас не указан scale для загружаемой картинки в MultiResBitmap.

BI.Scale := 1;

 

[RoschinSpb]

Вот тут пример загрузки из файла.

Во-первых убедитесь, что MultiResBitmap содержит правильную картинку и размеры. Я бы сначала загрузил во временный TBitmap узнал его параметры (убедился, что он вообще что-то реально содержит) и уже потом присвоил его TCustomBitmapItem.Bitmap.Assign, а потом удалил. Кроме того для масштаба 1 кажется всегда есть картинка. Т.е. сделать надо примерно так:

    BI := Source.MultiResBitmap.ItemByScale(Scale, True, True);
    if BI = nil then
    begin
      BI := Source.MultiResBitmap.Add;
      BI.Scale := Scale;
    end;

Во-вторых вы не тот индекс используете. Надо так:

    NewDestination := ImageList1.Destination.Add;
    NewLayer := NewDestination.Layers.Add;
    NewLayer.SourceRect.Rect := TRectF.Create(TPoint.Zero, NewSource.MultiResBitmap.Width,
      NewSource.MultiResBitmap.Height);
    NewLayer.Name := SourceName;
    ControlAction1.ImageIndex := NewDestination.Index;

[Alex7wrt]

Думаю, стоит перед загрузкой битмапа из Stream добавить

Stream.Position:=0

 

[Alex Bakulin]

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

Изменено 13 марта, 2017 пользователем Alex Bakulin

[RoschinSpb]

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

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

Изменено 13 марта, 2017 пользователем RoschinSpb

[Alex Bakulin]

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

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

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

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