Cargar imagenes desde una base de datos a un TImageList

[ecfisa]

Hola camiz.

Un ejemplo:

Código Delphi [-]
uses pngimage;

procedure TForm1.btnLoadPngClick(Sender: TObject);
var
  i: Integer;
  it: TListItem;
  B: TBitmap;
  P: TPNGObject;
begin
  IBQuery1.First;
  for i:= 0 to 30 do
  begin
    it:= ListView1.Items.Add;
    it.ImageIndex:= i;
    P:= TPNGObject.Create;
    B:= TBitmap.Create;
    try
      P.Assign(TBlobField(IBQuery1.FieldByName('BANDERA')));
      B.Width:= P.Width;
      B.Height:= P.Height;
      B.PixelFormat:= pf24bit;
      P.Draw(B.Canvas, Rect(0, 0, P.Width, P.Height));
      ImageList1.Add(B, B);
    finally
      P.Free;
      B.Free;
    end;
    IBQuery1.Next;
  end;
  ListView1.LargeImages:= ImageList1;
end;

Salida:


Saludos