Ver Mensaje Individual
  #6  
Antiguo 04-12-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola ivan84
Hay muchas formas de guardar o recoger una imagen, el componente timage tiene varias opciones.
Esta me la enseño Bicho para usarla con un memo, pero sirve igual con una imagen.
Si no quieres guardar las imagenes en la base de datos, simplemente las guardas en una carpeta y las escoges por medio de un edit o una direccion exacta, te voy a dar los ejemplos, que repito no son mios me los enseño Bicho, el es el maestro en esto.
Bueno cuando conoces la direccion de la carpeta, digamos que esta en C y la carpeta, imagenes y la imagen foto1.
En el evento click de un boton, pones:
Con esto te traera la foto1 de la ruta y la presentara en el image1
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Ruta: String;
begin
   Ruta:='C:\Imagenes\Foto1.bmp';
   Image1.Picture.LoadFromFile(Ruta);
end;
Si quieres poner la ruta tu la puedes poner en un edit asi:
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Ruta: String;
begin
   Ruta:= Edit1.Text;
   Image1.Picture.LoadFromFile(Ruta);
end;
O puedes poner la ruta fija y solo poner el nombre de la imagen en el edit.
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Ruta: String;
begin
   Ruta:= 'C:\Imagenes\'+ Edit1.Text;
   Image1.Picture.LoadFromFile(Ruta);
end;
Espero te sirva de ejemplo
Saludos
Responder Con Cita