Delphi html解析检查元素是否具有属性

Question

我有以下程序:

class procedure ParseData(AData: string; var ATextList: TList<string>);
var
  HTMLDoc: OleVariant;
  HTMLElement: OleVariant;
  I: Integer;
begin
  HTMLDoc := coHTMLDocument.Create as IHTMLDocument2;
  HTMLDoc.Write(AData);
  HTMLDoc.Close;

  for I := 0 to HTMLDoc.body.all.length - 1 do
  begin
    HTMLElement := HTMLDoc.body.all.item(I);

    if HTMLElement.hasAttribute('attr1') then
      ATextList.Add(HTMLElement.innerHTML);
  end;
end;

问题是 hasAttribute 不起作用。 setattribute、innerHTML、tagName 等功能和过程运行良好。是否有另一种方法来检查元素是否包含给定属性？

Answer 1

您可以测试:

if not VarIsNull(HTMLElement.getAttribute('attr1')) then
  ATextList.Add(HTMLElement.innerHTML);

---

编辑:

hasAttribute 在 IHTMLElement5 中实现接口(interface) - 它需要 IE8 及更高版本，并且在 IE7 标准模式或 IE5(Quirks)模式下不受支持。

我导入了C:\Windows\System32\mshtml.tlb(使用tlibimp工具)，并且此代码有效:

if (IDispatch(HTMLElement) as IHTMLElement5).hasAttribute('attr1') then...