Guardar una archivo de imagen (bmp,jpg..etc), en la base de datos

[cahosoft]

hola todos como esta.... espero que bien....

tengo una base de datos firebird, necesito guardar la foto de unos empleados en la base de datos, como seria el cogido fuente para realizar esta acción...

les agradesco cualquier ayuda.....

[ruina]

ma o meno seria: imaginemos tu tienes un campo blob llamado imagen, y una tabla/clientdataset en delphi llamada TEmpleados, con sus corespondientes campos TEmpleadoCodigo, TEmpleadoImagen...

Código Delphi [-]
Templeado.edit
TempleadoImagen.LoadFromFile('c:\fotofeo.bmp')

en lugar de la cadena esa puedes hacer que se habra un dialogo mediante el componente openfiledialog

[karocs]

hola

podria ser util de esta forma

FieldByName('campo').Assign(imagen.Picture.Bitmap);

imagen es un componente TImage, yo lo he trabajado asi y me funciona.

Saludos ....

[cahosoft]

gracias por todo

[cahosoft]

sql2.SQL.Clear;
sql2.SQL.Add('insert into emple(coemp,idemp,foto)');
sql2.SQL.Add('values(:v_coemp,:v_idemp,:V_FOTO)');
sql2.ParamByName('V_COEMP').Value:=strtoint(V_COEMP.Text);
sql2.ParamByName('V_IDEMP').Value:=V_IDEMP.Text;
sql2.ParamByName('V_FOTO').LoadFromFile('C:\IMAGEN\FOTO.BMP',ftBlob);
sql2.ExecSQL;