VPF::Парсинг XML - Форум программистов

navodri

Дата 28.5.2010, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

Репутация: нет
Всего: -1

Парсю XMLку, но, когда в ней отсутствуют данные, выводится Access violation. Компилятор останавливается на строке, указанной ниже...

Код


var
 XML: Variant;

function CreateXML: boolean;
begin
 XML := CreateOleObject('Microsoft.XMLDOM');
 XML.async := false;
  Result := (XML.parseError.reason = '');
end;

procedure LoadXML(XML_:string);
begin
 XML.load(XML_);
end;

function GetNodeItemText(Path:array of string;Item:string): string;
var
 Node: variant;
 i: integer;
begin
 Node := XML.documentElement;
  for i:=0 to High(Path) do Node := XML.SelectSingleNode(Path[i]);
   try

    Result := Node.attributes.getNamedItem(Item).text; //Здесь дебаггер выводит Access violation

   except
  Result := '';
 end;
end;

Как этого избежать?

Frees

Дата 28.5.2010, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Код


function GetNodeItemText(Path:array of string;Item:string): string;
var
 Node: variant;
 i: integer;
begin
 Node := XML.documentElement;
  for i:=0 to High(Path) do 
    Node := XML.SelectSingleNode(Path[i]);

  if Assigned(Node)and Assigned(Node.attributes)and Node.attributes.getNamedItem(Item) then 
    Result := Node.attributes.getNamedItem(Item).text //Здесь дебаггер выводит Access violation
  else
   Result := '';
 end;
end;

--------------------

Кольцов Виктор Владимирович

navodri

Дата 28.5.2010, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

Репутация: нет
Всего: -1

Следующая строка не компилируется... Говорит, другой тип. В принципе правильно - Assigned в моем случае хочет Pointer.

Код


if Assigned(Node) and Assigned(Node.attributes) and Node.attributes.getNamedItem(Item) then

navodri

Дата 28.5.2010, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

Репутация: нет
Всего: -1

Проблему решил. Спасибо за помощь. Спасибо Frees'у в частности за то, что направил в нужное русло. Вот рабочий код:

Код


function GetNodeItemText(Path:array of string;Item:string): string;
var
 Node: variant;
 i: integer;
begin
 Node := XML.documentElement;
  for i:=0 to High(Path) do
    Node := XML.SelectSingleNode(Path[i]);

    if VarIsEmpty(Node) then
       Result := ''
       else
    Result := Node.attributes.getNamedItem(Item).text;

end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »