PDA

Ver la Versión Completa : Ayuda!!necesito guardar una imagen


ivan84
04-12-2006, 17:22:12
Buenas ,
Tengo un problemita, no se como poder guardar una imagen en la base de datos de acces, la imagen la cargo en un image y el campo de la base de datos es para fotos, gracias.
Saludos

DarKraZY
04-12-2006, 17:35:59
Hola Ivan, te recomiendo que eches un vistazo a la guía de estilo. Y creo que si buscas un poco por los foros encontrarás como solucionarlo ;)

Caral
04-12-2006, 17:51:30
Hola ivan84
Coincido con DarKraZY, pero a todo esto.
Las imagenes se guardan en un archivo memo en access.
No se cual es exactamente, la pregunta, tal vez si la amplias un poco.
Saludos

ivan84
04-12-2006, 18:17:27
Lo haré, gracias a los dos (Dankrael,Caral), creo que he sido un poco desinteresado y he buscado poco, intentare implicarme mas, saludos.

ivan84
04-12-2006, 18:24:01
Me equivoque al escribir el nombre sorry , DARKRAZY,,,

Caral
04-12-2006, 18:57:07
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

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:

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.

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

ivan84
05-12-2006, 18:02:48
al final creo que lo mejor será por medio de la cadena donde se almacena la imagen