download to MemoryStream?

[Weazy]

Ich habe hier im Forum folgenden Code zum downloaden über indy gefunden und das funktioniert auch ganz gut.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  fn: TFileName; 
  fs : TFileStream; 
begin 
  fn := 'C:\download.htm';                     // Datei, in der gespeichert werden soll 
  fs := TFileStream.Create(fn, fmCreate);      // Übertragungsleitung für die Datei 
  try 
    try 
      IdHTTP1.Get('http://www.google.de', fs); // Herunterladen der Datei, mit der die Domain 
                                               // verknüpft ist, über den Kanal fs 
    except 
    end; 
  finally 
    FreeAndNil(fs);                            //den Kanal freigeben 
  end; 
end;

Ich möchte nun das ganze so umschreiben dass die Datei nicht auf die Festplatte geschrieben wird, sondern dass sie in ein MemoryStream geschrieben wird. Wie kann ich das tun?

[toms]

Hallo, schreibe einfach anstatt TFileStream TMemoryStream

[Weazy]

das habe ich bereits getan, irgendwie müsste man noch etwas mit seek oder so machen, ich arbeite das erste mal mit Memory Streams...

[toms]

nach dem Get(...) kannst du den Zeiger auf den Anfang setzen

Delphi-Quellcode:

fs.Seek(0, soFromBeginning);