Guardar Imagen con DataSet

[rrf]

Firebird funciona como gestor de BD relacional de forma local o en red (tienes que instalarlo, lo que es muy fácil).

También funciona (sin instalarlo) como BD de escritorio (en el mismo ordenador) usando la opción 'Embedded'. Aunque creo que, para empezar, lo mejor es que lo instales y lo uses así hasta que tengas un poco de experiencia.

He accedido a Firebird con los componentes IBX (Interbase Express) (Delphi 5 y 7) y me ha ido bastante bien. También están los componentes Zeos, aunque creo que hay menos documentación para iniciarse en su uso.

Si te quieres iniciar con los componentes IBX, EN ESTA PÁGINA HAY MUCHOS MANUALES, aunque uno que te recomiendo por claro y sencillo es "Conexión a Firebird desde Delphi con componentes IBX" (en la página 9 las imágenes tienen un pequeño error: en el listbox de la derecha 'Update fields:' todos los campos deben estar seleccionados).

También visita LA PÁGINA DE WIKIPEDIA SOBRE FIREBIRD, en ella hay enlaces a mucha información, algunos de estos enlaces incluyen artículos para iniciarse.

Para gestionar las BD que vayas creando hay muchos programas. Uno de ellos es FLAMEROBIN.

Para descargar Firebird lo puedes hacer DESDE ESTA PÁGINA.

Espero que te sirva.

Saludos.

[bulc]

Hola rrf. Me pongo a bajar el Firebird. La conexión falla, pero no importa. Ya me pongo en marcha. Te agradezco mucho tu información. No sabía que Firebird funcionara en uso local. Me imaginaba una cosa más compleja. Sigo sin poder pasar un campo Blob a un TImage. Por supuesto probé con TDBImage, pero sin éxito.
He probado con tu código. Se atasca en la línea: DSetBlobImag.SaveToStream(MS1); el DSetBlobImag no está predefinido.
Un abrazo,
JP

[mantraxer21]

Estimados:

El tema de guardar imagen en campo blob no es mi idea, lo que quiero es poder almacenar sólo la ruta...

Es decir configurar para que en mi carpeta de proyecto exista una ruta ej: c:\Proyecto_Delphi\Ruta-Imagenes\

Cosa de que al momento de guardar la imagen, lo almacene en esa ruta y ver la posibilidad de que Firebird me guarde la URL...

\Ruta-Imagenes\imagen01.jpg
\Ruta-Imagenes\imagen02.jpg
\Ruta-Imagenes\imagen03.jpg

Se puede realizar todo ello ?

Alguien nos ayuda?

[Casimiro Noteví]

Se puede hacer.

Y, amigo, cuando te decidas definitivamente con lo que quieres hacer, si tienes algún problema entonces nos cuentas con detalle para que podamos ayudar.

Empezado por mantraxer21

Estimados:
Necesito guardar una imagen por cada "Alumno" registrado, he visto unos post, pero nada realizado con el DataSet.
En Mi base de datos tengo el Campo "Foto_Al" definido como "Blob", malguién me puede ayudar?
Saludos Cordiales

No sé si has leído nuestra guía de estilo, no estaría mal que le echaras un vistazo

[rrf]

Empezado por bulc

He probado con tu código. Se atasca en la línea: DSetBlobImag.SaveToStream(MS1); el DSetBlobImag no está predefinido.
JP

Hola Bulc.

Mira, en esa parte del código (DSetBlobImag.SaveToStream(MS1) ), "Dset" es el nombre del componente IBDataset, "BlobImag" es el nombre del campo blob que guardará la imagen.

¿Por qué están juntos y de donde salen?. Bueno, creo que se les llama campos virtuales o algo así.

Pero lo importante es saber como se crean, pues son muy útiles.

Me voy a apoyar en el manual que te mencioné en un mensaje anterior. Acabo de darme cuenta de que ese manual lo explica casi todo, pero creo que se olvida de este detalle tonto, que raramente aparece en algún manual para novatos.

0- Tienes que tener la BD creada. También la tabla en la que se encontrará el campo blob que guardará la imagen.

1- Firebird debe estar funcionando.

2- Tienes que tener el componente TIBDataBase que debe estar conectado con la BD.

3- También un componente TIBTransaction, que estará conectado con el TIBDataBase.

3- Insertas un componente TIBDataSet, lo conectas con el TIBDataBase y con el TIBTransaction. Luego, en la propiedad "SelectSQL" le escribes "Select * from Nombre_de_tu_tabla".

4- Haces doble clic sobre el componente TIBDataSet o haces clic sobre él con el botón derecho del ratón y selecciones "Fields editor...".
Aparece una ventana pequeña.
Sobre ella, haces clic con el botón derecho del ratón y clic sobre "Add all Fields".
Aparecerán los nombres de todos los campos que definiste en la tabla.
Puedes cerrar la ventana.
La lista con los nombres de todos los campos creados aparecen, en el Unit, en la sección "Type" y (para el campo blob) será algo parecido a esto:

Código Delphi [-]
  IBDataSet1Campo_IMAG: TBlobField;

A partir de ese momento, en el código de tu programa podrás comprobar que si escribes el nombre "IBDataSet1Campo_IMAG". le pones un punto al final y esperas 1 segundo, el CodeInsight se podrá en marcha y te ofrecerá las opciones disponibles, como por ejemplo: "IBDataSet1Campo_IMAG.loadfromstream"

Por supuesto, los nombres cambiarán en función de los que tú hayas definido.

Esto es un complemento del manual que ya te recomendé en otro mensaje

Si te quieres iniciar con los componentes IBX, EN ESTA PÁGINA HAY MUCHOS MANUALES, aunque uno que te recomiendo por claro y sencillo es "Conexión a Firebird desde Delphi con componentes IBX" (en la página 9 las imágenes tienen un pequeño error: en el listbox de la derecha 'Update fields:' todos los campos deben estar seleccionados).

Debes seguir la guía de ese manual y añadirle lo comentado en este mensaje. Creo que, en la página 7, antes de empezar el apartado "Configurar las propiedades del IBDataSet" es cuando debería hacerse.

Ten en cuenta que ese manual no incluye lo necesario para campos blob; pero explica muy bien otros muchos detalles que te serán imprescindibles (con o sin campos blob).

Si me permites, te hago una sugerencia: sigue el manual paso a paso y, cuando lo hayas hecho todo y sepas hacerlo, empieza el proceso otra vez, pero añadiendo el campo blob. Luego podrás añadir el código que me decías que no te funcionaba, aunque posiblemente no te será necesario porque podrás usar los componentes TDBImage.

Creo que el manual utiliza una BD llamada "Employee.fdb" que está en una de las campetas que parten de la carpeta "examples", que a su vez parte de la carpeta en la que hayas instalado Firebird.

Espero que te sirva.

Saludos.

[bulc]

Hola,
Ahora veo que tú usabas Firebird. Yo usaba componentes ADO.
Justo lo que necesitaba. Me paso al Firebird rápidamente. Me has hecho un gran favor. Estaba realmente pegadol. Gracias.
Voy guardando manuales para ir leyendo. Tengo una pregunta. ¿Siempre que se crea una tabla (con Firebird) se hace con Query?
¿Existen otras posibilidades?
Muchísimas gracias.

[bulc]

Fìjate mi ignorancia. En la tabla (formatoAccess, *mdb) aparece el texto Blob
en los campos de imágenes. Pues bien, yo pensaba que estaban "llenos". Es decir que tenían una imagen. Ahora caigo en que "no tienen nada". Así que vuelvo a empezar: "Never give up..."
Saluditos.

[bulc]

Empezado por bulc

Hola,
Ahora veo que tú usabas Firebird. Yo usaba componentes ADO.
Justo lo que necesitaba. Me paso al Firebird rápidamente. Me has hecho un gran favor. Estaba realmente pegadol. Gracias.
Voy guardando manuales para ir leyendo. Tengo una pregunta. ¿Siempre que se crea una tabla (con Firebird) se hace con Query?
¿Existen otras posibilidades?
Muchísimas gracias.

Ya me he instalado el Firebird y veo que está activado. Ahora me leo los manuales. Si, no te importa, dime los componentes mínimos para "ver" los datos en un TDBGrid y si no es abusar, como crear una mini Tabla y cómo conectarla. Para crear la tabla intuyo que se puede hacer en modo comando usando SQL, ¿es así?
Salud.

[Casimiro Noteví]

Echa un vistazo a este tutorial.
Y busca por clubdelphi, hay algunos otros muy interesantes y completos.

[bulc]

Estaba leyendo ese manual en este preciso momento. Gracias...