IHTMLElement. Получить список атрибутов тега

[Stilet]

Всем доброго. использую IHTMLElement для получения данных тега. Хочу получить список атрибутов. В MSDN описан метод getAttribute, но ему нужно задавать имя атрибута для его получения, а мне хочется получить количество атрибутов тега и после в цикле по ним пройтись.

Вопрос: Есть ли у MSHTML возможность пройтись по атрибутам циклом, или getAttribute это предел возможности этого парсера микрософтовского?

[waleri]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Stilet]

За наводку спс, но я чего-то запутался.
У IHTMLAttributeCollection есть метод item, который судя по хелпу принимает один параметр - имя аттрибута. А в примере их два:

pAttrColl->item(&vACIndex, &pItemDisp);

Как такое может быть?

[Человек_Борща]

нормального нет, но есть это, или более старая функция: geElementsByTagName и перебор в цикле.

[waleri]

Сообщение от Stilet

У IHTMLAttributeCollection есть метод item, который судя по хелпу принимает один параметр - имя аттрибута.

Аргументов два - первый это VARIANT в котором индекс, второй это указатель на указатель результата.

Здесь пример на С++: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Аватар]

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[Stilet]

waleri

Блин, точно. Затупил еще раз. Все получилось, спасибо.

Человек_Борща

Ну на IE 9-ку пока расчитывать не могу.
В любом случае ссылка Валеры вывела в нужное русло после того как понял как правильно получать интерфейсы.
На всякий случай прикрепляю примерчик, может кто еще ищет как это делается в Делфи:

  
var nn:OleVariant;j,i,cnt,cntattr:integer; p:Pointer; domnode:IHTMLDOMNode; 

   attrs:IHTMLAttributeCollection;
   atr:IHTMLDOMAttribute;
   aName,aVal:String;
  begin
    if Elem=nil then begin
     Collection:=IHTMLElementCollection(Document.body.all);
    end;
    cnt:=Collection.length;
    for i:=0 to cnt-1 do begin
     if Collection.item(i,0).QueryInterface(IID_IHTMLElement,p)=S_OK then begin
      Elem:=IHTMLElement(p);
      if elem.QueryInterface(IID_IHTMLDOMNode,p)=S_OK then begin
        domnode:=IHTMLDOMNode(p);
        ...:=domnode.nodeName;
        ...:=Elem.innerHTML;
        //****************************** Attributes *********************************************
          p:=domnode.attributes;
          if p<>nil then begin
           if domnode.attributes.QueryInterface(IID_IHTMLAttributeCollection,p)=S_OK then begin
            attrs:=IHTMLAttributeCollection(p);
            cntattr:=attrs.length;
            for j:=0 to cntattr-1 do begin
              nn:=j;
              if attrs.item(nn).QueryInterface(IID_IHTMLDOMAttribute,p)=S_OK then begin
                atr:=IHTMLDOMAttribute(p);
                if not VarIsNull(atr.nodeValue) then begin
                  aName:=atr.nodeName;
                  aVal:=trim(VarToStrDef(atr.nodeValue,''));
                  if aVal<>'' then begin
                     ListBox.Items.Append(aName+'='+aVal);
                  end;
                end;
              end;
            end;
           end;
          end;
        //***************************************************************************************
       end;
     end;
    end;
  end;