MS XML liest XML-File aus Internet nicht

[MathiasSimmack]

Soeben ausprobiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  xmldoc : DomDocument40;
  nl     : IXMLDOMNodeList;
  i      : integer;
begin
  xmldoc := CoDomDocument40.Create;
  if(xmldoc <> nil) then
  try
    xmldoc.async := false;
    xmldoc.validateOnParse := false;
    xmldoc.resolveExternals := false;

    if(xmldoc.load('http://www.delphipraxis.net/rdf.php?shoutbox=1')) then
    begin
      nl := xmldoc.selectNodes('/rdf/shout');
      ShowMessage(Format('%d <shout>-Knoten gefunden',[nl.length]));

      if(nl.length > 0) then
      begin
        i  := Random(nl.length); // "Randomize" nicht vergessen

        ShowMessage(nl.item[i].xml);
      end;
    end;
  finally
    xmldoc := nil;
  end;
end;

So geht´s. Ich bekomme nur eine Zugriffsverletzung, wenn ich auf
    xmldoc.async := false; verzichte. Ansonsten sah ich als zufällige Meldung gerade die von himitsu um 11:35:

Zitat:

Du möchtest nicht wissen, ...