Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2011, 13:43   #1
начинающий1
Пользователь
 
Регистрация: 30.07.2009
Сообщений: 46
По умолчанию TWebBrowser нажатие кнопки

Доброго дня! Не могу нажать в TWebBrowser по кнопке <<<
код исходной страницы
Код:
<span class="stran" onclick="this.style.display='none';xajax_maеch_select('214867', '1325974', 1)">&lt;&lt;&lt;</span>
<span class="stran" onclick="this.style.display='none';xajax_maеch_select('214867', '5704331', 1)">&lt;&lt;&lt;</span>
Пробую вот так, но не нажимаются кнопки
Код:
var HtmlDocument   : IHtmlDocument2;
      i : integer;
      HtmlCollection : IHtmlElementCollection;
      HtmlElement    : IHtmlElement;
      spisok : string;
begin
    HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
    HtmlCollection := HtmlDocument.All;
    for i := 0 to HtmlCollection.length - 1 do
      begin
        HtmlElement := HtmlCollection.Item(i, 1) as IHtmlElement;
        spisok := HtmlElement.InnerText;
        Trim(spisok);
        if spisok = '&lt;&lt;&lt;' then
          begin
            HtmlElement.click;
          end;
      end;
end;

Последний раз редактировалось начинающий1; 31.05.2011 в 14:44.
начинающий1 вне форума Ответить с цитированием
Старый 31.05.2011, 13:57   #2
mss
Заблокирован
 
Регистрация: 27.05.2010
Сообщений: 1,099
По умолчанию

Цитата:
if spisok = '&lt;&lt;;&lt;' then
Сравни с

Цитата:
&lt;&lt;&lt;
и найди отличия
mss вне форума Ответить с цитированием
Старый 31.05.2011, 14:44   #3
начинающий1
Пользователь
 
Регистрация: 30.07.2009
Сообщений: 46
По умолчанию

Цитата:
Сообщение от mss Посмотреть сообщение
Сравни с



и найди отличия
код исправил, не работает и так
начинающий1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программное нажатие кнопки в TWebBrowser RIO Работа с сетью в Delphi 3 16.07.2011 22:27
TWebBrowser-заполниние полей и нажатие сабмит doberman.black Работа с сетью в Delphi 0 29.11.2010 15:07
нажатие кнопки beygul Помощь студентам 2 30.01.2010 21:34
На нажатие кнопки access6472043 Microsoft Office Access 2 29.11.2009 15:08
нажатие кнопки xakkkkker Работа с сетью в Delphi 1 20.11.2008 01:08