Grabar archivo bmp en base de dato

[zugazua2001]

Hola, tengo una base de datos paradox.
Tengo un campo de tipo graphic. Mi version de delphi es la 5.
Como hago para grabar un archivo BMP en ese campo grafico
Muchisimas gracias por todo.

[delphi.com.ar]

Aqui tienes un ejemplo:
http://www.clubdelphi.com/foros/showthread.php?t=300

Pero si no me equivoco se puede hacer en forma mas sencilla, simplemente haciendo un Campo.Assign(Bitmap)

Saludos!

[zugazua2001]

Hola ese codigo me anda para un archivo cuya extension es JPG.
Pero para uno con extension BMP Como hago¿?
Gracias por todo.

[jachguate]

Empezado por zugazua2001

Pero para uno con extension BMP Como hago¿?

Conceptualmente, exactamente igual... en la práctica, cambiando el jpeg por bmp.

¿cuantas veces probaste antes de preguntar de nuevo?

[roman]

Siendo Paradox y siendo BMPs la cuestión es mucho más sencilla:

Código Delphi [-]
Table1.Append;
Table1Imagen.LoadFromFile('imagen.bmp');
Table1.Post;

// Saludos

[zugazua2001]

Hola, te cuento que ya habia intentado con ese codigo.
Pero me tira un error: "No se puede abrir el archivo"
Gracias igualmente.

Empezado por roman

Siendo Paradox y siendo BMPs la cuestión es mucho más sencilla:

Código Delphi [-]
Table1.Append;
Table1Imagen.LoadFromFile('imagen.bmp');
Table1.Post;

// Saludos

[zugazua2001]

Hola ya habia intentado antes, sin exito por ello es que habia escrito ese hilo.
Me tira un error como que espera un archivo extension JPG
Gracias por todo.

Empezado por jachguate

Conceptualmente, exactamente igual... en la práctica, cambiando el jpeg por bmp.

¿cuantas veces probaste antes de preguntar de nuevo?

[paufra]

Por el error que te da yo apuntaria a que no es capaz de encontrar el archivo. ¿Lo tienes en la misma ruta que la aplicación? Prueba a ponerle la ruta absoluta para cargar la imagen.
Yo para poner un BMP el mi BD uso Assign y me funciona bien. (Yo uso FB)

[delphi.com.ar]

Empezado por zugazua2001

Pero me tira un error: "No se puede abrir el archivo"

¿No será que no existe el archivo o lo tienes lockeado por otra aplicación?..

Empezado por zugazua2001

Hola ya habia intentado antes, sin exito por ello es que habia escrito ese hilo.
Me tira un error como que espera un archivo extension JPG

Tienes que cambiar la clase TJPEGImage por TBitmap

Saludos!

[zugazua2001]

Hola si el problema es que el archivo esta lockeado por otro usuario.
Como lo deslockeo.

Empezado por delphi.com.ar

¿No será que no existe el archivo o lo tienes lockeado por otra aplicación?..



Tienes que cambiar la clase TJPEGImage por TBitmap

Saludos!

[delphi.com.ar]

Empezado por zugazua2001

Hola si el problema es que el archivo esta lockeado por otro usuario.
Como lo deslockeo.

Creo que te vas a meter en problemas intentando de hacer eso... Lo puedes abrir con otra aplicación anteriormente a la tuya??...

PD: Como extra te recomiendo hacer un FileExist antes de LoadFromFile:

Código Delphi [-]
if FileExists(MiArchivo) then
begin
  Table1.Append;
  Table1Imagen.LoadFromFile(MiArchivo);
  Table1.Post;
end;