Almacenar un JPG en una BD Interbase 6
 

Hola,
como soy nuevo en esto de la programación necesito ayuda:
ocupo saber como almacenar en una BD de Interbase 6 una foto en formato JPG desde un form en delphi. La inserción por ahora la hago manual desde la base de datos, la idea es que por un botón el usuario la registre en una base de datos.

Hasta el momento sólo me deja insertar fotos con formato BMP.


Agradeceria vuestra ayuda. Un saludo

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 [-]

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

Gracias.