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.
|