Error al guardar Jpeg en Campo Blob

[El_Perrito]

Hola Foro:
Ya revise en foros pasados este tema y encontre mucha información.
sin embargo lo que no me permite es guardar la imagen.

el moderador Snake puso el siguiente codigo afirmando que le funciona:

  if (Tabla.State <> dsBrowse) then
    Tabla.Edit;
  TablaFOTO.LoadFromFile (OD.FileName);
  Tabla.Post;

y no dudo que asi sea, pero en mi caso me manda el error:"Mapa de bits invalido".
yo uso Delphi 5 y el campo blob lo declare como:
"Blob sub_type 0 segmentsize 80"
ya inclui tambien la unit Jpeg y sigue igual, ahora si me depliega la imagen en el TImage eso ya lo resolvi gracias a lo que encontre en foros pasados.

Espero y alguien pueda ayudarme

Gracias de Antemano por su valioso tiempo

Un Hermano Mexicano los Saluda

[guillotmarc]

Hola.

Tu problema no tiene que ver con la base de datos. A la base de datos tanto le dado lo que guardes en un campo BLOB, por lo que nunca te dirá que no es un mapa de bits no válido.

Este error te lo tiene que estrar generando el que tengas un TDBImage asociado al campo. El TDBImage no acepta imagenes Jpeg, solo bmps. Simplemente quita el TDBImage y verás como ahora el campo se guarda correctamente.

Saludos.

[El_Perrito]

Hola GuillotMarc lo que pasa es que ya quite el TDBImage y Puse un TImage segui el programa con F8 y el error lo marca cuando pongo lo siguiente:

...
TablaCampoBlob.LoadFromFile(archivo.jpeg);

en esta linea es cuando me marca el error

espero que esto ayude

Gracias.

[guillotmarc]

Hola.

Te quedará algún otro TDBImage olvidado.

Pón un TTable nuevo sin nada asociado al campo, y verás como funciona.

NOTA: Por cierto, seria útil que indicaras que componentes utilizas para acceder a la Tabla, así como la Base de Datos utilizada.

Saludos.

[El_Perrito]

Muchas Gracias por tu respuesta Guillotmarc, ha funcionado a la perfección,
muchas gracias por su tiempo

Hasta la Vista

[erikams]

tengo duda con el guardado de una imagen
mi campo en tabla es tipo blob

utilizo un tdbctrlgrid con un tdbimage (mediante un memdata)
mi duda es como lleno el memdata(id,blob-imagen)

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.