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

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

06.07.2009, 15:34

Cleric57

Новичок

Регистрация: 05.07.2009

Сообщений: 1

С нами: 8868769

Репутация: 0

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

Приветствую господа.
В общем ситуация следующая. Вот 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 программа не находит. А хочется... как быть?

Код:

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 не загонять?

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

𝕏 Twitter Reddit Telegram Копировать ссылку