Twebbrowser如何获得网页中的文字、按钮、输入框等？

Question

太初级的问题。
请指点

Answer 1

导入Microsoft HTML Object Library时，编译不通过，Undeclared identifier: 'Get_fontFamily'，等等很多

Answer 2

我以前做的取 5460 网页上的联接代码:你可参考下!!!有问题留言!!!procedure TfrmAutoLink.GetUrl;
var
  Document: IHtmlDocument2;
  Link: IHTMLElement;  StrLinks: string;
  i: integer;
begin
  Document := WebBrowser1.Document as IHTMlDocument2;
  if myLst.Count > 0 then myLst.Clear;
  for i := 0 to Document.Links.Length - 1 do
  begin
    Link := Document.Links.Item(i, 0) as IHTMLElement;
    StrLinks := Link.toString;
    if Pos('http://www.5460.net/txl/liuyan/liuyanSql.pl', StrLinks) > 0
      then
    begin
      urlLiao := StrLinks;
      myLst.Add(urlLiao);
      edit1.Text := urlLiao;
      isFind := True;
      // Application.ProcessMessages;
      // WebBrowser1.Navigate(edit1.Text);
      // Memo1.Lines.Add('success at ' + DateTimeToStr(now));
       //Exit;
    end;
  end;
  try
  for I := 0 to myLst.Count - 1 do
  begin
    WebBrowser1.Navigate(myLst.Strings[I]);
    AddMsg('link to ' + myLst.Strings[I]);
    Delay(5000);
  end;
  except
    On e:Exception do AddMsg(E.Message);
  end;
end;

Answer 3

Microsoft HTML Object Library装不上啊，是不是还需要设一下什么东西?

Answer 4

不是,在delphi的 lib目录下有个mshtml.dcu了
在interface中加入mshtml就可以了

Answer 5

会有oleError,method'form1'not supported by antomation object.  ???另外
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppdisp:=webbrowser2.DefaultDispatch;
end;
不是很管用

Answer 6

楼主多些细心和耐心吧.
aiirii(ari) 的方法是对的.