VPF::Автоматической заполнение формы поиска

mspuz

Дата 13.11.2012, 14:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет

Всем привет. Имеется форма поиска по адресу - 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. Как можно решить данную проблему?

MetalFan

Дата 13.11.2012, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

Document.getElementById('txtSearchStr').value='Артикул';
Document.getElementById('SearchBtn').click();

Это сообщение отредактировал(а) MetalFan - 13.11.2012, 15:46

--------------------

There are always someone smarter than you...

mspuz

Дата 14.11.2012, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет

MetalFan, Спасибо - получилось и намного элегантнее код. Буду знать.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »