ver todas las imagenes en Base de datos

[emeritos]

Hola Dilferos.

Necesito un compomente o como lo puedo hacer para ver de un golpe todas las imagenes de un fichero de una base de datos, algo asi como la rejilla pero solo ver imagenes. Despues haremos un tratamiento con ellas.

Gracias.

[Casimiro Notevi]

¿Todas de golpe? ¿aunque haya cientocincuenta mil millones de imágenes?

[[duilioisola]]

¿Cómo están guardadas las imágenes? (Campos blob? todas en la misma tabla?)
¿Qué formato de imágenes son?
¿Qué tamaño tienen las imágenes?
¿Qué tamaño quieres que tengan en la pantalla?

Se me ocurre que podrías leerlas una a una, reducirlas de tamaño y ponerlas en un ListView.

Yo lo hago así:

Código Delphi [-]
// Variables
tamano : integer;
ILGaleria: TImageList;

// Valores iniciales
tamano := 50;

procedure TDMGaleriaImagen.CargaImageList(Lista: TListView);
var
  Imagen : TImage;
  Item : TListItem;
  RDim : TRect;
begin
  // Borro lo que hay en la lista
  Lista.Clear;

  // Asigno el tamaño que van a tener las miniaturas
  ILGaleria.Clear;
  ILGaleria.Height := Tamano;
  ILGaleria.Width := Tamano;

  RDim.Left := 0;
  RDim.Top := 0;
  RDim.Right := ILGaleria.Height;
  RDim.Bottom := ILGaleria.Width;

  // Carga de imagenes
  Imagen := TImage.Create(Self);
  try
     with QMGaleriaImagen do
     begin
        Close;
        Open;
        First;
        // Recorro la galería de imagenes
        while not EOF do
        begin
           // Agrego un ítem al TListView
           Item := Lista.Items.Add;
           Item.Caption := QMGaleriaImagen.FieldByName('NOMBRE').AsString;
           Item.Data := Pointer(QMGaleriaImagen.FieldByName('CODIGO').AsInteger);

           // Cargo la imagen con el Blob que corresponda de la tabla de imagenes
           Imagen.Picture := nil;
           DMMain.RefrescarImagen(Imagen, QMGaleriaImagenCODIGO.AsInteger);

           // Modifico el tamaño de la imagen
           Imagen.Picture.Bitmap.Canvas.StretchDraw(RDim, Imagen.Picture.Graphic);
           Imagen.Picture.Bitmap.Height := ILGaleria.Height;
           Imagen.Picture.Bitmap.Width := ILGaleria.Width;

           // Asigno la imagen del ImageList al ítem de TListView
           Item.ImageIndex := ILGaleria.Add(Imagen.Picture.Bitmap, nil);

           Next;
        end;
        Close;
     end;
  finally
     Imagen.Free;
  end;
end;

[emeritos]

¿Cómo están guardadas las imágenes? (Campos blob? todas en la misma tabla?) SI
¿Qué formato de imágenes son? jpg
¿Qué tamaño tienen las imágenes? tamaño original despues las puedo reducir
¿Qué tamaño quieres que tengan en la pantalla? pues en principio mucho más pequeñas y haciendo doble clic en ellas agrandarlas, es decir volcer a reducir el tamaño original como el 80% de la pantalla.


Muchas gracias probare la solucion que me has dado y te comentare.

[Neftali [Germán.Estévez]]

Empezado por emeritos

¿Qué tamaño quieres que tengan en la pantalla? pues en principio mucho más pequeñas y haciendo doble clic en ellas agrandarlas, es decir volcer a reducir el tamaño original como el 80% de la pantalla.

El problema de esto es que el tráfico de datos puede ser muy grande, dependiendo del tamaño real de las imágenes y de los registros a traer.
Creo que el tema del tamaño es porque tal vez te saldría a cuenta (si es que quieres acabar visualizando las imágenes) guardar una "copia en pequeño" (una miniatura) de cada imagen en la Base de Datos.
De esta forma, cuando te traes las imágenes en realidad lo que te traes son las "miniaturas" y sólo te traes la "imagen grande" cuando lo necesitas.