Forum: Programmieren allgemein
by Stefan Hueg,
21. Jun 2006
Freut mich, nun solltest du das
fn := 'C:\Windows\Temp\allcover\Cover_' + IntToStr(I) + '.jpg';
Durch etwas ersetzen das den Dateinamen der zu downloadenden Datei enthält. Ich denke hier im Forum wirst du fündig.
Forum: Programmieren allgemein
by Stefan Hueg,
21. Jun 2006
Probiers mal so:
For i:= 0 to listbox1.items.count - 1 do begin
fn := 'C:\Windows\Temp\allcover\Cover_' + IntToStr(I) + '.jpg';
fs := TFileStream.Create(fn, fmCreate);
try
IdHTTP1.Get(listbox1.items, fs);
finally
fs.Free;
end;
Forum: Programmieren allgemein
by Stefan Hueg,
21. Jun 2006
Ist denn überhaupt was in der listbox drin? denn ohne gehts ja nich ;)
Forum: Programmieren allgemein
by Stefan Hueg,
21. Jun 2006
@Hawkeye: Mein Fehler, muss natürlich so lauten
fn := 'C:\Windows\Temp\allcover\';
For i:= 0 to listbox1.items.count - 1 do begin
fs := TFileStream.Create(fn, fmCreate);
try
IdHTTP1.Get(listbox1.items, fs);
finally
fs.Free;
end;
Forum: Programmieren allgemein
by Stefan Hueg,
21. Jun 2006
Folgendes fiel mir bei deinem Code auf:
fn := 'C:\Windows\Temp\allcover\';
Pack das vor die Schleife, der Wert verändert sich ja nicht in der Schleife
fs := TFileStream.Create(fn, fmCreate);