Problem beim Download über Indy

[mrmaus]

Hallo,

ich habe den Eintrag http://www.delphipraxis.net/internal...ct.php?t=34282 mit dem Titel "http/1.1 302 found , was ist das bitte " gelesen weil mir genau dieser Fehler beim Versuch über die Indy Komponente angezeigt wurde. Nachdem ich die genannten Zeilen in meinen Code ergänzt hatte, trat aber weder Fehlercode noch sonst eine Meldung auf. Es passierte einfach nichts.

Folgenden Code habe ich erstellt:

begin
IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
IdHTTP1.HandleRedirects := True;
IdHTTP1.RedirectMaximum := 15;

fst_Stream:=TFileStream.Create('c:\test', fmCreate or fmShareDenyNone);
try
Form1.IdHTTP1.Get('http://www.beispiel.de/datei.exe', fst_Stream);
finally
fst_Stream.Free;
end;
Showmessage('complete');
end;

ich habe auf verschiedenen Seiten (download.de /romreactor.net) versucht was runterzuladen aber immer mit dem selben Ergebnis. ich habe nur nach einiger zeit das "complete" angezeigt bekommen!
Arbeiten tue ich mit delphi2005.

Danke

[ManuMF]

Zitat von mrmaus:

Nachdem ich die genannten Zeilen in meinen Code ergänzt hatte, trat aber weder Fehlercode noch sonst eine Meldung auf. Es passierte einfach nichts.
[...]
ich habe nur nach einiger zeit das "complete" angezeigt bekommen!

Kam nun eine Meldung oder nicht?
Wenn Showmessage ausgeführt wird, müsste doch alles OK sein.

(Und bitte verwende die Delphi-Tags, das ist besser lesbar!)

Gruß,
ManuMF

[Neutral General]

Also es gibt zwei Sachen die du noch versuchen könntest.

fst_Stream.Position := 0; vor dem Download oder/und einen MemoryStream statt einem Filestream nehmen. Ich nehm immer MemoryStreams dafür...

aber probier es echt mal so :

Delphi-Quellcode:

begin
IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
IdHTTP1.HandleRedirects := True;
IdHTTP1.RedirectMaximum := 15;

fst_Stream:=TMemoryStream.Create;
try
fst_Stream.Position := 0;
Form1.IdHTTP1.Get('http://www.beispiel.de/datei.exe', fst_Stream);
fst_Stream.SaveToFile('C:\Datei.exe'); // oder halt woanders hin...
finally
fst_Stream.Free;
end;
Showmessage('complete');
end;

[mrmaus]

Danke! Geht jetzt....