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:
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?