Recorrer archivos de un directorio y mostrar graficos en miniaturas

[ecfisa]

Hola.

Si es eso sin dudas. Pero igual no va a ser problema para que realices la prueba.

Desde el IBExpert, create una tabla:

Código SQL [-]
CREATE TABLE TBIMAGE (
    ID      INTEGER,
    IMAGEN  BLOB SUB_TYPE 1 SEGMENT SIZE 100
);

Luego desde Delphi, cargala con imágenes de tu disco:

Código Delphi [-]
procedure TForm1.GuardarImagenes(Ruta: string);
var
  SR: TSearchRec;
  cc: integer;
begin
  Ruta:= IncludeTrailingPathDelimiter(Ruta);
  if FindFirst(Ruta+'*.JPG', faAnyFile, SR) = 0 then
  begin
    cc:= 1;
    repeat
      IBDataSet1.Append;
      IBDataSet1.FieldByName('ID').AsInteger:= cc;
      TBlobField(IBDataSet1.FieldByName('IMAGEN')).LoadFromFile(Ruta+SR.Name);
      IBDataSet1.Post;
      Inc(cc);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   IBDataSet1.Open;
   GuardarImagenes('C:\RUTA_A_TUS_IMAGENES');
   IBDataSet1.Close;
end;

Ajustá en el demo los nuevos valores del TIBDatabase y tendrías que poder ejecutarlo sin problemas.

Saludos.