Einzelnen Beitrag anzeigen

Benutzerbild von Weazy
Weazy

Registriert seit: 7. Apr 2005
Ort: Bern (Schweiz)
414 Beiträge
 
Delphi 2007 Enterprise
 
#1

download to MemoryStream?

  Alt 26. Mär 2008, 19:10
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?
Philippe Wechsler
  Mit Zitat antworten Zitat