Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Guadar una imagen (https://www.clubdelphi.com/foros/showthread.php?t=1461)

Edgardo 14-06-2003 23:33:15

Guadar una imagen
 
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 17-06-2003 11:01:26

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 19-06-2003 06:05:55

Te agradezco aglopez. por tu ayuda me sirvio mucho.


La franja horaria es GMT +2. Ahora son las 14:34:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi