Поиск объектов вебстраницы по параметрам через OleObject

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Cleric57, 6 Jul 2009.

  1. Cleric57

    Cleric57 New Member

    Joined:
    5 Jul 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Приветствую господа.
    В общем ситуация следующая. Вот html код:
    HTML:
    <TD class=UserBattleAttack noWrap><BUTTON class=UserBattleRadio nTarget="0" nCount="0" bDisable="true">
    <DIV class=UserBattleRadio><IMG class=Relative style="LEFT: 0px" src="http://img.combats.com/i/combats/damage.gif"><IMG class=Absolute style="LEFT: 0px" src="http://img.combats.com/i/misc/radio.gif"></DIV></BUTTON><SPAN class=UserBattle nTarget="0">&nbsp;удар в голову</SPAN></TD>
    <TD></TD>
    <TD class=UserBattleDefend noWrap><BUTTON class=UserBattleRadio nTarget="1" nCount="0" bDisable="true">
    <DIV class=UserBattleRadio><IMG class=Relative style="LEFT: 0px" src="http://img.combats.com/i/combats/damage.gif"><IMG class=Absolute style="LEFT: 0px" src="http://img.combats.com/i/misc/radio.gif"></DIV></BUTTON><SPAN class=UserBattle nTarget="0">&nbsp;блок головы</SPAN></TD></TR>
    Могу найти к примеру уникальный объект BUTTON через свойство webbrowser.OleObject.Document.all.I tem(i).nTarget - оно в ковычках, поэтому находит, а вот к примеру уникальный объект TD через свойство class программа не находит. А хочется... как быть?

    Code:
    var
       i: Integer;
       ovElements: OleVariant;
    begin
      ovElements := wb.OleObject.Document.all;
      for i := 0 to (ovElements.Length-1) do
        begin
          if (AnsiUpperCase(ovElements.Item(i).tagName) = 'BUTTON') then
            try
              if ovElements.Item(i).nTarget = 1 then ovElements.Item(i).Click;
            except end; ;
          end;
    end;
    
    И можно ли проверить, существует ли вообще данное свойство, чтобы в try не загонять?

    Заранее Спасибо!