Ver Mensaje Individual
  #8  
Antiguo 23-07-2010
fidel fidel is offline
Miembro
 
Registrado: mar 2005
Posts: 381
Reputación: 20
fidel Va por buen camino
Prueba a ver si te funciona esto para visualizar la foto .jpg

Para visualizar lo foto utilizo un TImage (ojo, SI es un TImage)

"ImageFoto" es el TImage
"DM" es un DataModule
"IBDSAlumnos" es un DataSet

Adaptalo a tus necesidades, supongo que si lo quieres en un fichero podrás gardarlo en él en vez de visualizarlo en el TImage.

Si la imagen es un .BMP cambia esta linea
ImageFoto.Picture.Graphic:= TJpegImage.Create
por esta otra
ImgFoto.Picture.Graphic:= TBitmap.Create

Código Delphi [-]
procedure ................;
var
  m : TStream;
begin
  //visualizar foto
  ImageFoto.Picture.Graphic:= TJpegImage.Create
  //copiar los datos desde la tabla con un stream
  m:= DM.IBDSAlumnos.CreateBlobStream(DM.IBDSAlumnosFOTO, bmRead);
  ImageFoto.Picture.Graphic.LoadFromStream(m);
  m.Free;
end;
Responder Con Cita