Download Schleife mit ItemBox

[Hexla]

Huhu


Ich habe da ein Problem, ich versuche eine Seite zu downloaden (Also praktisch gesehen den Quelltext für eine auswertung, möchte mirn eigenes Addon basteln :P) . Ich habe ein OnClick Event das den Selektierten Eintrag in die Schleife schickt. Das sieht wie folgt aus:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: integer;
  se: String;
  FS:Tfilestream;
  URL:String;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    if ListBox1.Selected[i] then
    begin
ListBox1.Items.Delete(i);
se :=inttostr(i);
URL:='http://wowhead.com/?npc=' + se;
FS:=Tfilestream.Create('DATASET/' + se + '.html',fmCreate);
IdHTTP1.Get(URL,FS);
FS.Free;
    end;
end;

Das beinhaltet: Eintrag löschen, Download setzten mit der i Selected, Downloaden und speichern.

Die ListBox1 beinhaltet nur pro eintrag eine ID, keine sonstiges Sachen. Wie bekomme ich es hin das er bei i statt die Zeilennnumer den Wert der Zeile ausspuckt?

[Luckie]

Delphi-Quellcode:

s := Listbox1.Items[i]

[grenzgaenger]

was verstehst du unter wert? und wie befüllst du die listbox? :glaskugel:

[Hexla]

Die Listbox lade ich aus einer Textdatei, jede zeile eine nummer. Das klappt ja auch (Halbwegs, bekomme nen Error von wegen Maximum erreicht aber es klappt :D) und dann will ich es halt so machen das die Selektierte Zeile gedownloadet/aufgerufen wird. Also will ich halt den Inhalt aus der Selektierten Zeile

[Hexla]

Ok alles klar, er nimmt jetzt die Nummer, danke Luckie

Jetzt ist es aber das Problem das er die Datei zwar erstellt (NUMMER + .html) aber ich bekomme folgenden Error:

HTTP/1.1 301 Moved Permanently


Mein Quelltext sieht so aus:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: integer;
  se: String;
  FS:Tfilestream;
  URL:String;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    if ListBox1.Selected[i] then
    begin
se := Listbox1.Items[i];
URL:='http://wowhead.com/?npc=' + se;
FS:=Tfilestream.Create(se + '.html',fmCreate);
IdHTTP1.Get(URL,FS);
FS.Free;
ListBox1.Items.Delete(i);
 end;
end;

[grenzgaenger]

hier:

Delphi-Quellcode:

'http://wowhead.com/?npc=' + se;

hast ja auch keine IP addresse, sondern übergibst einen parameter an das gehostetet progy...

da ist es klar, dass er nix finden kann..