Как получить текст HTML страницы с компонента Chromium браузер

[Skail]

Привет всем. Подскажите как получить текст HTML страницы с компонента Chromium браузер.
Со стандартного компонента всегда так получал

str := (WebBrowser1.Document as IHTMLDocument2).Body.InnerHTML;

а вот в новом браузере не могу разобраться.

[милт]

Сообщение от Skail

Привет всем. Подскажите как получить текст HTML страницы с компонента Chromium браузер.
Со стандартного компонента всегда так получал

str := (WebBrowser1.Document as IHTMLDocument2).Body.InnerHTML;

а вот в новом браузере не могу разобраться.

да, меня этот вопрос тоже интересует. если найдёшь ответ напиши в эту тему

[Lardes]

procedure ShowSource(const SRC: ustring);
begin
  ShowMessage(SRC);
end;

procedure TMainForm.ChromiumLoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer);
begin
  // это событие срабатывает, когда документ загружен
  if (browser <> nil) and (browser.Identifier = Chromium.BrowserId) and
    ((frame = nil) or (frame.IsMain))
  then
    Chromium.Browser.MainFrame.GetSourceProc(ShowSource);
end;

[Skail]

Lardes, спасибо за ответ. А как теперь в этом браузере программно нажать на кнопку???

[милт]

Сообщение от Skail

Lardes, спасибо за ответ. А как теперь в этом браузере программно нажать на кнопку???

Да да, надо переходить на Chromium, только хрен знает как с ним работать

[Lardes]

Попробуйте, на счет корректности не уверен

var 
  JSCode: string; 
begin 
  JSCode := 'document.getElementById("button").click();'; 
  Chromium.Browser.MainFrame.ExecuteJavaScript (JSCode, 'http://...', 0);

P.S. В исходниках по поводу этого ничего нет?

[Cruzel]

var
js:String;
begin
js:='document.getElementsByClassNam e("text-input")[2].value ="'+edFName.Text+ '"';
Chromium1.Browser.MainFrame.Execute JavaScript(js,'about:blank',0);
end;