Insertar, mostrar y modificar imágenes a una base de datos

[Jaroncp]

Hola necesito ayuda, tengo un problema, soy nuevo en Delphi, y necesito insertar, mostrar y modificar imágenes a una base de datos atreves del mismo Delphi, busqué mucho pero no encuentro lo suficiente, si me pudieran ayudar les agradecería mucho.
Estoy usando Delphi7 y mysql, y la aplicación es para un inventario que muestre la información del producto.

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

[Jaroncp]

Gracias ya leí la guía de estilo.

[TiammatMX]

Empezado por Jaroncp

Hola necesito ayuda, tengo un problema, soy nuevo en Delphi, y necesito insertar, mostrar y modificar imágenes a una base de datos atreves del mismo Delphi, busqué mucho pero no encuentro lo suficiente, si me pudieran ayudar les agradecería mucho.
Estoy usando Delphi7 y mysql, y la aplicación es para un inventario que muestre la información del producto.

¿Y la duda específica es ... ?

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

Intenta concretar un poco más.
O comentarnos lo que estás probando (con código a ser posible) y lo que te está fallando.
De otra forma es difícil contestarte de forma concreta.

Recuerda poner títulos descriptivos a los mensajes (este ya lo he cambiado yo).

[Jaroncp]

Lo siento no me explique bien, por ejemplo, yo tengo un producto con sus datos, el id, el nombre, el precio y la descripción; pero necesito una imagen para visualizar ese producto y quiero que esta imagen esté en la base de datos, como formato BLOB.

Lo que necesito saber es cómo convierto la imagen para poderla guardar en la base de datos a través de Delphi.

Espero haberme explicado bien. XD Y gracias

[bucanero]

revisa este enlace, aqui se habla de guardar el contenido de una imagen dentro de un campo blob en la base de datos

https://www.clubdelphi.com/foros/showthread.php?t=77447

Un saludo

[Casimiro Notevi]

Empezado por Jaroncp

Lo que necesito saber es cómo convierto la imagen para poderla guardar en la base de datos a través de Delphi.

No tienes que convertir nada.

[Jaroncp]

Sí lo revise, pero no termino de comprender muy bien que es lo que hace, ¿Cómo esta insertando la imagen o el BLOB en el registro de la base de datos?
Como dije soy muy nuevo en el este lenguaje, todavía me falta por aprender, Disculpen mi ignorancia XD

[Jaroncp]

¿Cómo? yo estuve leyendo que no puedo insertar una imagen JPG a una base de datos, y eso es lo que necesito guardarla ahí, que cuando haga una consulta me muestre la información y la imagen del producto.
yo ya había echo un proyecto parecido pero desde PHP, donde yo insertaba la imagen a la base de datos, pero no termino de comprender como lo hago desde Delphi.

[[AgustinOrtu]]

Una imagen no es mas que un monton de bytes. Simplemente guardas los bytes, asi como vienen, en "binario puro" o "raw binary"

[Jaroncp]

Sí eso lo sé, son solo bits, pero no es que no lo puedo guardar en con el formato, por ejemplo JPG, o PNG..., ¿O si puedo?, por que si es así las cosas serían más sencillas.

[[AgustinOrtu]]

El "formato" ya lo tenes, es el stream o todos los bytes. Eso ya es la imagen con el formato. Luego, todos los archivos tienen una cabecera en donde se guarda informacion sobre que tipo de archivo y que formato tiene. Pero creo que estas complicandote con cosas que ya estan resueltas

Lo unico que tenes que hacer es guardar un "valor" y luego recuperar y mostrar ese "valor". Tipicamente lo que se hace es pasar la imagen a algun descendiente de TStream (por ejemplo, TMemoryStream) y se envia un comando a la BD para que guarde ese stream.

Luego, haces un query por ese campo, lo obtienes como stream, y se lo pasas al componente de imagen

Codigo medio de memoria, pero la idea es esta:

Código Delphi [-]
procedure GuardarImagen(Imagen: TImage);
var
  StreamImagen: TStream;
begin
  qry := crear tu componente query 
  qry.Connection := le asignas la conexion
  qry.SQL.Text := 'INSERT INTO TABLA (CampoImagen) VALUES (:CampoImagen)';
  StreamImagen := TMemoryStream.Create;
  try
     Imagen.SaveToStream(StreamImagen);
    StreamImagen.Position := 0;
    qry.ParamByName('CampoImagen').AsSteam := StreamImagen;
    // puede ser en lugar de .AsSteam, .Value, o .LoadFromStream; depende de los componentes
    qry.Execute;
  finally
   StreamImagen.Free;
  end;
end

Código Delphi [-]
procedure MostrarImagen;
begin
  qry := ...
  qry.Open;
   Image1.LoadFromStream(qry.FieldByName('CampoImagen').AsStream);
end;

Tambien es posible pasar la imagen a un monton de otras representaciones; por ej BASE64 es muy usada

[Jaroncp]

Muchas gracias, voy a probar el código, cualquier duda que tenga se las hago saber.