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 ) . Ich habe ein OnClick Event das den Selektierten Eintrag in die Schleife schickt. Das sieht wie folgt aus:

zusammenfalten · markieren

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?

s := Listbox1.Items[i]

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

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 ) 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

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:

zusammenfalten · markieren

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;

hier: '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..