Almacenar un JPG en una BD Interbase 6

[gzerox]

Este procedimiento te guarda el contenido JPG de un componente TImage

Código Delphi [-]
procedure GuardarImagen(Img:Timage;Campo:TBlobField);
Var
M:TMemoryStream;
begin
if Assigned(TJPEGIMAGE(Img.Picture.Graphic)) then begin
M:= TMemoryStream.Create;
TJPEGIMAGE(Img.Picture.Graphic).SaveToStream(M);
M.Seek(0,0);
Campo.LoadFromStream(M);
FreeAndNil(M);
end
else
Campo.Clear;
end;

para utilizar este procedimiento, nos podemos guiar por el sig. ejemplo:

Código Delphi [-]
Tabla.Insert;
//Llenar Datos
Tabla.FieldByName().Value:= ?????
GuardarImagen(Imagen1,TBlobField(Tabla.FieldByName('Foto')));
Tabla.Post;

Código Delphi [-]

[robertillo]

te agradezco de verdad Gabriel tu ayuda, voy a ver como me va implementando el código y ya te contaré...

Gracias.