Cargar imagenes desde una base de datos a un TImageList
 

hola amigos del foro, tengo un problemita quiero hacer un formulario que sirva para mostrar muchas imágenes. Que servirán para seleccionar y asignarle dicha imagen a un registro. ahora las imágenes que quiero mostrar están en bd, quiero mostrarlo por medio de un TListView, pero para eso nesecito cargar las imágenes a un TImageList para vincularlo al TListView.

ahora me gustaría saber si es posible cargar imágenes desde una base de datos a un TImageList o tengo que hacerlo de otra manera o existe un componente que haga este trabajo.

por el momento estoy tratando con este código pero no funciona.

Código Delphi [-]
var
  S: TStream;
  Graphic: TGraphic;
begin
  with IMG do
  begin
   SQL.Clear;
   SQL.Text := 'select * from img order by idimg asc';
   Active := True;

   First;
   While Not Eof Do
   begin

     S := Oficios.CreateBlobStream(Oficios.FieldByName('IMAGEN'), bmRead);
     try
       Graphic := TPNGImage.Create;
       try
        Graphic.LoadFromStream(S);
        IMGList_48.Items.Add.Assign(Graphic);
       Finally
        Graphic.Free;
       end;
     Finally
      S.free;
     end;


     Next;
   end;
   Active := False;
  end;

espero su ayuda.

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 :)

ecfisa, me diste justo la respuesta correcta que necesitaba, gracias por tomarte el tiempo en responder mi inquietud.^\||/ Gracias amigo.

adaptandolo a mi proyecto quedo asi, por si acaso a alguien le hace falta.

Código Delphi [-]
var
  i: Integer;
  it: TListItem;
  B: TBitmap;
  P: TPNGObject;
begin
  with Query do
  begin
   SQL.Clear;
   SQL.Text := 'select * from img order by idimg asc';
   Active := True;

  First;
  for i:= 0 to RecordCount -1 do
  begin
    it:= ListView1.Items.Add;
    it.Caption := '   '+FieldByName('NOMBRE').AsString;
    it.ImageIndex:= i;
    P:= TPNGObject.Create;
    B:= TBitmap.Create;
    try
      P.Assign(TBlobField(FieldByName('IMAGEN')));
      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;
    Next;
  end;
  ListView1.LargeImages:= ImageList;
  end;