Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.12.2014, 22:44
RobinStone RobinStone вне форума
Прохожий
 
Регистрация: 02.06.2013
Сообщения: 27
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию WebBrowser - замечательный компонент

Добрый вечер уважаемые форумчане! И вновь взываю к Вашему чувству долга и желанию безвоздмездно помогать братьям по разуму...
Нынче случилось вот что : написал я програмку, типа парсера по одному сайту, и вроди всё хорошо и программа прекрасно работает, а главное - делает всё как я её прошу, но как всегда - захотелось большего... и тупик.
Моя программа (по долгу своей службы), должна нажимать (и прекрано нажимает) на компоненты типа button
Код:
      If (html_tag.item(i).value='Выход') Then html_tag.item(i).click;
но вот есть на той странице (на которой работает прога) нечто такое

Код HTML:
<li> <a href="/wps/myportal/ibank/!ut/p/a1/hY5LC4JAFIV_UOC9vnU5KvmocKd2NzIDZqbNhErRv0-jbXV2B76Pc4CgApL83rV87pTkw9rJqZHFlr7LMcu3hYEs1HPdNgoT0VyA4wp8CcN_fgn0RsKYJZa7XxzLMzc4CgApL83rV87pTkw9rJqZHFlr7LMcu3hYEs1HPdNgoT0VyA4wp8CcN_fgn0RsKYJZa7XxzLMCi92XL8Fr2BY!/dl5/d5/L2dJQSEvUUt3QS80SmlFL1o2XzBBRzQxS08wSk9GVjIwQUMxTzE1MlYzMDYw/"> Платежи и переводы <b></b> </a> </li>

на странице это выглядит как кнопка, она нажимается и открывает другую страницу. А теперь вопрос - КАК МНЕ НАЖАТЬ НА ЭТУ ШТУКУ ИЗ МОЕЙ ПРОГРАММЫ (вроди как с кнопкой, нажатие которой я произвожу так как показывал ранее).
Зарание спс за проявленное терпение и внимание к моему вопросу.

Последний раз редактировалось RobinStone, 21.12.2014 в 23:01.
Ответить с цитированием
  #2  
Старый 22.12.2014, 07:31
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Есть предположение (по drkb) что можно сначало распарсить данный фрагмент до
Код:
var
Document: IHtmlDocument2;
V: Variant;
...
V[0] :='<a href="/wps/myportal/ibank/!ut/p/a1/hY5LC4JAFIV_UOC9vnU5KvmocKd2NzIDZqbNhErRv0-jbXV2B76Pc4CgApL83rV87pTkw9rJqZHFlr7LMcu3hYEs1HPdNgoT0VyA4wp8CcN_fgn0RsKYJZa7XxzLMzc4CgApL83rV87pTkw9rJqZHFlr7LMcu3hYEs1HPdNgoT0VyA4wp8CcN_fgn0RsKYJZa7XxzLMCi92XL8Fr2BY!/dl5/d5/L2dJQSEvUUt3QS80SmlFL1o2XzBBRzQxS08wSk9GVjIwQUMxTzE1MlYzMDYw/">Run</a>';
а затем выполнить
Код:
...
Document := WebBrowser1.Document as IHtmlDocument2;
Document.Writeln(PSafeArray(TVarData(v).VArray));
...
WebBrowser1.Navigate...
...
ну или тогда симульнуть клик посредством SendInput(MouseInput)...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:18.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025