Grabar archivo bmp en base de dato
 

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.

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!

La extension es .BMP
 

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

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

¿cuantas veces probaste antes de preguntar de nuevo? :rolleyes:

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

Hola me tira un error.
 

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

Intente varias veces pero nada
 

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.

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)

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


Tienes que cambiar la clase TJPEGImage por TBitmap ;)

Saludos!

Lockeado por otro usuario
 

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;