如何得到网页中所有元素或指定控件类型(如IHTMLSelectElement或IHTMLSelectElement)的名称？

[aldz]

我想像中是要通过htmldocment方法遍历网页中的所有控件，但又怕元素太多，会影响速度，能不能分类遍历，如先遍历IHTMLSelectElement中的所有名称，再遍历其它元素类型的名称。

[蒋晟]

search element by id,name or tagname

[zhengcg]

IHTMLDocument2 已经对元素做了分类了，如 Form、Image、Link 等，也可以用 Tag 进行分类的。
不过实际一个网页的元素也不会太多的，如新浪主页、163主页都就三、四千个。如果用树的方式遍历可能就会花点事件，我一个网页所有元素都遍历两遍，并显示在 TreeView 中，因为显示问题，就要两三秒钟了。

[aldz]

什么意思?请给出具体调用方法好吗？

[zhengcg]

首先用 TWebBrowser 浏览一个页面，包括空页（about:blank）也可以。得到 TWebBrowser.Document 的接口，这是个 IHTMLDocument2，具体参考 MSHTML.pas
这个接口就有这些属性的

[aldz]

老兄，您都挺辛苦的，费了这么多口水来帮我，但我还是不清楚，能不能用代码示范一下？

[zhengcg]

你用 WebBrowser 为关键字，可以有很多类似的帖子的。如果对接口没有了解，最好先了解一下。

var
DocIntf: IHTMLDocument2;
begin
WebBrowser1.Navigate('about:blank');
while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
DocIntf := IHTMLDocument2(WebBrowser1.Document);
//用这 DocIntf 就可以访问你要的 Element，如果还是不懂，建议你先看一些其他一些基础的帖子。
// DocIntf.all 指所有的 Elements
// DocIntf.links 指所有的 Link Elements
// DocIntf.all.tags('TABLE') 指所有的 Table Elements
// DocIntf.all.item(0,0) as IHTMLElement 指第一个Element
end;