Ver Mensaje Individual
  #6  
Antiguo 21-07-2010
Mystery Mystery is offline
Miembro
 
Registrado: jul 2007
Ubicación: Santiago de Cuba
Posts: 69
Reputación: 17
Mystery Va por buen camino
re...

bueno si es un jpg... primero pon en uso la unit jpeg...y luego has algo asi....

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
var
  jpg:TJPEGImage;
  stream:TMemoryStream;
begin
  stream:=TMemoryStream.Create;
  jpg:=TJPEGImage.Create;
  TBlobField(tbl1.FieldByName('Foto')).SaveToStream(stream);
  stream.Seek(0, soFromBeginning);
  jpg.LoadFromStream(stream);
  img1.Picture.Assign(jpg);
end;
espero te sirva...
chaooo sin mas...
Mystery
Responder Con Cita