[poli-smen]

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

И вы подскажете как это сделать?

Получить коллекцию можно тем кодом, ссылку на которую я давал.
Или же если использовать вышеуказанный модуль jsWebBrowser, то примерно как-то так:

Код:

Webbrowser1.getElementsByTagName('input',el,'type','radio');

И потом пройдись по этому списку обычным циклом for..do.

[udachnik2]

Так я же говорю что так не получается. Там ведь нужно еще учитывать поле value в котором есть значение которое мне нужно.

Код:

Webbrowser1.getElementsByTagName('input',el,'type','radio');

дает мне только первый элемент типа радио. То есть ответ "Да" в первом вопросе. Или я не прав?

[udachnik2]

И правда. я был не прав. он дает мне все элементы типа радио. в которых и содержатся ответы "Да".

[poli-smen]

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

И правда. я был не прав. он дает мне все элементы типа радио. в которых и содержатся ответы "Да".

Вроде должен давать все элементы INPUT, не только те у которых "Да".

[udachnik2]

Да, так и есть, просто я не правильно выразился. Но теперь опять мне не понятно как сделать так что бы он выбирал только те где ответ да? Они ведь расположены так:
Да
Нет
Не знаю
Да
Нет
Не знаю

вот теперь надо как то настроить этот for...do что бы он отмечал только те что мне надо.

Код:

Webbrowser1.getElementsByTagName('input',el,'type','radio');
for  tip:=0+2 to 21 do
el[tip].click;

так он щелкает в первых пяти вопросах "Да". а потом на одном путается, и дальше ничего не делает!

[poli-smen]

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

вот теперь надо как то настроить этот for...do что бы он отмечал только те что мне надо.

Код:

Webbrowser1.getElementsByTagName('input',el,'type','radio');
for  tip:=0+2 to 21 do
el[tip].click;

так он щелкает в первых пяти вопросах "Да". а потом на одном путается, и дальше ничего не делает!

Я так понял, что те элементы у которых "Да" имеют value="1"? Вот и проверяй если атрибут value равен "1", то вызывай для него click, иначе пропускай.

[udachnik2]

Вах. Вот это да. Только я не знаю где у этих элементов лежит их value. Видел там GetAtribute. но при таком if el[tip].getAttribute('value')=1 then коде он говорит что не актуальны параметры.

[poli-smen]

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

Вах. Вот это да. Только я не знаю где у этих элементов лежит их value. Видел там GetAtribute. но при таком if el[tip].getAttribute('value')=1 then коде он говорит что не актуальны параметры.

А у тебя разве не выскакивает подсказка, что у getAttribute 2 параметра, а не 1?

А вообще по значению value наверно не очень надёжно определять. Если нужно кликнуть только по тем, что "Да", то думаю лучше проверять, что текст там действительно "Да".

[poli-smen]

Вот проверил. У меня вот так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  el: Helems;
  i: Integer;
begin
  Webbrowser1.getElementsByTagName('input', el, 'type', 'radio');
  for i := Low(el) to High(el) do
    if AnsiSameText(Trim(el[i].parentElement.innerText), 'Да') then
      el[i].click;
end;

[udachnik2]

1. Определенно исключено изменение значения поля value на сервере. Я просто в этом уверен.
2. Спасибо за подсказку о подсказке. то есть должно быть так:

Код:

Webbrowser1.getElementsByTagName('input',el,'type','radio');
for  tip:=0 to 62 do
if el[tip].getAttribute('value', 1)=1 then
el[tip].click;

поставил и оно заработало.
Спасибо большое вам.