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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2010, 16:26   #1
zlodey
 
Регистрация: 07.08.2009
Сообщений: 3
По умолчанию WebBrowser нажать на кнопку

Сколько всяких способов нажатия на кнопок искал, ничего не подходит.
исходный код в браузере показывает это:
Код:
<div class="button" onclick="$('#searchForm p.error').html('Поиск...'); $('#searchForm').trigger('submit');">
<span class="f"><i class="rl"></i><i class="bl"></i><i class="brc"></i>
<div class="c">кнопка - <span class="4islo">число<i></i></span>
подскажите как можно на нее нажать, а еще есть открывающийся список, в коде браузера выглядит так:
Код:
<form class="search" action="/search/type/" method="post" id="searchForm">
<div class="opponent"><select name="type"><option value="equal">1</option><option value="strong">2</option><option value="weak">3</option></option></select></div>
может реально как-нить программно выбрать из списка?
zlodey вне форума Ответить с цитированием
Старый 23.08.2010, 00:55   #2
ZBEP
Форумчанин
 
Аватар для ZBEP
 
Регистрация: 23.03.2009
Сообщений: 334
По умолчанию

zlodey, если узнаешь как это сделать, отпишись тут, тоже интересно.
ZBEP вне форума Ответить с цитированием
Старый 23.08.2010, 20:37   #3
zlodey
 
Регистрация: 07.08.2009
Сообщений: 3
По умолчанию

Цитата:
Сообщение от ZBEP Посмотреть сообщение
zlodey, если узнаешь как это сделать, отпишись тут, тоже интересно.
Нажатие на кнопку:

Код:
procedure PSpisokClick;
  var HtmlDocument   : IHtmlDocument2;
      i : integer;
      HtmlCollection : IHtmlElementCollection;
      HtmlElement    : IHtmlElement;
      spisok : string;
begin
    HtmlDocument := BrowserMain.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;
выбор из открывающегося списка:

Код:
procedure SetFieldValue(theForm: IHTMLFormElement;
  const fieldName, newValue: string; const instance: integer);
var
  field: IHTMLElement;
  inputField: IHTMLInputElement;
  selectField: IHTMLSelectElement;
  textField: IHTMLTextAreaElement;
begin
  field := theForm.Item(fieldName,instance) as IHTMLElement;
  if Assigned(field) then
  begin
    if field.tagName = 'INPUT' then
    begin
      inputField := field as IHTMLInputElement;
      if (inputField.type_ <> 'radio') and
         (inputField.type_ <> 'checkbox')
      then
        inputField.value := newValue
      else
        inputField.checked := (newValue = 'checked');
    end
    else if field.tagName = 'SELECT' then
    begin
      selectField := field as IHTMLSelectElement;
      selectField.value := newValue;
    end
    else if field.tagName = 'TEXTAREA' then
    begin
      textField := field as IHTMLTextAreaElement;
      textField.value := newValue;
    end;
  end;
end;
вызов процедуры:

Код:
theForm := GetFormByNumber(BrowserMain.Document as IHTMLDocument2,0);
SetFieldValue(theForm,'type',переменная);

Последний раз редактировалось Stilet; 06.09.2010 в 15:11.
zlodey вне форума Ответить с цитированием
Старый 06.09.2010, 14:48   #4
ZBEP
Форумчанин
 
Аватар для ZBEP
 
Регистрация: 23.03.2009
Сообщений: 334
По умолчанию

zlodey, спасибо!
ZBEP вне форума Ответить с цитированием
Старый 04.07.2017, 18:15   #5
Mr.Robot
Новичок
Джуниор
 
Регистрация: 28.06.2017
Сообщений: 2
По умолчанию

Да братуха, от души благодарность))
Mr.Robot вне форума Ответить с цитированием
Ответ


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

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нажать на кнопку в webbrowser zver777 Работа с сетью в Delphi 4 14.10.2011 14:42
программно нажать кнопку Dotha Общие вопросы Delphi 1 25.02.2010 17:56
нажать кнопку Screame Microsoft Office Excel 1 30.08.2009 22:20
Нажать кнопку Dron_kss Работа с сетью в Delphi 1 28.03.2009 17:33
Нажать кнопку Teen4jump Работа с сетью в Delphi 11 29.02.2008 08:33