WebBrowser和OLECMDID_SELECTALL

时间:2012-09-20 11:55:21

标签: delphi cursor twebbrowser selectall

当我使用以下网址打开Goog​​le网页时

WebBrowser1.Navigate('http://www.google.com.au/advanced_search?hl=en');

打开时光标位于编辑框中 所以当我使用时:

WebBrowser1.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);

它只复制光标所在的位置。不是整个网页,这是我想要复制的内容。 我的代码是:

procedure Pause()
begin
//code to pause until page loads.
end;

procedure TForm2.Button22Click(Sender: TObject);
var s:String;
    vaIn, vaOut: OleVariant;
begin
    s:='http://www.google.com.au/advanced_search?hl=en';
    WebBrowser1.Navigate(s);
    while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
      begin
          Pause(1000);
      end;
//------->I need to put code here so the SELECTALL line of code works.<----------
//------->So the cursor isn't in to editbox but as if it has clicked  <---------- 
//------->the webpage                                                 <----------
    WebBrowser1.ExecWB(OLECMDID_SELECTALL,OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
end;

如何选择整个网页?

2 个答案:

答案 0 :(得分:4)

在选择全部之前尝试聚焦身体:

((WebBrowser1.Document as IHTMLDocument2).body as IHTMLElement2).focus();
WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);

据说更好的方法是使用document.body.innerText来抓取文本,而不是像你那样模拟选择/复制。

答案 1 :(得分:1)

http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvc/thread/eef2f809-cadf-44a3-956e-e75925a4b85e  建议在复制之前选择所有的明确方法。这种方式直接只在页面没有框架时才有效(Google Advanced有IFRAME和IHTMLBodyElement.CreateTextRange失败)

但是后期绑定代码就像在XE2 / Win7x64 / IE9中一样:

procedure TForm2.btn2Click(Sender: TObject);
var HTML_Doc, oRange: OleVariant;
begin
  HTML_Doc := WebBrowser1.Document;
  oRange := HTML_Doc.body.createTextRange;
  oRange.select();

  WB_Copy(webbrowser1);
end;

WBCopy取自WBFunks单元http://codingrus.ru/readarticle.php?article_id=721,并归结为使用OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT参数的ExecWB调用。