Stream Image 'ı Listview' de göstermek

[G.Arkas]

S.A. arkadaşlar.

Aşağıdaki, kod ile çağırdığım webde ki jpeg formatındaki resmi ImageList kontrolü üzerinden Listview' aktarıyorum ancak görüntü alamıyorum.

Kod: Tümünü seç

var
 msPicture: TStream;
begin
 IdHTTP1.Get('http://delphiturkiye.com/forum/styles/prosilver/imageset/site_logo.jpg', msPicture);

ImageList için

Kod: Tümünü seç

procedure TForm1.AddXImage(L: TListItem; Bmp: TBitmap);
begin
  if L.ImageIndex = 0 then begin

    try
      L.ImageIndex := ImageListW.Add(Bmp,nil);
    except
    end;

  end else begin

    try
      ImageListW.Replace(L.ImageIndex,Bmp,nil);
    except
    end;

  end;
end;

Acaba çözünürlükten midir diye düşünüp resmin boyutlarını düşürdükten sonra imagelist boyutlarını dinamik olarak değiştiriyorum ama yinede görüntü alamıyorum.

Bu arada herhangi bir hata da almıyorum.

Bilgisi olan arkadaşlar tecrübelerini paylaşırsa çok sevinirim.

Hayırlı günler.