Recorrer archivos de un directorio y mostrar graficos en miniaturas

[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.

[jafera]

Gracias de nuevo.

Es que hoy tengo el coco un poco espeso.

Ahora si que los campos aparecen, no sabia que se creaban igual.

El nuevo problema es que ahora me aparece el DBImage en blanco y solo uno, aunque el registro tenga 3 imagenes

No se, sigo investigando

Josep

[ecfisa]

Hola jafera.

Te adjunto el ejemplo con la tabla incluída, crea una carpeta y descomprimelo allí, en el evento OnCreate se asignan los valores necesarios al TIBDatabase.

Para evitarte inconvenientes cambié el acceso al predeterminado:
user_name: SYSDBA
password: masterkey

Saludos.

[jafera]

No me deja abrir la tabla, ni con el IBConsole, me da este error:

Unsupported on-disk structure for file C:\EJEMPLO\PRUEBA.FDB; found 32779, support 10.

Imagino que es la version de Firebird, yo uso la 1.5.6

Saludos

Josep

[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.

[jafera]

Hola Ecfisa, eres como mi angel de la guarda.

Hoy ya no se si echarme a llorar o que.

He puesto un TIBDataSet con su correspondiente DataSource para cargar las imagenes de prueba.

Cuando intento ejecutar el código del button1, me da un error de sql

tokken unknow -line 2 char 1 from

En la tabla he puesto select * from tbimage.

Por hoy abandono porque veo que mi Santo Patrón no me ayuda en nada.

Saludos

Josep

[[José Luis Garcí]]

jafera, tu tabla se llama tbimagen, o es un campo, si es un campo, cambialo por el nombre de la tabla, y has editados los campo (sobre el ibdataset, raton boton derecho, seleccionas la primera columna el campo indice, seleccionas todos de la segunda columna , marcas el checkbox, pulsas el segundo botón empezando por abajo y aceptas el resultado ya puedes conectar.)