Delphi 如何获取由多个IHTMlements组成的IHTMlementCollection obj？

伙计们：我在object pascal编程中遇到了一个关于“如何获取由几个IHTMlements组成的IHTMlementCollection obj”的问题，我的代码如下：

function TExDomUtils.GetElementsByClassName(vDoc:IHTMLDocument3; strClassName:string):IHTMLElementCollection;
var
  vElementsAll : IHTMLElementCollection;
  vElementsRet : IHTMLElementCollection;
  vElement : IHTMLElement;
  docTmp : IHTMLDocument2;
  I ,J: Integer;
begin
  J := 0;
  vElementsAll := vDoc.getElementsByTagName('*');
  for I:=0 to vElementsAll.length - 1 do
  begin
    vElement := vElementsAll.item(I,0) as IHTMLElement;
    if vElement.getAttribute('class',0) = strClassName then
    begin
      // how to get an IHTMLElementCollection obj which composed of several IHTMLElements?
      J := J + 1;
    end;

  end;

  Result := vElementsRet;
end;

---

您只需创建自己的容器类，例如

TList

或

IHTMlements数组

：

type
  THTMLElements = array of IHTMLElement;

function GetElementsByClassName(ADoc: IDispatch; const strClassName: string): THTMLElements;
var
  vDocument: IHTMLDocument2;
  vElementsAll: IHTMLElementCollection;
  vElement: IHTMLElement;
  I, ElementCount: Integer;
begin
  Result := nil;
  ElementCount := 0;
  if not Supports(ADoc, IHTMLDocument2, vDocument) then
    raise Exception.Create('Invalid HTML document');
  vElementsAll := vDocument.all;
  SetLength(Result, vElementsAll.length); // set length to max elements
  for I := 0 to vElementsAll.length - 1 do
    if Supports(vElementsAll.item(I, EmptyParam), IHTMLElement, vElement) then
      if SameText(vElement.className, strClassName) then
      begin
        Result[ElementCount] := vElement;
        Inc(ElementCount);
      end;
  SetLength(Result, ElementCount); // adjust Result length
end;

用法：

---

将结果返回为

IHTMLElementCollection

的主要问题是

IHTMLElementCollection

是由

IHTMLDocument

内部创建的，我找不到任何方法来创建

IHTMLElementCollection

的新实例并向其添加元素引用，例如：

vElementsRet := CoHTMLElementCollection.Create as IHTMLElementCollection

---

将导致

类未注册

异常。

是否必须是

IHTMLElementCollection

？为什么不返回

IHTMLElement

s的TList或数组？@kobik，很好。我认为您必须使用不同于

IHTMLElementCollection

的集合，因为您可以在文档中找到多个与类名匹配的元素，因此您必须手动将子元素添加到返回的集合中，这是不可能的…@TLama，主要问题是您无法创建

ihtmleementcollection

的新实例，例如

vElementsRet:=cohtmleementcollection。创建为ihtmleementcollection

（类未注册），然后向其添加元素…@kobik，假设在第一次找到匹配类时，您将从

all

集合中获得

IHTMLElementCollection

的新实例（并存储其对变量的引用，例如

结果

）。更糟糕的是向该集合添加元素。除了使用另一种集合外，可能有助于构建您自己的

ihtmlement

结构，并在完成

all

后将其导出。啊哈，可能我只是有一个ROM大脑。现在，我想像你说的那样将元素添加到列表或数组中会很好，谢谢！我可能会将

vDocument.getElementsByTagName（'*'）

简单地替换为

vDocument.all

强制转换到

IHTMlementCollection

。[+1]明白了！它可以很好地返回我的IHTMlement数组！谢谢大家!！

vElementsRet := CoHTMLElementCollection.Create as IHTMLElementCollection