自编一浏览器，使用如下语句“var Document : IHtmlDocument2;”但不能通过编译，是何原因？

Question

对，另外看一下详细的代码。
对于自动填写东西，也是利用MSHTML分析页面，获得其中的Input、Option等表单元素，然后设定它们的值，前面我回答过，找一下吧。

Answer 1

TechnoFantasy: 这个论坛只能搜索主题，很难找到你的回答。请提示一下或重贴一下，谢谢！

Answer 2

代码：
procedure TForm1.Button1Click(Sender: TObject);
var
  doc:IHTMLDocument2;
  all:IHTMLElementCollection;
  len,i,flag:integer;
  item:IHTMLElement;
  vAttri:Variant;
begin
  if Assigned(IEThis)then begin
    ComboBox1.Clear;
    //获得Webbrowser对象中的文档对象
    doc:=IEThis.Document as IHTMLDocument2;
    //获得文档中所有的HTML元素集合
    all:=doc.Get_all;    len:=all.Get_length;    //访问HTML元素集合中的每一个元素
    for i:=0 to len-1 do begin
      item:=all.item(i,varempty) as IHTMLElement;
      //如果该元素是一个链接
      if item.Get_tagName = 'A'then begin
        flag:=0;
        vAttri:=item.getAttribute('protocol',flag);     //获得链接属性
        //如果是mailto链接则将链接的目标地址添加到ComboBox1
        if vAttri = 'mailto:'then begin
          vAttri:=item.getAttribute('href',flag);
          ComboBox1.Items.Add(vAttri);
        end;
      end;
    end;
  end;
end;上面的程序是通过遍历IHtmlDocument2中的元素来实现获得页面中的所有电子邮件连接。
原来的回答我也找不到了。论坛的管理太混乱了。