¿Archivos adjuntos dentro o fuera?

[[newtron]]

Esto es una pregunta para el amigo Casimiro.

Si metes las imágenes en la base de datos, ¿para abrirlas qué haces? ¿la grabas en el disco duro y llamas al programa correspondiente?

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

Empezado por newtron

Esto es una pregunta para el amigo Casimiro.

No soy Casimiro, pero supongo que puedo... ;-)

Empezado por newtron

Si metes las imágenes en la base de datos, ¿para abrirlas qué haces? ¿la grabas en el disco duro y llamas al programa correspondiente?

Para imágenes, aun es relatívamente sencillo hacerlo directamente desde Delphi, pues los componentes de imagen pueden recibir la información directamente de los TField, pero ese es un problema que tienes si los ficheros almacenados son de otro tipo (o heterogéneos).

En mi caso es un "Archivo documental" y te puedes encontrar desde TXT, DOC, XLS, ZIP, TIFF,... Vamos, cualquier cosa. En este caso no hay otro remedio que volcar/grabar a disco en un temporal y luego abrir con la aplicación asociada al sistema (o que el usuario escoja).

[Casimiro Noteví]

Básicamente como ha dicho Neftalí.
La tabla donde almaceno los documentos, imágenes, etc. tiene un campo para indicar el tipo de fichero que es: 1.JPG, 2.BMP, 3.PDF, etc. entonces cuando es una imagen se puede abrir directamente, creo recordar que usando TStream o TFileStream (tendría que mirarlo), y para todo lo demás... se guarda en un directorio local del usuario (MiPrograma/temporal/) y se abre con el programa que tenga asociado esa extensión.

[[newtron]]

Me lo temía... un punto menos para guardarlo en la base de datos

[Casimiro Noteví]

¿Y qué tiene de malo?, de la otra forma también tienes que abrirlo con el programa asociado.

[[newtron]]

Empezado por Casimiro Notevi

¿Y qué tiene de malo?, de la otra forma también tienes que abrirlo con el programa asociado.

Si, pero si tengo ya en el disco el archivo no necesito crear un archivo temporal para abrirlo, no es que cueste mucho pero soy un poco vago

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

Empezado por newtron

Si, pero si tengo ya en el disco el archivo no necesito crear un archivo temporal para abrirlo, no es que cueste mucho pero soy un poco vago

Yo aun cuando lo tengo en disco, genero un archivo temporal en un directorio. ¿Porqué?
Básicamente para que el usuario no tenga acceso al documento original.
Si abres directamente el documento original el usuario (queriendo o sin querer) puede modificarlo y guardarlo. Eso no interesa (al menos a mí no).
Suelo hacer copia en un directorio temporal de usuario y ahí que haga lo que quiera; El original se mantiene como siempre.

Ahí entran opciones de quien es el proipietario y quien tiene permiso para modificar el original y/o borrarlo, pero eso ya es otro tema...

[[newtron]]

Empezado por Casimiro Notevi

...cuando es una imagen se puede abrir directamente, creo recordar que usando TStream o TFileStream (tendría que mirarlo)

¿Eso es posible?, de esa forma me ahorraría el grabar el archivo en disco para poder abrirlo con el programa predeterminado de "guindoun"

[[gluglu]]

Si fueran imágenes JPG o BMP :

Código Delphi [-]
var
  Jpg       : TJpegImage;
...
begin
    Jpg := TJpegImage.Create;
    try
      Jpg.Assign(pDataSet2.FieldByName('PHOTO'));
      Image1.Picture.Assign(Jpg);
    finally
      Jpg.Free;
    end;

siendo Image1 un TImage.

[[newtron]]

Amigo gluglu.

Gracias por tu aportación pero yo lo que quiero es abrir con el programa predeterminado de "guindoun" una imagen guardada en un stream en la base de datos sin tener que crear el fichero previamente que es lo que Casimiro comentaba que se podía hacer.

Saludos

[Casimiro Noteví]

Empezado por newtron

¿Eso es posible?, de esa forma me ahorraría el grabar el archivo en disco para poder abrirlo con el programa predeterminado de "guindoun"

No, de esa forma lo puedes presentar desde tu programa delphi, en un timage, por ejemplo, o con el código que ha puesto el amigo gluglu, te ahorrarías de guardar el fichero en disco.
Pero si quieres abrirlo con el programa predeterminado de windows entonces necesitas que exista el fichero en disco.
Seguramente se pueda hacer lo que dices, no sé, quizás guardándolo en memoria y luego "pegarlo" al programa externo que quieras, pero no sé si vale la pena complicarse tanto, si es rápido y fácil guardarlo en un directorio temporal y llamarlo para abrirlo, ya se encarga windows de elegir el programa que tengas seleccionado para esa extensión.
De todas formas mis conocimientos son bastante escasos y puede que alguien diga que se puede y además de forma fácil, yo la desconozco.

[[newtron]]

Ok.

Ya lo grabo entonces en el disco para visualizarlo.

Amigo Casimiro, al final me he decidido en esta aplicación a meter las imágenes en la base de datos pero que sepas que como no me vaya bien me apareceré todas las noches en los pies de tu cama aullando.... streeeeeeeammmmm.... streeeeeeeeeammmmmm....

[[fjcg02]]

Pasé por este tema, opté por grabar las imágenes en la bbdd ( firebird) y me va bien. Tampoco tengo demasiado tamaño.

Lo que sí hago es
comprimir el fichero antes de guardarlo en la bbdd y descomprimirlo a la hora de extaerlo.
Utilizar una sola tabla sólo para los ficheros. En la tabla de registro, sólo se guardan id's, fechas, usuario que inserta, tipo de fichero, ... A la tabla de los ficheros sólo se accede cuando es necesario, es decir, cuando se quiere leer un fichero. Es para que las consultas vayan rapiditas.

Saludos

[Casimiro Noteví]

Empezado por newtron

Ok.
Ya lo grabo entonces en el disco para visualizarlo.
Amigo Casimiro, al final me he decidido en esta aplicación a meter las imágenes en la base de datos

Además de lo propuesto por gluglu, también puedes usar algo parecido a esto:

Código Delphi [-]
procedure TFrameDocumentosEscaner.grImagenesChangeNode;
var
  S : TStream;
begin
  inherited;
  S := nil;
  Image1.Picture.Graphic := nil;
  //
  if (grImagenes.Focused) then
  begin
    if not qrImagenes.FieldByName('IMAGEN').IsNull then
    begin
      try                
        S := qrImagenes.CreateBlobStream(qrImagenes.FieldByName('imagen') as TBlobField, bmRead);
        Image1.Picture.Graphic := TJpegImage.create;
        Image1.picture.graphic.loadfromStream( S );                
      finally
        S.Free;
      end;
    end;
  end;
end;

Empezado por newtron

pero que sepas que como no me vaya bien me apareceré todas las noches en los pies de tu cama aullando.... streeeeeeeammmmm.... streeeeeeeeeammmmmm....

uuummm.... ahora que lo pienso, la mejor opción es guardar los ficheros fuera de la base de datos