Download mit IndyHTTP

[Skullschildi]

Also, ich hatte da probleme mit dem download von Dateien mit indy, die wurden gelöst. Hier der quellcode.

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;

in den eigenschaften der idHTTP1 habe ich Handleredirects auf true gesetzt. Dank an Marabu, der mir diesen rat erteilt hat


[edit=Matze]Resourcenschutzblöcke hinzugefügt, kleinere Unsauberkeiten behoben und Code formatiert. Mfg, Matze[/edit]

[CalganX]

Der Download über die selben Komponenten, nur mit Status-Anzeige in einer Progressbar, wird hier gezeigt.