delphi - 遍历 IHTMLElementCollection

Question

有没有办法迭代 IHTMLElementCollection？

如

var
  e : IHTMLLinkElement;
elementCollection:IHTMLElementCollection;
begin
    for e in elementCollection do
      showmessage(e.caption);
end;

我知道有一个名为 _newEnum 的属性，但是据我所知，delphi 不支持它。

更新：显然链接是 IHTMLElement 而不是 IHTMLLinkElement

Answer 1

for I := 0 to Pred(elementCollection.length) do
begin
  e := elementCollection.item(I, EmptyParam) as IHTMLElement;
  //...
end;

Answer 2

使用 _newEnum 的代码如下所示。如果您确定集合中只有链接元素项，则可以as IHTMLElement将内部循环的部分（和 elem 值类型）更改为as IHTMLAnchorElement（IHTMLLinkElement 似乎完全不同）

uses MSHTML, ActiveX;

var
  collection:IHTMLElementCollection;
  enum:IEnumVariant;
  v:OleVariant;
  u:IUnknown;
  element:IHTMLElement;
begin
  //...
  enum:=collection._newEnum as IEnumVariant;
  while enum.Next(1,v,u)=S_OK do
   begin
    elem:=u as IHTMLElement;
    //...
   end;