Recorrer archivos de un directorio y mostrar graficos en miniaturas

[jafera]

Hola a todos.

Ecfisa he probado este codigo y va de fábula, hace tiempo que quería hacer algo parecido para una secuencia de imagenes.

Mi duda es si en vez de buscar los datos de un directorio, se pueden sacar las imagenes directamente de una tabla para que solo enseñe las del codigo en pantalla.

Me explico, tengo una base de datos con fotos de camiones de bomberos y me gustaria poder visualizar solo las del camion que estoy viendo en este momento, luego que al cambiar de registro me cargue las del nuevo registro y ya rizando el rizo que al hacer click sobre la miniatura me abra la ampliación.

Actualmente hago un savetostream para guardar y un loadfromstream para cargar.

Muchas gracias

Josep

[ecfisa]

Hola jafera.

Si no te interpreto mal, me parece que en tu caso es muchisimo más sencillo.

Creo que podrías usar un TDBControlGrid con su propiedad DataSource asociada al TDataSource correspondiente a la tabla. Luego agregas en el TDBControlGrid un TDBImage y en su propiedad DataField seleccionas el campo que corresponde a la imágen.

Un saludo.

[cmfab]

justo lo que necesitaba, gracias por todas la srespuestas y por su tiempo

[jafera]

Gracias Ecfisa.

Tu proposición funciona bien, solo que tengo un pequeño problema, al asignarle la imagen el TDBImage, me dice que bitmap image is not valid.

He probado con un TImage a secas asignandole el valor y funciona, solo que me muestra una sola foto y no toda la hilera

Código Delphi [-]
 
procedure TF_Camions.Fotos_CAfterScroll(DataSet: TDataSet);
var
        jpg:TJpegImage;
        foto:TMemoryStream;
begin
        If FileExists('C:\Bombers_1.0\Temp\Temporal.jpg') then
        DeleteFile ('C:\Bombers_1.0\Temp\Temporal.jpg');
        If Fotos_CFOTO.Value<>'' then
        begin
                Jpg:=TJpegImage.create;
                Foto:=TMemoryStream.create;
                try
                        Fotos_CFOTO.SaveToStream(Foto);
                        Foto.Seek(0,soFromBeginning);
                        Jpg.LoadFromStream(Foto);
                        Jpg.SaveToFile('C:\Bombers_1.0\Temp\Temporal.jpg');
                        if jpg.Width > jpg.Height then
                        begin
                                Image2.Width := 500;
                                Image2.Height := 376;
                                Image2.Picture.Assign(Jpg);
                                Image1.Width := 500;
                                Image1.Height := 376;
                                Image1.Stretch:=False;
                                Image1.Picture.Assign(Jpg);
                                Image4.Width:=50;
                                Image4.Height:=37;
                                Image4.Stretch:=True;
                                Image4.Picture.Assign(Jpg); 
                        end
                        else
                        begin
                                Image2.Width := 376;
                                Image2.Height:=500;
                                Image2.Picture.Assign(Jpg);
                                Image1.Width := 282;
                                Image1.Height := 376;
                                Image1.Stretch:=True;
                                Image1.Picture.Assign(Jpg);
                                Image4.Width:=37;
                                Image4.Height:=50;
                                Image4.Stretch:=True;
                                Image4.Picture.Assign(Jpg); 
                        end;
                finally
                        Foto.Free;
                        Jpg.Free;
                end;
        end
        else
        begin
                Image2.Picture.Assign(nil);
                Image1.Picture.Assign(nil);
                Image4.Picture.Assign(nil);
        end;
end;

Gracias de nuevo

Josep

[ecfisa]

Hola jafera.

Entiendo el problema pero al menos yo, no pude encontrar en forma directa evento o redefinición de método alguno para hacer la conversión de TJPEGImage a TBitmap, antes de que se produzca la asignación del campo al TDBImage.

Se me ocurrió que una opción, si no son muchos datos, podría ser utilizar un TClientDataSet en memoria. Para el ejemplo que te adjunto hice una tabla con sólo dos campos, un campo entero llamado ('ID') y otro blob que contiente la imágen ('IMAGEN'). Datos estos que cargo en el TClientDataSet mediante un TIBQuery.

Código Delphi [-]
uses jpeg;

procedure JpgToBitmap(AField: TField; B:TBitmap);
var
  J: TJPEGImage;
begin
  J:= TJPEGImage.Create;
  try
    J.Assign(TBlobField(AField));
    B.Height:= J.Height;
    B.Width:= J.Width;
    B.Assign(J)
  finally
    J.Free
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  B: TBitmap;
begin
  CDS1.CreateDataSet;
  CDS1.Open;
  IBQuery1.Open;
  B:= TBitmap.Create;
  try
    while not IBQuery1.Eof do
    begin
      CDS1.Append;
      CDS1ID.Value:= IBQuery1.FieldByName('ID').Value;
      JpgToBitmap(IBQuery1.FieldByName('IMAGEN'), B);
      CDS1Imagen.Assign(B);
      CDS1.Post;
      IBQuery1.Next
    end;
  finally
    B.Free
  end;
  IBQuery1.Close;
  DBCtrlGrid1.DataSource:= DataSourceCDS1;
  DBImage1.DataField:= 'IMAGEN';
  DBImage1.Stretch:= True
end;

A partir de aquí podés utilizar todos los DBControls a traves del ClientDataSet, es decir que para mostrar información no se precisa más. Pero si existe la posibilidad de que se modifique algún dato deberías actualizar lo realizado al finalizar...

Saludos.

[jafera]

Gracias por la respuesta Ecfisa.

He implementado el codigo que me pasaste y como el componente ClientDataSet no lo habia usado nunca me arrojó algún problema.

Primero que no encontraba el data provider, le adjunte un dataset provider, luego me dice que no esta declarado el CDS1ID ni el CDS1Imagen (Undeclared Identifier), no se si me dejo alguna cosa la vuelo, ya que repito no había usado jamás este componente.

Saludos

Josep

[ecfisa]

Hola jafera.

No tendría que darte ningún problema, lo único engorroso es que tenes que crear los campos persistentes que se correspondan a los de tu tabla. Estos campos no existen físicamente solo en memoria, no se requiere de ningún data provider.

Los campos persistentes se crean al igual que en cualquier TDataSet. Por ejemplo para crear el campo Imagen:
Doble click sobre el componente CDS1 -> Click botón derecho -> New Field y luego:



Del mismo modo con los demás campos, por supuesto que Type tendrá que ser del tipo correspondiente al valor que se le asignará.
Los nombres CDS1ID y CDS1Imagen se pueden dar arbitrariamente, en este caso coinciden con el nombre del componente + nombre de campo.

Si no te queda totalmente claro avisame que adjunto un ejemplo.

Saludos.