aqui un ejemplo de como insertar una imagen en una bd.
1ero. tengo en la tabla un campo de tipo blob llamado img1
2 do. tengo un procedimiento almacenado para insertar registros en la tabla
Código Delphi
[-]
begin
insert into clase ( id_clase, clave, clase, fk_estatus, fk_tipo, img1) values ( null, :clave, :clase, 1, :fk_tipo, :img1);
end
3ero dentro del formulario tengo 4 componentes
- un edit donde ira el nombre del archivo que contiene la imagen
- un boton que permite abir un open dialog para buscar la imagen
- un image (para mostrar la imagen)
- un open dialog.
4to. codigo del boton
Código Delphi
[-]
Opd1.Execute;
eImg1.Text := Opd1.FileName; if eImg1.Text <> '' then
Image1.Picture.LoadFromFile(Opd1.FileName);
5to al guardar mando llamar el procedimiento
Código Delphi
[-]
dm.clase_i.Params[0].Value:= edtclave.Text;
dm.clase_i.Params[1].Value:= edtclase.Text;
dm.clase_i.Params[2].Value:= dm.dstipoID_TIPO.Value ;
if eImg1.Text <> '' then
dm.clase_i.Params[3].LoadFromFile(opd1.FileName, ftblob)
else
dm.clase_i.Params[3].value:= null;
dm.clase_i.ExecProc;
dm.trans.CommitRetaining ;
te comento ke uso interbase 2007 con xe2.
Saludos....