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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.01.2014, 19:50
Dima170792 Dima170792 вне форума
Новичок
 
Регистрация: 02.04.2011
Сообщения: 61
Репутация: 10
По умолчанию Нажатие ссылки типа <a class="button_mediu" href="blabla/44">Сражатmься</a>

Уважаемые форумчане -как нажать ссылку типа
Код HTML:
<a class="button_medium" href="/game/battle/player/engage?opponent_id=2073360&drid=2444">Сражаться</a>
Пробовал через :

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var HtmlDocument   : IHtmlDocument2;
      i : integer;
      HtmlCollection : IHtmlElementCollection;
      HtmlElement    : IHtmlElement;
      spisok : string;
      stop:integer;
 
begin
 
    HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
    HtmlCollection := HtmlDocument.All;
    for i := 0 to HtmlCollection.length - 1 do
      begin
        if stop = 1 then Exit;
        HtmlElement := HtmlCollection.Item(i, 1) as IHtmlElement;
        spisok := HtmlElement.InnerText;
        Trim(spisok);
        if spisok = 'Сражаться' then
          begin
            HtmlElement.click;
            Exit;
          end;
      end;
end;
-При нажатии не происходит абсолютно ничего, есть вариант с кодом:
Код:
1
WebBrowser1.OleObject.document.links.Item(номер_ссылки_в_документе). click
- но в моем случае номер ссылки постоянно меняется.
Объясните что не так в моем коде, или покажите пожалуйста как нужно?
Ответить с цитированием
  #2  
Старый 25.01.2014, 20:12
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Этот код вроде на кнопки действует, не для ссылок, наверное надо так
Код:
1
2
3
4
5
6
7
8
...
if spisok = 'Сражаться' then
 begin
  spisok:= WebBrowser1.OleObject.Document.links.Item(i);
  Webbrowser1.Navigate(spisok);
  Exit;
...
end;
Ответить с цитированием
  #3  
Старый 26.01.2014, 18:04
Dima170792 Dima170792 вне форума
Новичок
 
Регистрация: 02.04.2011
Сообщения: 61
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Этот код вроде на кнопки действует, не для ссылок, наверное надо так
Код:
1
2
3
4
5
6
7
8
...
if spisok = 'Сражаться' then
 begin
  spisok:= WebBrowser1.OleObject.Document.links.Item(i);
  Webbrowser1.Navigate(spisok);
  Exit;
...
end;
так пробовал тоже- не подходит- ругается
Ответить с цитированием
  #4  
Старый 26.01.2014, 21:55
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Тогда боюсь что вам в ручную парсить адресок придётся, но всё равно, через Navigate браузера :-(
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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