VPF::Нажатие кнопки в определенном фрэйме EmbeddedWB/WB

mmanson

Дата 2.12.2011, 01:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день!
Нужна помощь. Написал программу для входа на сайт, заполняет нужные поля, с помощью JS нажимает кнопку вход.

Код

type
  TForm1 = class(TForm)
    WB1: TEmbeddedWB;
....
   with WB1 do
   begin
     FillForm('name', 'name');
     FillForm('password', '12345');
     WB1.RunJS('javascript:document.getElementById(''auth_form'').submit();');
   end;

Далее, после захода на сайт, есть 7 фрэймов, и в каждом есть свои кнопки. Нужно нажать на определенную кнопку в фрэйме:

Код

<iframe id="main_top" frameborder="0" scrolling="auto" style="width: 100%; height: 285px;" name="main_top" src="main.php">

Для примера, кнопка в данном фрэйме:

Код

<input class="lbut" type="button" value="1551" onclick="ButClick('wert')">

, после её нажатия в этом же фрэйме должно появиться всплывющие окно, так же с кнопками, на которые нужно будет нажать, в будущем.

Самый удачный вариант:

Код

 var name_frame: OleVariant;
....
name_frame := 'main_top';
WB1.Navigate('http://site.ru/ajax/wertt_ajax.php?act=1&vcode=1', Flags, TargetFrameName, PostData, Headers);

Загрузка происходит в нужном фрэйме, но грузиться не как всплывающие окно, а как текстовая web-страница, без каких либо кнопок, только текст, который должен быть в всплывающем окне...С нажатием на определенную ссылку в нужном фрэйме разобрался, а вот на кнопку нажать не выходит...Множество примеров нажатия кнопок рассмотрел, но не один так и не работает правильно.
Ну вот на этом я и застрял, подскажите, пожалуйста, как правильно сделать нажатие кнопки.

mmanson

Дата 5.12.2011, 13:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


<input type="button" class="lbut" onclick="ButClick(''wert'')" value="1551"/>

Код


var  ovElements: OleVariant;  i: Integer;
....
ovElements := WB1.OleObject.Document.Forms.Item(0).Elements;
    for i := 0 to (ovElements.Length-1 ) do
      begin
        if (ovElements.Item(i).tagName  = 'input')  and
           (ovElements.Item(i).class  = 'lbut')  and
           (ovElements.Item(i).type  = 'button')  and
           (ovElements.item(i).Value = '1551')
        then ovElements.Item(i).Click;
      end;

Вот так, вроде как должно работать, т.е. нажимать на кнопку, но не работает, выдает ошибку

Код


First chance exception at $7C812AFB. Exception class EAccessViolation with message 'Access violation at address 004CA669 in module 'Project1.exe'. Read of address 00000000'. Process Project1.exe (2580)

Что в коде не так то? smile

Это сообщение отредактировал(а) mmanson - 5.12.2011, 13:35

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