Also so wirklich funktionieren tut es jetzt nicht. Hab jetzt mal die
unit Contnrs eingebunden wegen TObjectList. Aber was muss z.b. hier hin:
procedure TDemoForm.ButtonClick(Sender: TObject);
begin
Memo.Text:=GetHTML('http://**********stats.xml');
with XmlDocument do
begin
Active := False;
XML.Assign(Memo.Lines);
try
Active := True;
ExtractValues(documentElement.ChildNodes['sessions'].ChildNodes, >>>>>>>>>Was muss hier rein???<<<<<<<<, FIELDNAMES);
except
on E:
Exception do
ShowMessage(E.Message);
end;
end;
end;