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

[la.reunion]

Danke es kommt jetzt nur der fehler 404 sprich dateinciht gefundne wenn ich für HIER i nehm

[EDatabaseError]

I hat immer den Wert des schleifendurchlaufs also 1,2,3 usw.

[Hawkeye219]

Zitat von Stefan Hueg:

Pack das in eine

Delphi-Quellcode:

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

Stefan, du solltest noch einmal in "deinen" Thread schauen: klick

Gruß Hawkeye

[Stefan Hueg]

@Hawkeye: Mein Fehler, muss natürlich so lauten

Delphi-Quellcode:

  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[i], fs);
    finally
      fs.Free;
    end;
  end;

@la.reunion: Hinter das "For i:= 0 to listbox1.items.count - 1 do" muss dringend ein Begin schließend mit einem End, sonst führt er nur das fs := TFileStream.Create(fn, fmCreate); in einer Schleife aus und macht des Rest ausserhalb.

[EDatabaseError]

z.b.

[la.reunion]

DANKEE!!!
fn := 'C:\Windows\Temp\'+listbox1.items[i]; mhhh er sagt immer der pfad kann nciht gefunden/erstellt erden!??! was ist da?(auch wenn ich +listbox1.items[i] weglasse)

[Christian Seehase]

Moin la.reunion,

ich habe da mal eine Frage:
Was steht eigentlich in der Listbox?

BTW:
So wie das bisher aussieht wird es aber nicht funktionieren können, da das Erzeugen des FileStreams auf ein Verzeichnis verweist, nicht auf eine Datei.

[Stefan Hueg]

Ist denn überhaupt was in der listbox drin? denn ohne gehts ja nich

[la.reunion]

HAbe mal drein links rein(sind ja die gleichen aber is ja egal)
...waren die ganze zeit shcon drin ...

Delphi-Quellcode:

http://images.amazon.com/images/P/B00006L71B.03._SCLZZZZZZZ_.jpg
[url]http://images.amazon.com/images/P/B00006L71B.03._SCLZZZZZZZ_.jpg[/url]
[url]http://images.amazon.com/images/P/B00006L71B.03._SCLZZZZZZZ_.jpg[/url]

Inzwischen sagt er dann das der Listenindex überschritten wurde!

Danke für eure MÜHE!!!