XMLDocument.LoadFromFile отказано в доступе

[X11]

Загружаю XML по адресу http://pf-soft.net/service/currency/
(там курсы валют)

var
  XMLDocument: TXMLDocument;
begin

  try
    XMLDocument := TXMLDocument.Create(Application);
   
    try
      XMLDocument.Active := True;
      XMLDocument.LoadFromFile(url);

на строке XMLDocument.LoadFromFile(url) появляется исключение с текстом: "отказано в доступе".

Сетевой экран и антивирус отключал - не помогает. В Firefox`е ссылка грузится.

[FleXik]

у меня пашет

var
  stream:TStringStream;
  RegExp:TRegExpr;
begin
  RegExp:=TRegExpr.Create;
  RegExp.Expression:='<NumCode>(.*?)</NumCode>';
  stream:=TStringStream.Create(ссылка);
  Form1.XMLDocument1.LoadFromStream(stream);

    if RegExp.Exec(Form1.XMLDocument1.XML.Text) then
    begin
        repeat
          Form1.sRichEdit1.Lines.Add(RegExp.Match[1]);
        until not RegExp.ExecNext;
    end;

  RegExp.Free;
  stream.Free;
end;

на быструю руку, советую TStringStream использовать.

[X11]

у Вас другой код вижу

Забыл сообщить, что у меня D2007.

[Sibedir]

procedure TForm1.Button1Click(Sender: TObject);
var
  XMLDocument: TXMLDocument;
  url: string;
begin
  url := 'http://pf-soft.net/service/currency/';
  XMLDocument := TXMLDocument.Create(Application);
  XMLDocument.Active := True;
  XMLDocument.LoadFromFile(url);
end;

XE5
Чёт грузит. Не ругается.

[X11]

Хм.... в отдельном тестовом приложении грузит... ничего не понимаю

они адрес сайта поменяли, было раньше без тире