Получить данные из TWebBrowser

[Pcrepair]

Добрый день. Есть следующая ситуация:
- форма на форме ТВебБраузер
- в Твебраузер загружается страница поисковика (Яндекс например)
- в поисковике вводится поисковый запрос и нажимается кнопка "Найти" (это все веб-страница, элементы ХТМЛ-кода типа ФОРМ, ввводится и нажимается все вручную)
- поисковик выдает ответ, все как обычно

Необходимо: при нажатии кнопки "Найти" на веб-странице данные из окна ввода на веб-странице перенести в строковую переменную (чтоб не потерялись)
конечно можно сделать все наоборот: в ЕДИТ на форме программы ввести текст запроса, нажать на кнопку на форме программы и передать данные в Твебраузер, но исходя из эргономики это нецелесообразно, снижает удобство работы с программой

Вопрос:
- подскажите в какую сторону искать, информация в инете в основном как передать данные или управление в браузер а не наоборот

[eval]

а зачем вам "строковая переменная"?

[Pcrepair]

(чтоб не потерялись)

[eval]

они и в браузере не теряются

[Pcrepair]

а мне нужно и далее чтоб не терялись, когда браузер закроется

[alextrof94]

А не проще работать через TIdHttp?
Например кидаешь на форму TEdit, чтоб туда вводился поисковый запрос.
По кнопке "искать", через TIdHttp делаешь запрос поисковику.
Вырываешь из результатов строки которые нужны простым парсингом.
Так и программа быстрее работать будет, да визуализация ни к чему, как я понял.

[Alex11223]

Не совсем понял что автору надо, откуда данные доставать? Наверно надо просто погуглить что-то типа "webbrowser delphi get html", чтобы достать HTML страницы и оттуда уже доставать что надо?

Вообще я бы избегал WebBrowser'а. Либо idhttp/synapse если запросы не сложные, либо какая-нибудь обертка над Хромиумом. Вроде TChromium есть для дельфи. Еще Человек_Борща PhantomJS рекламировал тут http://www.programmersforum.ru/showthread.php?p=1283165.

[GoodDA]

Надо обрабатывать событие веббраузера BeforeNavigate, и в этот момент получать значение элемента формы

Вот пример заполнения элемента формы на страничке, получение значения можно сделать по аналогии

function TForm1.BrowserPost(WebBrowser: tWebBrowser; ovv, ovv_name, ovv_value: string): boolean;
var
  iDoc: IHtmlDocument2; i: integer; ov: OleVariant; iDisp: IDispatch;
  iColl: IHTMLElementCollection;
  iInputElement: IHTMLInputElement;
  iInputTextElement: HTMLInputTextElement;
  iSelectElement: IHTMLSelectElement;
  iradio: IHTMLOptionButtonElement;
  Document: IHTMLDocument2;
  rbTestList: IHTMLElementCollection;
  rbTest: IHTMLOptionButtonElement;
  nn:integer;
  ins:Boolean;
begin
  BrowserPost := false;
  WebBrowser.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
  if not assigned(iDoc) then begin ShowMessage(' !!!??? Nothing dowloaded ... '); Exit; end;

      if uppercase(ovv) = 'INPUT' then
      begin
        ov := 'INPUT';
        IDisp := iDoc.all.tags(ov);
        if assigned(IDisp) then
        begin
          IDisp.QueryInterface(IHTMLElementCollection, iColl);
          if assigned(iColl) then
            for i := 1 to iColl.Get_length do
            begin
              iDisp := iColl.item(pred(i), 0);
              iDisp.QueryInterface(IHTMLInputElement, iInputElement);
              if assigned(iInputElement) then
                if uppercase(iInputElement.Get_name) = uppercase(ovv_name) { 'phone_number'} then
                begin
                  iInputElement.Set_value(ovv_value); //Get_value
                  BrowserPost := true;
                end;
            end;
        end;
      end else
        if uppercase(ovv) = 'TEXTAREA' then
        begin
          ov := 'TEXTAREA';
          IDisp := iDoc.all.tags(ov);
          if assigned(IDisp) then
          begin
            IDisp.QueryInterface(IHTMLElementCollection, iColl);
            if assigned(iColl) then
              for i := 1 to iColl.Get_length do
              begin
                iDisp := iColl.item(pred(i), 0);
                iDisp.QueryInterface(HTMLInputTextElement, iInputTextElement);
                if assigned(iInputTextElement) then
                  if uppercase(iInputTextElement.name) = uppercase(ovv_name) {'msg'} then
                  begin
                    iInputTextElement.value := ovv_value;
                    BrowserPost := true;
                  end;
              end;
          end;
        end;
end;

//*******пример использования
BrowserPost(wb1, 'INPUT','Name_element', 'value')

[Pcrepair]

всем спасибо, видимо надо копать BeforeNavigate2
все что мне нужно(пока) это получить строковое значение из INPUT страницы при нажатии на кнопку "НАЙТИ" (это страница яндекса например) и сохранить его

почеМу из INPUT? потому что ПМ предлагает выбор при вводе первого слова поискового запроса, в ручную копировать слишком неудобно, нужно эту операцию автоматизировать


попробовал использовать BeforeNavigate2 и сразу полезли исключения на код ( ИДЕ = ХЕ3)

E2171 Variable 'I' inaccessible here due to optimization
E2171 Variable 'Src' inaccessible here due to optimization
E2171 Variable 'Temp' inaccessible here due to optimization (недоступные здесь за счет оптимизации) - это в модуле ComObj procedure GetIDsOfNames

procedure TMain.Wbbr_SMBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
  const URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
  var Cancel: WordBool);
var
I,J:integer;
begin   (*действия перед перезагрузкой страницы*)
  if Wbbr_SM.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
end;

что бы это могло быть?