[fine]

Добрый день.
На веб странице есть:

<input type="input" id='input_value'.....>
<button id='btn_find' ... >
<input type="checkbox" name="chbox1" ...">

В memo1 загружены данные, которые надо по очереди вводить в поле input_value, нажать на btn_find, подождать несколько секунд и поставить галочку chbox1.
В идеале подождать до загрузки страницы, но страница загружается быстро, можно подождать скажем 3 сек. и перейти к следующему строку из memo1.
Код у меня такой:

Код:

1 2 3 4 5 6 7 8

for i := 0 to memo1.lines.Count - 1 do begin WebBrowser1.OleObject.Document.GetElementByID('input_value').value:=memo1.lines[i]; WebBrowser1.OleObject.Document.GetElementByID('btn_find').click(); //sleep(4000) WebBrowser1.OleObject.Document.GetElementByID('chbox1').click();   end;

Вместо sleep наверно надо использовать другой подход.
Прошу помочь.

[Shaft]

Код:

1 2 3 4 5 6

WebBrowser1.OleObject.Document.GetElementByID('input_value').value:=memo1.lines[i]; WebBrowser1.OleObject.Document.GetElementByID('btn_find').click(); repeat   Application.ProcessMessages; until not WebBrowser1.Busy; WebBrowser1.OleObject.Document.GetElementByID('chbox1').click();

[fine]

Спасибо за ответ.
К сожалению ТWebBrowser ту страницу отображает некорректно, пришлось использовать ТEdgeBrowser.
У ТEdgeBrowser отсутствует OleObject. Надо все это реализовать на ТEdgeBrowser.

[Shaft]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var   Waiting:Boolean; //....   for i := 0 to memo1.lines.Count - 1 do begin   EdgeBrowser1.ExecuteScript('document.getElementById("input_value").value = "'+memo1.lines[i]+'";');   EdgeBrowser1.ExecuteScript('document.getElementById("btn_find").click();');   Waiting:=True;   repeat     Application.ProcessMessages;   until not Waiting;   EdgeBrowser1.ExecuteScript('document.getElementById("chbox1").click();'); end;   procedure TForm1.EdgeBrowser1NavigationCompleted(Sender: TCustomEdgeBrowser; IsSuccess: Boolean; WebErrorStatus: TOleEnum); begin   Waiting:=False; end;

[fine]

Такое ощущение, что после клика на btn_find событие EdgeBrowser1NavigationCompleted не выполняется.

[Shaft]

Если клик по кнопке запускает загрузку страницы

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

В идеале подождать до загрузки страницы

То OnNavigationCompleted 100% должен выполнятся.
Сам ивент вообще срабатывает? Если в него добавить например

Код:

1	memo1.lines.add('OnNavigationCompleted');

Что нибудь происходит хотя бы при первой загрузке страницы?

[fine]

При первой загрузке, или когда я вручную обновляю страницу, то ивент срабатывает.
Может быть не всю страницу загружается при нажатии на btn_find.
Хотя страница iframe не содержит.

Задача усложняется: надо проверить существует ли чекбокс.
Алгоритм такой:
1. взял очередную строку из memo1
2. вводил в поле input_value
3. нажал на btn_find
4. подождал несколько секунд
5. проверил если не существует чекбокс, в memo2 добавляем ту строку.

код такой:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.Button6Click(Sender: TObject); begin started:=1; for i := 0 to memo1.lines.Count - 1 do    begin     js:='document.getElementById("input_value").value="'+memo1.lines[i]+'";document.getElementById("btn_find").click();';     EdgeBrowser1.ExecuteScript(js);     Delay(2000);     js:='t="";s=document.getElementsByName("chbox1")[0];if (s==null) {t="NotFound";} else {document.getElementsByName("chbox1")[0].click();t="Found";}';     EdgeBrowser1.ExecuteScript(js);     end; started:=0; end;   procedure TForm1.EdgeBrowser1ExecuteScript(Sender: TCustomEdgeBrowser;   AResult: HRESULT; const AResultObjectAsJson: string); begin if (AResultObjectAsJson='NotFound') and ( started>0 ) then      memo2.Lines.add(memo1.Lines[i]+'-'+AResultObjectAsJson); end;