Einfache Schleife kann ich nicht lösen! :-(

[Stefan Hueg]

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

Delphi-Quellcode:

  fs := TFileStream.Create(fn, fmCreate);
    IdHTTP1.Get(HIER, fs);

Pack das in eine

Delphi-Quellcode:

try
  fs := TFileStream.Create(fn, fmCreate);
    IdHTTP1.Get(HIER, fs);
finally
  fs.Free;
end;

Damit ist sichergestellt, dass die Resource geschützt ist und das Objekt auf jedenfall freigegeben wird.

Gruß,

Stefan