[Lizette]

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