Thema: Delphi Download mit IndyHTTP

Einzelnen Beitrag anzeigen

Skullschildi

Registriert seit: 7. Jan 2006
94 Beiträge
 
Delphi 7 Enterprise
 
#1

Download mit IndyHTTP

  Alt 22. Jan 2006, 11:20
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]
  Mit Zitat antworten Zitat