Парсинг XML (попытки разобраться)

[avd]

Какой гад придумал XML? Замучился уже - при третьем нажатии на кнопку
возникает исключение. Первые два нажатия нормально.
Если кидаю файл на http сервер всё нормально.

// =======================================================
function GetAtr(RefToFile: string): string;
var
  XMLDocument1: TXMLDocument;
begin
  try
    XMLDocument1 := TXMLDocument.Create(RefToFile);
    XMLDocument1.DOMVendor := GetDOMVendor('MSXML');
    XMLDocument1.LoadFromFile(RefToFile);
    XMLDocument1.Active := true;
    Result := XMLDocument1.DocumentElement.Attributes['Atr'];
    XMLDocument1.Active := false;
  except
    Result := '0';
  end;
end;

// =======================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Label1.Caption := GetAtr('C:\Documents and ...\obana.xml');
end;

[Stilet]

Во-первых: Ты создал XMLDocument1 А почему не освобождаешь?
Во-вторых: На какой строке исключение?

[avd]

Извиняюсь, исключение в строке

XMLDocument1.LoadFromFile(RefToFile);

Если пытаться освободить

function GetAtr(RefToFile: string): string;
var
  XMLDocument1: TXMLDocument;
begin
  try
    XMLDocument1 := TXMLDocument.Create(RefToFile);
    XMLDocument1.DOMVendor := GetDOMVendor('MSXML');
    XMLDocument1.LoadFromFile(RefToFile);
    XMLDocument1.Active := true;
    Result := XMLDocument1.DocumentElement.Attributes['Atr'];
    XMLDocument1.Active := false;
    XMLDocument1.Free;
  except
    Result := '0';
  end;
end;

исключение сразу на строке XMLDocument1.Free;

[Stilet]

Извиняюсь, исключение в строке

А что за текст ошибки? Покажи скрин. Уверен что во всем виноват XML провайдер от Микрососов.

[Аватар]

XMLDocument1.DOMVendor := GetDOMVendor('MSXML');

Зачем эта строка? По умолчанию XMLDocument и так создается с нужным DOMVendor, именно тем, который вы пытаетесь запихнуть в него. И в справке дельфей почитайте как можно использовать объект, возвращаемый GetDOMVendor

[avd]

Ещё не лучше!!!
Если xml файл лежит на диске в корне или путь короткий - всё нормально! Если в папке мои документы - Access violation at address 00000000. Read of address 00000000.

Соврал. Если так C:\Users\Aleksandr\Documents\Obana. xml - работает

Если так C:\Users\Aleksandr\Documents\RAD Studio\Projects\Obana.xml
третье нажатие на кнопку и привет.

[Аватар]

Создание еще по-другому сделайте, например

XMLDocument1 := TXMLDocument.Create(Application);

и уберите XMLDocument1.Active := true; после LoadFromFile, там и так уже Active=True, если удачно загрузилось

[avd]

Аватар спасибо!

XMLDocument1 := TXMLDocument.Create(Application); помогло!!

Как это объяснить ???

P.S. XMLDocument1.DOMVendor := GetDOMVendor('MSXML'); не влияет

[Аватар]

Как это объяснить

Фиг его знает. Нужно залазить в дебри, а нет ни какого желания