обращение к элементу таблицы в WebBrowser

[nikola86]

Доброе время суток. Подскажите пожалуйста как мне сделать нажатие на кнопку, если кнопка-элемент таблицы и у нее нет ни type ни value.

procedure TForm1.Button1Click(Sender: TObject);
var form:olevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;
for i:=0 to form.Length-1 do

if (form.item(i).type='button')
and
(form.item(i).Value = '1')
 then begin
form.item(i).click; 
end;

Это для нажатия на кнопку, а как мне сделать, если таблица в исходном тексте выглядит следующим образом:

<table cellspacing=1 cellpadding=0><form><tr><th id=c91 class=c>&nbsp;</th><th id=c92 class=c>&nbsp;</th><th id=c93 class=c>&nbsp;</th><th id=c94 class=c>&nbsp;</th><th id=c95 class=c>&nbsp;</th></tr><tr><th id=c81 class=c>&nbsp;</th><th id=c82 class=c>&nbsp;</th><th id=c83 class=c>&nbsp;</th><th id=c84 class=c>&nbsp;</th><th id=c85 class=c>&nbsp;</th></tr><tr><th id=c71 class=c>&nbsp;</th><th id=c72 class=c>&nbsp;</th><th id=c73 class=c>&nbsp;</th><th id=c74 class=c>&nbsp;</th><th id=c75 class=c>&nbsp;</th></tr><tr><th id=c61 class=c>&nbsp;</th><th id=c62 class=c>&nbsp;</th><th id=c63 class=c>&nbsp;</th><th id=c64 class=c>&nbsp;</th><th id=c65 class=c>&nbsp;</th></tr><tr><th id=c51 class=c>&nbsp;</th><th id=c52 class=c>&nbsp;</th><th id=c53 class=c>&nbsp;</th><th id=c54 class=c>&nbsp;</th><th id=c55 class=c>&nbsp;</th></tr><tr><th id=c41 class=c>&nbsp;</th><th id=c42 class=c>&nbsp;</th><th id=c43 class=c>&nbsp;</th><th id=c44 class=c>&nbsp;</th><th id=c45 class=c>&nbsp;</th></tr><tr><th id=c31 class=c>&nbsp;</th><th id=c32 class=c>&nbsp;</th><th id=c33 class=c>&nbsp;</th><th id=c34 class=c>&nbsp;</th><th id=c35 class=c>&nbsp;</th></tr><tr><th id=c21 class=c>&nbsp;</th><th id=c22 class=c>&nbsp;</th><th id=c23 class=c>&nbsp;</th><th id=c24 class=c>&nbsp;</th><th id=c25 class=c>&nbsp;</th></tr><tr><th id=c11 class=c>&nbsp;</th><th id=c12 class=c>&nbsp;</th><th id=c13 class=c>&nbsp;</th><th id=c14 class=c>&nbsp;</th><th id=c15 class=c>&nbsp;</th></tr><tr><th id=c01 class=c>&nbsp;</th><th id=c02 class=c>&nbsp;</th><th id=c03 class=c>&nbsp;</th><th id=c04 class=c>&nbsp;</th><th id=c05 class=c>&nbsp;</th></tr></form></table></td></tr></table></td><td width=50%><table cellspacing=1 cellpadding=1 bgcolor=#2E8E02><tr><td bgcolor=#BCDB8F background=image/image2.jpg>


мне нужно нажать на элемент первого ряда(с01-с05), на какой именно-определить рандомом. Подскажите, как это реализовать.

[Stilet]

Что-то я не сильно понял что тее надо...

[nikola86]

Мне нужно нажать на ячейку таблицы, которая представлена выше-только я не знаю как к ней обратиться-в исходном коде у нее нет name, только id и class. Надеюсь сейчас понятно написал.

[Usov]

распарсь таблицу в массив и проблема решена

[mihali4]

При чем тут парсинг???
Ему нужно имитировать нажатие на ячейку <th>...</th>
В исходнике странички такое событие не предусмотрено, нужно с помощью внешнего воздействия.

[mosq]

все просто, в одну строчку

Webbrowser1.OleObject.Document.GetElementByID('knopka_id').click;

соответственно, вместо "knopka_id" указываешь ID того элемента, который кликать

[nikola86]

Как это вставить, подскажите, пожалуйста.
Сначала выполняется это:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var form:olevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;
for i:=0 to form.Length-1 do

if (form.item(i).type='button')
and
(form.item(i).Value = '0.1')
 then begin
form.item(i).click; 

  end;
end; 


а затем это:

PHP код:

Webbrowser1.OleObject.Document.GetElementByID('с01').click; 


Как внести правильно эту строку в мой код?

И еще: как вывести в виде сообщения значение 0.20, если исходный код такой:

</th><th id=zcount width=50%>0.20</th>

[nikola86]

как правильно внести эту строку в код выше?

PHP код:

Webbrowser1.OleObject.Document.GetElementByID('с01').click; 


[mosq]

не совсем понял смысл этого

if (form.item(i).type='button') 
and 
(form.item(i).Value = '0.1') 
 then begin 
form.item(i).click;

что этим кодом выявляется?

[nikola86]

этот код нажимает на кнопку, мне нужно модифицировать его, чтобы нажималось еще на ячейку таблицы. Видимо придется делать через координаты.