hmm...komische sache, eigentlich müsste es gehen...=!=
Fehler habe ich keinen gefunden, außer ein paar "Schönheitsfehler" - vielleicht sind ja diese das Problem?=
Na jedenfalls besser ich die mal aus...
Delphi-Quellcode:
for I := 1
to pdl.Count - 1
do //i = 1 da der erste eintrag in dieser stringlist die url ist
begin
//Http Header einstellen - Eigenschaften von idHttp, kann ich jetzt nicht auswendig-----------!!!
//aber ungefähr heißen die soo, bei manchen Seiten funkt das sonst nicht.... -----------------!!!
idHttp1.AllowCookies := false;
idHttp1.HandleRequest := true;
//Eine Zeile genügt denk ich, umso mehr umso unübersichtlicher :)
if Abbruch
then break;
url := pdl[0]+'
/'+pdl[i];
label10.Caption:= pdl[i];
if edit4.Text = '
'
then
begin
Ziel := Pfad+'
\'+pdlName+'
\'+pdl[i];
//hmmm....versteh ich nicht, kein DateiTyp------!!!
end
else
begin
Ziel := Pfad+'
\'+pdlName+'
\'+Edit4.Text+'
'+
nullen(picnr)+IntToStr(picnr)+ExtractFileExt(pdl[i]);
end;
// Vielleicht war da das Problem?!?------------------------------------------------!!!
try
lStream := TFileStream.Create(Ziel, fmCreate
or fmShareDenyNone);
idHTTP1.Get(
URL, lStream);
finally
lStream.Free;
//sehr wichtig!!! --> hab ich jetzt vergessen....
idhttp1.Disconnect;
end;
Memo1.lines.Add(TimeToStr(now)+'
: Download von "'+pdl[i]+'
" war erfolgreich.');
picnr:= picnr+1;
p:= round((100/pdl.Count) * (i));
gauge1.Progress := p;
end;
Weiß nicht ob das wirklich das Problem ist, aber probieren kann man es ja....
Edit: Du musst die Verbindung vom idHttp1 auch wieder trennen....!!!
lg