PDA

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


Cleric57
06.07.2009, 15:34
Приветствую господа.
В общем ситуация следующая. Вот 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 не загонять?

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