[Dr.Eik]

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

<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

пустое...
Где я не прав? Подскажите...

[Dr.Eik]

Все разобрался...
Вот код.. Может кому пригодится..

Код:

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

begin
   j:=0;
  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;
        UidLength:=XMLDOMDocument.getElementsByTagName('uid');
        while j<> uidlength.length-1 do
        begin
          UidList:=XMLDOMDocument.getElementsByTagName('response');
          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[j].text);
            inc(j);
          end;
           end;
           end;

[M.A.D.M.A.N.]

Проще готовый парсер взять и не городить огород.

[NumLock]

Код:

var
  XMLHttpRequest: IXMLHttpRequest;
  XMLDOMDocument: IXMLDOMDocument;
  XMLDOMNodeList: IXMLDOMNodeList;
  i: Integer;
begin
  Memo1.Clear;
  XMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  XMLHttpRequest.open('GET', 'http://j2me.webservis.ru/test.xml', False, EmptyParam, EmptyParam);
  XMLHttpRequest.send(EmptyParam);
  if XMLHttpRequest.status<>200 then raise Exception.Create('Oops');
  XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;
  XMLDOMNodeList:=XMLDOMDocument.getElementsByTagName('uid');
  for i:=0 to XMLDOMNodeList.length-1 do
    Memo1.Lines.Add(XMLDOMNodeList.item[i].text);
end;