Guardar y recuperar imagen en bd
 

Hola compañeros, trato de guardar una imagen en mi bd pero lo que hago es guardarla como string, escribiendola en un flujo Stream, de alli para recuperarla leo el campo y lo escribo en un flujo stream y de allí cargo la imagen. El problema esk no me muestra ninguna imagen :confused:, alguien me pudiera orientar, o bien sugerir otra forma de hacerlo.

Código Delphi [-]
//Para guardar la imagen
foto := TStringStream.Create('');
   Image3.Picture.Graphic.SaveToStream(foto);

   ADOtblCte.FieldByName('FotoC').AsString:=foto.DataString;

Código Delphi [-]
//Para mostrar la imagen
var
imagen:TStringStream;
cargar:TBitMap;
begin
 imagen := TStringStream.Create('');
 ADOTable1.Open;
 imagen.WriteString(ADOTable1.FieldValues['FotoC']);
 cargar:=TBitMap.Create;
 cargar.LoadFromStream(imagen);
 image1.Picture.Graphic:=cargar;
 ADOTable1.Close;
end;

Saludos y gracias

Disculpa mi ignorancia ,pero dices que la imagen lo guardas como string?:confused: ¿como es eso? Talves te estas refiriendo a solo guardar la ruta de la imagen?
Y aparte de eso ¿Que servidor de base de datos usas(MySQL,MS SQL Server,Oracle,Firebird,etc)?¿Y que tipo de dato es la columna de tu tabla que guarda la imagen (Char,Varchar,Blob,etc)?:confused:.

Saludos...:)

Uff, perdón, se me olvido comentar que el motor de bd que utilizo es MySql, y el campo es varchar.

Ese código lo saqué de un post de la web del programador, que supuestamente guarda la imagen como texto, :rolleyes: pero ya vi q nomás no funciona jeje. Saludos

pk no usas un kampo de tipo Graphic *son para esto* y te ahorras todo eso de konvertir en string una imagen k parece k no funciona????

Hola en casos como ese lo que yo hago es solo guardar la ruta en la base de datos y la imagen la guardo en una carpeta en el disco duro asi solo leo la ruta en la base de datos y la imagen la tomo de la carpeta del disco duro, tal vez no sea la mejor forma pero me ha funcionado yo desarrollo aplicaciones web en php y esa es la manera en la que guardo imágenes.

saludos..

Es verdad es una buena solucion, personalmente tambien he implementado algo asi, pero tiene un inconveniente que si la aplicacion es multiusuario y se encuentra en diferentes Maquinas, pues no se va poder ver las imagenes en todas y peor aun si la aplicacion se conecta desde una red Wan.
Por otro lado tambien si se guarda muchas imagenes directamente en las tablas del servidor, puede provocar lentitud o sobrecarga en la red.
Asi que en todo caso hay que ver la forma mas adecuada posible de implementarlo y eso depende de la aplicacion, y de quien lo esta implementado.;)
Saludos...:)

Los campos Graphic son exclusivos de Paradox, no sé de otra base que los tenga, no al menos MySQL. De hecho, este tipo de campo sirve exclusivamente para bitmaps y no para otros formatos como jpg o png.

No entiendo esto. Las imágenes se guardarían en algún direcorio del servidor, así que podrían accederse desde cualquier parte.

Yo creo que esto sucedería sólo si se selecciona el campo de la foto para cada consulta en lugar de descargarla sólo en los registros deseados.

// Saludos

Lizette,

No sé si pueda guardarse una imagen en un campo de tipo VarChar, en todo caso, no me parece el más indicado. Sería mejor que optaras por un campo BLOB (LongBlob, MediumBlob, TinyBlob, etc., dependiendo del tamaño de tus imágenes).

Te pongo aquí unas rutinas para guardar y mostrar imágens en una base MySQL usando un ADOTable:

Código Delphi [-]
// Guardar una imagen
var
    Stream: TStringStream;

begin
    Stream := TStringStream.Create('');

    try
        Image1.Picture.Graphic.SaveToStream(Stream);

        AdoTable1.Append;
        AdoTable1.FieldByName('titulo').AsString := 'Mi primera foto';
        AdoTable1.FieldByName('foto').AsString := Stream.DataString;
        AdoTable1.Post;
    finally
        Stream.Free;
    end;
end;

// Mostrar la imagen
var
    Stream: TStringStream;
    Bitmap: TBitmap;

begin
    Bitmap := nil;
    Stream := nil;

    try
        Bitmap := TBitmap.Create;
        Stream := TStringStream.Create(AdoTable1.FieldByName('foto').AsString);

        Bitmap.LoadFromStream(Stream);
        Image1.Picture.Assign(Bitmap);
    finally
        Bitmap.Free;
        Stream.Free;
    end;
end;

Las rutinas equivalentes usando un AdoQuery

Código Delphi [-]
// Guardar una imagen
var
    Stream: TStringStream;

begin
    Stream := TStringStream.Create('');
    try
        Image1.Picture.Graphic.SaveToStream(Stream);

        AdoQuery1.SQL.Text := 'insert into fotos (titulo, foto) values(:titulo, :foto)';
        AdoQuery1.Parameters.ParamByName('titulo').Value := 'Mi primera foto';
        AdoQuery1.Parameters.ParamByName('foto').Value := Stream.DataString;
        AdoQuery1.ExecSQL;
    finally
        Stream.Free;
    end;
end;

// Mostrar la imagen
var
    Stream: TStringStream;
    Bitmap: TBitmap;

begin
    Bitmap := nil;
    Stream := nil;

    try
        Bitmap := TBitmap.Create;

        AdoQuery1.SQL.Text := 'select titulo, foto from fotos where id = :id';
        AdoQuery1.Parameters.ParamByName('id').Value := 8;
        AdoQuery1.Open;

        Stream := TStringStream.Create(AdoQuery1.FieldByName('foto').AsString);

        Bitmap.LoadFromStream(Stream);
        Image1.Picture.Assign(Bitmap);
    finally
        Bitmap.Free;
        Stream.Free;
    end;
end;

Veo más conveniente usar un AdoQuery, sobre todo para obtener la imagen desde la base de datos; porque usar un AdoTable implicaría, como dice rgstuamigo, demasiado tráfico. Lo normal sería, mostrar una lista de registros y que el usuario escoja de cual quiere ver la imagen, y sólo entonces descargas la foto.

// Saludos

Hahh bueno..asi pues si...,pero alo que me refiriendo yo en ese comentario es a que cada usuario guarde las imagenes en su propio ordenador, esto para evitar estar trayendo o llevando imagenes por la red.
ok.. Pero dime de manera lo traerias las fotos en una cosulta SQL del servidor si lo tienes en un dterminado directorio?:confused:
¿Y como le enviarias las imagenes a dicho directorio?
Saludos...:)

¿Guardar las imagenes en cada ordenador? Pues entonces se pierde el concepto de una base de datos ¿no?

En cuanto a lo segundo, creo que estás confundiendo. Es decir, en la parte del comentario que citas, yo me estoy refiriendo a cuando se guardan las fotos en un campo BLOB, no en archivos separados.

Si uno enlaza un AdoTable a una tabla con imágenes, seguramente habrá mucho tráfico pues se estarían descargando fotos que no necesariamente se desea ver. Por eso le comento a Lizette que sería mejor una consulta SQL.

Ahora, en cuanto a guardar las imágenes en archivos separados, no creo que con consultas SQL puedan subirse o bajarse las fotos. Pero se tendría la ruta del servidor en donde se almacenan y ya sería cuestión de usar FTP o HTTP (con Indy, por ejemplo) para moverlas de un sitio a otro.

// Saludos

No es que se pierda el concepto..sino que a veces no es necesario guardar todo en el servidor (depende del caso)si por ejemplo tengo un solo usuario,por eso explique aqui claramente que eso depende de la aplicacion que se pretender hacer.;)
Creo que estariamos complicando la cosa. ¿no te parece?:confused:
Te pregunto: ¿entonces que ventaja tengo o obtengo de guardar la imagenes en un directorio del servidor?:rolleyes: Para eso mas bien guardarlas en la base de dato, que me permite verlas desde cualquier lugar y sin usar FTP o HTTP.¿O hay algo que no estoy tomando en cuenta?:rolleyes::confused:
Saludos...:)

A ver, tú comentaste:

Y ahora mencionas una aplicación monousuario. Pero, aún siendo un sólo usuario trabajando en distintas máquinas; o hay un servidor central o tiene que estar portando los datos de un lado a otro. En el primer caso, no tendría mucho sentido guardar las imágenes localmente, pues justamente se pierde el sentido de una base de datos centralizada. En el segundo caso, si de todas formas debe transportar los datos, pues ya lo mismo da transportar las fotos.

Ahora, en cuanto a si se complican las cosas, pues sí se complican. Pero yo no fui quien propuso guardar las fotos en archivos separados ;) Los campos BLOB de una base están para algo.

Por otra parte, en caso de que fuese necesario lo de los archivos aparte, tampoco es que sea una tarea gigantezca el transportarlas via FTP o HTTP. Pero, además, si te fijas, calogero -quien fue el que mencionó lo de guardar las imágenes en archivos- trabaja con php en web, lo cual ofrece otro panorama, pues es el mismo php corriendo en el servidor quien se encargaría de leer las fotos y mandarlas al navegador sin necesidad del extra de algo como las Indy.

// Saludos

Eso lo puse por ejemplo y entiendo lo que tratas decir pero te recalco, amigo roman, que a veces es el tipo de aplicacion(Como se va usar, es grande o chica, que se va guardar,etc) que definira la forma de trabajo.;)
Pues ..en el post nro 7 tú mismo dijiste que las imagenes se guardaran en algun directorio en el Servidor.;)
Bueno... pero dime que Ventajas consigo con eso?
¿acaso no seria mejor ,en ese caso, guardarlo directamente en la base de dato?:confused:
Saludos...:)

Pues claro. Pero dicho así, es algo muy ambiguo, y no sé cómo aplicaría en este caso. Y el ejemplo que pusiste para clarificar cambió de un post a otro...

Claro, dije eso, pero sólo como respuesta a tu comentario en cuanto a la desventaja del método. Argumenté el porqué no es una desventaja. Pero eso no significa que yo haya propuesto esa técnica.

Repito lo dicho. No es mi propuesta, así que no soy el mejor para argumentar sus ventajas.

// Saludos

Aclarado
 

Todo Aclarado amigo.:):cool::)
Saludos...:)

Guardar IMG
 

hola a todos bueno aclaro que yo nunca he usado el MySQL para hacer esto pero supongo que usando los tipos de campo que aclara roman debe ser lo mismo....
yo para guardar imagenes en una base de datos uso lo TMemoryStream.
algo como esto...

Código Delphi [-]
var
  Stream:TMemoryStream;
begin   
   Stream:=TMemoryStream.Create;   
   try
     Stream.LoadFromFile('C:\myImg.jpg');
     Stream.Seek(0, soFromBeginning);       
     TipocampoBlob.LoadFromStream(stream);
   finally
     Stream.Free;
   end;
end;

con eso resuelvo... y hasta ahora guardo imagenes de todos tipos sin ningun tipo de problemas usando SQL Server.. Access.....

bueno.....

chaoooo

Me aparece un error
 

Reciban un cordial saludo.

estoy en en mismo problema resulta que yo utilizo zeos y Mysql con delphi 2007 las fotos que debo almacenar en mysql estan en jpeg hago el mismo procedimiento que indica roman cambiando unicamente el tbitmap por un Tjpegimage y me aparece el error jpeg error #53 me almacena mal los datos como lo soluciono.

Encontre mi solucion
 

Resulta que tengo un disparador en el evento ondatachange en el data source para que me almacene los datos correctamente debo desabilitar ese datasource mientras se almacenan los datos y luego lo activo queda perfecto.