[camiz]

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.