Всем привет. Имеется форма поиска по адресу - http://buro.ru/Search.aspx. С помощью следующего кода:
| Код |
WebB.Navigate('http://buro.ru/Search.aspx');
while not isDownW do Application.ProcessMessages;
ovElements := WebB.OleObject.Document.Forms.Item(0).Elements;
for MyX := 0 to ovElements.Length - 1 do
begin
try
if (CompareText(ovElements.item(MyX).tagName, 'input') = 0)
and (CompareText(ovElements.item(MyX).type, 'text') = 0)
and (CompareText(ovElements.item(MyX).name, 'txtSearchStr') = 0) then
begin
ovElements.item(MyX).Value := 'Артикул';
end;
except
end;
end;
|
я нахожу и заполняю поле поиска. Все проходит, но вот затем необходимо нажать на изображение "Искать" и вот это не получается. Данный цикл даже не определяет этот input. Как можно решить данную проблему? |