Показать сообщение отдельно
  #1  
Старый 01.08.2013, 05:06
Dr.Eik Dr.Eik вне форума
Прохожий
 
Регистрация: 01.08.2013
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Проблема с парсингом XML

Доброго времени суток. Нашел много похожих тем но видимо я чего то не понимаю...
Имеется простой XML файл вида:

Код HTML:
<response list="true"> <uid>15427434</uid> <uid>30591070</uid> <uid>38086591</uid> <uid>42893320</uid> .... </response>
Нужно получить все значения uid
Делаю вот как:

Код:
var
  XMLHttpRequest: IXMLHttpRequest;
  XMLDOMDocument: IXMLDOMDocument;
  UidList,uidlength: IXMLDOMNodeList;
  UidElement: IXMLDOMElement;
  i,j: Integer;
  a,b,Str1,Str2,mas:string;

begin

  OleInitialize(nil);
  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  XMLHttpRequest.open('GET', 'https://api.vkontakte.ru/method/friends.getMutual.xml?&source_uid=192113648&target_uid=126862794&access_token='+token, False, EmptyParam, EmptyParam);
  XMLHttpRequest.send(EmptyParam);

    if XMLHttpRequest.status=200 then
      begin
      XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;

       UidList:=XMLDOMDocument.getElementsByTagName('uid');
        Label2.Caption:=intToStr(UidLength.length);
          for i:=0 to UidList.length-1 do
            begin
            UidElement:=UidList.item[i] as IXMLDOMElement;

           Memo2.Lines.Add(UidElement.getElementsByTagName('uid').item[0].text);

           end;
           end;
 end;
Но получаю ошибку access violation at address 005144D5 in module.. Read of address 00000000... в строке:
Код:
Memo2.Lines.Add(UidElement.getElementsByTagName('uid').item[0].text); 
То есть значение
Код:
UidElement.getElementsByTagName('uid').item[0].text
пустое...
Где я не прав? Подскажите...
Ответить с цитированием