Ver Mensaje Individual
  #3  
Antiguo 24-11-2005
Avatar de mazinger
mazinger mazinger is offline
Miembro
 
Registrado: jul 2004
Ubicación: Zamora
Posts: 85
Reputación: 20
mazinger Va por buen camino
Para ello yo utilizo un TImage normal, no el de base de datos y actualizo su contenido mendiante código:

Código:
 
procedure TfrPeliculas.aCargarCaratulaExecute(Sender: TObject);
var 
  Jpeg:TJpegImage;
  Corriente:TMemoryStream;
begin
  If Not dmPeliculas.tbPeliculasCaratula.IsNull Then Begin
	Jpeg:=TJpegImage.create;
	Corriente:=TMemoryStream.create;
	try
	   dmPeliculas.tbPeliculasCaratula.SaveToStream(Corriente);
	   Corriente.Seek(0,soFromBeginning);
	   Jpeg.LoadFromStream(Corriente);
	   Image1.Picture.Assign(Jpeg);
	finally
	   Corriente.Free;
	   Jpeg.Free;
	end; 
  End;
end;
__________________
Visita mi página (en construcción):

http://mazinger.wordpress.com/
Responder Con Cita