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

[Stefan Hueg]

Probiers mal so:

Delphi-Quellcode:

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

[la.reunion]

So geht es JUHU!!!!!
DANKE VIELMALS!!!

Jetzt muss ich nur mal alle Links aus der XML Datei extrahieren!
um die in die Listbox einzutragen!

[Stefan Hueg]

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.

[la.reunion]

Vielen dank! nochmals
ich hbae dann noch ein kleines prob und zwar wenn ich dann in der listbox ein item anklicke soll es in einem image1 angezeigt werden

der code wäre doch dann

nur für einen selektierten eintrag? oder nicht?
For i:= 0 to listbox1.items.count - 1 do begin Listbox1.item[ItemIndex]


mhh ne des falsch

[Obi-Wan]

Du musst einfach in das "OnClick" Ereignis der Listbox das hier schreiben:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 Image1.Picture.LoadFromFile(ListBox1.Items[ListBox1.Itemindex]);
end;

Davon ausgehend das in der Listbox die Pfade zu der jeweiligen Datei stehen.
Wenn du .jpg Bilder anzeigen lassen willst muss du oben in der uses Klausel noch JPEG einbinden.

[la.reunion]

danke!