Imagenes en Firebird

[[RONPABLO]]

Y la mejor solución que podría existir es que Firebird tuviera una opción algo así como LoadBlobFromFile, de forma tal que en un query yo pudiera hacer algo como:

Código SQL [-]
   select t.nombre, t.telefono, loadBlobFromFile(t.rutaImagen) from tabla t

Ahí verán si creamos una UDF que haca eso... (aunque siempre me quedo en el punto de como cargar el campo blob sin usar ni DBX, IBX ni ningún componente que requiera una DLL)

[Kipow]

Y como haria generar una instruccion asi:

Código SQL [-]
insert into table (campo1, campoblob, campo3)
values (..............)

prefiero no liarme con los blob.

[seara2005]

Gracias a todos por sus comentarios
Después de leer sus opiniones he decidido probar con la segunda variante

- Crear una tabla independiente con solo las imágenes y un campo llave.

Incluir las imágenes en la tabla porque como bien dice RonPablo me parece que: 1) Trabajar con tantos archivos independientes (2000 o 4000 0 xxx) parece ser mucho mas complicado y habria que trabajar bien claro con el tema de definir nombres de archivos secuenciales, etc... 2) El tema de la integridad referencial de la base de datos se pierde o se hace casi nulo al no poder controlar que no se pierdan archivos independientes. 3) La creación de Copias de seguridad de tantos archivos debe ser mas molesto de tratar y debe tener menos rendimiento. 4) Se aprovecha la ventaja de Firebird de que toda la información esté incluida en un solo archivo (como dice Ardilla), esto facilita la distribución y traslado del sistema. 5) Como las imágenes son solo fotos tipo cédula ya he realizado pruebas y se puede limitar su tamaño máximo a 5 Kb lo que permitiria que no creciera tan aceleradamente el tamaño de archivo.
Crear una tabla independiente dentro de la base de datos para la imágenes con un campo llave ya que en la mayoría de las consultas no será necesario trabajar con las imágenes lo que hace mas eficiente al sistema.

De todas formas voy a simular una base de datos con 4 o 6 mil trabajadores para realizar pruebas de rendimiento antes de hacer el sistema real.

[[RONPABLO]]

Empezado por Kipow

Y como haria generar una instruccion asi:

Código SQL [-]insert into table (campo1, campoblob, campo3) values (..............)


prefiero no liarme con los blob.

Yo todos los datos siempre los paso por medio de parámetros...

Código Delphi [-]
   QConBlob.SQL.add('insert into table (campo1, campoblob, campo3) '
                                 + 'values (:campo1,:campo2,:campo3)';

Y después es darle el tratamiento de tipo Blob que ahora no recuerdo como es por eso no lo pongo

[Casimiro Notevi]

Nuestra gestión comercial almacena las imágenes en la base de datos, en una tabla específica para ello. Esta base de datos es accesible por internet en tiempo real para todos los clientes/usuarios/curiosos. Cualquiera puede consultar los artículos, ver sus fotos, descripciones, precios, stock, etc y hacer sus pedidos por internet, repito, en tiempo real y conectados a la base de datos de la empresa.
Varios de nuestros clientes tienen bases de datos que hace tiempo pasaron de los 10 Gb y algunos están ya rondando los 20 Gb.
Además de las imágenes de los artículos también almacena documentos de todo tipo ya sean escaneados o no. Por si fuese poco, también las firmas de los clientes, por cada venta, se leen con un escaner de firmas.
De momento, hasta ahora, el único inconveniente es que hacer el backup tarda más y ocupa más que si no tuviera las imágenes, aunque da igual, se hacen automáticamente por las noches y sin detener el sistema porque con Firebird se puede crear un backup aunque estén trabajando otros usuarios.
Los clientes hacen los pedidos por internet en tiempo real porque el servidor web está conectado a la base de datos del servidor principal, o sea, trabajan realmente con la base de datos de la empresa creando sus pedidos.
El único cuello de botella es el ancho de banda de internet, la subida, que aquí en España es muy baja a no ser que pagues una fortuna cada mes para que te den un poco de más velocidad.

[Nasca]

Empezado por RONPABLO

Y la mejor solución que podría existir es que Firebird tuviera una opción algo así como LoadBlobFromFile, de forma tal que en un query yo pudiera hacer algo como:

Código SQL [-]
   select t.nombre, t.telefono, loadBlobFromFile(t.rutaImagen) from tabla t

Ahí verán si creamos una UDF que haca eso... (aunque siempre me quedo en el punto de como cargar el campo blob sin usar ni DBX, IBX ni ningún componente que requiera una DLL)

Yo tengo una base de datos que carga los faxes recibidos desde hilafax (a través de un scripts php para consola) para que sean procesados por un faxmaster. El caso es que después de años recibiendo faxes, la base de datos ya pesa un poco, por eso consideré una opción como la tuya para no tener que lidiar con los permisos en un servidor samba y los problemas que eso conllevaría a la hora de una conexión remota, ya que antes usaba zebedee, aunque ahora me he pasado a terminal server por rendimiento.

Mi ventaja es que solo necesitaría cargar una imagen por vez. El problema que mas me preocupa es el tema de la seguridad. No obstante la UDF rFunc tiene algunas funciones que pueden servir como guía:
http://rfunc.sourceforge.net/rfunc.htm

En la sección de funciones "File". Otra opción podría ser codificar en la función UDF el fichero con alguna codificación MIME y cargar un string (comprimido??) que podríamos decodificar en el cliente.

Por cierto, como complemento a esto y para evitar el acceso directo a disco con sentencias SQL, he pensado que lo mejor sería un script que haga limpieza de los archivos una vez borrados en la base de datos la información que los complementa.

De todas formas este sistema solo tiene sentido cuando no hay interacción del usuario a la hora de cargar archivos, todo está automatizado, y el usuario solo los procesa añadiendo información. El tema se complica en los casos mas comunes en que el usuario deba crear y gestionar los archivos de forma directa. En este caso en la mayoría de las ocasiones, sobre todo cuando hay mucha diversidad en el dato/s a guardar) he optado por una ruta automática: "CAMINO"+"CLAVE del REGISTRO" sobre un servidor de archivos.

[Nasca]

Después de descubrir que OpenERP usa ftp para su soporte documental he estado pensando que, si optamos por almacenar los ficheros de forma externa a la base de datos, una opción interesante a los servidores de archivos (SMB, NFS, ...) sería usar el protocolo sftp o scp. Esto permitiría abrir a internet nuestros archivos con algo mas de seguridad que usando los otros protocolos.
Una opción rápida podría ser usar un programa como WinSCP como opción al explorador de windows. Sería cuestión de descubrir si tiene alguna forma de "relacionarse" con él.

¿Alguna experiencia al respecto?

[Nasca]

Por cierto WinSCP está programado en Borland C++ Builder 6 Professional y tiene disponible el código fuente.

[GustavoCruz]

Hola amigos de foro, mi preguntas es cuál es la instrucción para insertar una imagen.

no deseo utilizar el componente DBImage, porque solamente me inserta imagenes BMP...

También me gustaria saber cómo recupero la imagen de la base de datos...

de antemano muchas gracias por vuestro tiempo


Gustavo Cruz

[fidel]

Con ese tamaño de foto y de base de datos por qué no en la base de datos.

http://www.clubdelphi.com/foros/showthread.php?t=41572

[seara2005]

En este caso no se utiliza otro campo para el formato.

Para probar en un Formulario (Form1) pones:
Un TOpenPictureDialog y lo nombras OpenPictureDialog,
Un TButton y Lo Nombras ButtonCargarImagen,
Un TButton y lo Nombras MostrarImagen,
Un TButton y lo Nombras BorrarImagen,
Un TImage y lo Nombras ImageFoto,
Además en DataModule1 existe una tabla de InterBase IBTPersonas con un campo tipo Blob llamado Foto (Enlazada a la correspondiente base de datos).
Tambien puedes poner un DbGrid enlazado a la Tabla mediante el DataSource correspondiente para seleccionar el registro con que quieras experimentar.

Adicionar en el Uses JPEG

Para cargar la Imagen (bmp, jpg, ico) con el diálogo directamente a la base de datos:

Código Delphi [-]
procedure TForm1.ButtonCargarImagenClick(Sender: TObject);
var
  Jpg: TJpegImage;
  Stream: TMemoryStream;
  FileExt: string;
  GraphType: TGraphType;
begin
  if OpenPictureDialog.Execute then
     begin
      Jpg := nil;
      Stream := nil;
      try
        Stream := TMemoryStream.Create;
        FileExt := LowerCase(ExtractFileExt(OpenPictureDialog.FileName));
        if (FileExt = '.bmp') or (FileExt = '.dib') then 
          begin
             GraphType := gtBitmap;
             Stream.Write(GraphType, 1);
             with ImageFoto.Picture.Bitmap do 
                begin
                   LoadFromFile(OpenPictureDialog.FileName);
                   ImageFoto.Picture.Bitmap.SaveToStream(Stream);
                end;
          end 
          else if (FileExt = '.ico') then 
                begin
                   GraphType := gtIcon;
                   Stream.Write(GraphType, 1);
                   with ImageFoto.Picture.Icon do 
                      begin
                         LoadFromFile(OpenPictureDialog.FileName);
                         ImageFoto.Picture.Bitmap.SaveToStream(Stream);
                      end;
                end 
          else if (FileExt = '.emf') or (FileExt = '.wmf') then 
                begin
                   GraphType := gtMetafile;
                   Stream.Write(GraphType, 1);
                   with ImageFoto.Picture.Metafile do 
                      begin
                         LoadFromFile(OpenPictureDialog.FileName);
                         ImageFoto.Picture.Bitmap.SaveToStream(Stream);
                      end;
                end 
          else if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then 
                begin
                   Jpg := TJpegImage.Create;
                   Jpg.LoadFromFile(OpenPictureDialog.FileName);
                   ImageFoto.Picture.Assign(Jpg);
                   GraphType := gtJpeg;
                   Stream.Write(GraphType, 1);
                   Jpg.SaveToStream(Stream);
                end;
      DataModule1.IBTPersonas.Edit;
      Stream.Position := 0;
      DataModule1.IBTPersonasFoto.LoadFromStream(Stream);
     except
      jpg.Free;
      Stream.Free;
      raise;
     end;
     jpg.Free;
     Stream.Free;
   end;
end;

Para Mostrar la Foto almacenada en la base de dastos en el TImage:

Código Delphi [-]
procedure TForm1.MostrarImagenClick(Sender: TObject);
var
  Stream: TMemoryStream;
  Jpg: TJpegImage;
  GraphType: TGraphType;
begin
  Jpg := nil;
  Stream := nil;
  try
    Stream := TMemoryStream.Create;
    DataModule1.IBTPersonasFoto.SaveToStream(Stream);
    if Stream.Size > 0 then 
       begin
          Stream.Position := 0;
          Stream.Read(GraphType, 1);
          case GraphType of
             gtBitmap:   Form1.ImageFoto.Picture.Bitmap.LoadFromStream(Stream);
             gtIcon:      Form1.ImageFoto.Picture.Icon.LoadFromStream(Stream);
             gtMetafile: Form1.ImageFoto.Picture.Metafile.LoadFromStream(Stream);
             gtJpeg:     begin
                               Jpg := TJpegImage.Create;
                               Jpg.LoadFromStream(Stream);
                               Form1.ImageFoto.Picture.Assign(Jpg);
                            end 
             else Form1.ImageFoto.Picture.Assign(nil);  // Limpiar la imagen
         end;
      end 
    else Form1.ImageFoto.Picture.Assign(nil);
  except
    Form1.ImageFoto.Picture.Assign(nil);
  end;
  jpg.Free;
  Stream.Free;
end;

Para Borrar la imagen de la base de datos:

Código Delphi [-]
procedure TForm1.BorrarImagenClick(Sender: TObject);
begin
   ImageFoto.Picture.Assign(nil);
   DataModule1.IBTPersonas.Edit;
   DataModule1.IBTPersonasFoto.Assign(nil);  // Limpiar el campo
end;

[[fjcg02]]

Hola,
yo tengo una tabla con la clave y la imagen. Previamente a la carga en la BBDD comprimo los archivos ( pueden ser de cualquier tipo ) ylógicamente previo a mostarlos los descompprimo en una unidad temporal.

Saludos

[GustavoCruz]

Hola amigos, logré insertar una foto, pero el problema que tengo ahora es que al momento de recuperar la foto de la db, me muestra un error de incompatibilidad. "incompatible cast type"

la forma en como declaro el campo es:

Código SQL [-]
campofoto blob subtype 0 segment size 80

.

le agradezco infinitamente que me puedan ayudar... y de antemano muchas gracias por vuestro tiempo...