Ver Mensaje Individual
  #1  
Antiguo 27-01-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Reputación: 24
DarkByte Va por buen camino
¿Dónde va a parar el contenido de un TStream?

Hola, hace unos meses me compré "La Biblia de Delphi 7" de Marco Cantú, y en uno de sus ejemplos, que servía para hacer una aplicación cliente/servidor que transmitiese imágenes, en el cliente me ponía lo siguiente:

Código:
var
  stream: TStream;
begin
           //Solicito el archivo...
  IdTCPClient1.WriteLn('getfile ' + HttpEncode (edFileName.Text));
           //Creo el Stream
  stream := TMemoryStream.Create;
           //Intento...
  try
           //Leer la stream
    IdTCPClient1.ReadStream(stream);
           //Posiciono el stream al principio
    stream.Position := 0;
           //Cargo la imágen del Stream y la pongo en el Image1
    Image1.Picture.Bitmap.LoadFromStream (stream);
  finally
           //Libero a Willy y al stream.
    stream.Free;
  end;
Los comentarios los tenía puesto yo cuando intenté comprender el código por 1º vez y no me he molestado en borrarlo, mi pregunta es: ¿Dónde va a parar el contenido del stream en el disco?. Pues todo tiene que ocupar algo en algun lugar.
__________________
:)
Responder Con Cita