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.