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.