Guadar una imagen

[Edgardo]

Hola amigos me encuntro en un problema, no se como guardar una imagen en interbase 6 desde delphi6, si alquien me puede dar una manito les quedaria muy agradecido.
A Dios.

[aglopez]

Es bastante sencillo, vamos a ver:

En primer lugar, el campo de la tabla Interbase donde vas a guardar la imagen debes definirlo como tipo blob.

Despúes te pones en tu form un DBImage con referencia a este campo, y por ejemplo, puedes poner un OpenPictureDialog y un
boton con el siguiente código:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then begin
Simpledataset1.Edit;
dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Simpledataset1.Post;
end;
end;

Y ya tendrías guardada la imagen.
Este ejemplo es de delphi 7 usando SimpleDataSet de la paleta DBExpress, pero tú usarías el Dataset de la paleta que más te guste.

Espero haberte servido de ayuda.

[Edgardo]

Te agradezco aglopez. por tu ayuda me sirvio mucho.