Delphi HTML解析

Question

是的，我知道这个问题与我的其他问题非常相似。

在我的另一个问题中，我询问了 htmlp。
在我使用之前，我尝试使用 delphi 自己的单元。

我的代码是这样的：

procedure DesectTable(L:TStrings);
var
  doc:OleVariant;
  el:OleVariant;
  i:integer;
begin
  doc := coHTMLDocument.Create as IHTMLDocument2;
  doc.write(L.Text);
  doc.close;
  for i:=0to doc.body.all.length-1 do // Breaks here
  begin
    el:=doc.body.all.item(i);
    if el.tagname='TR' then
    begin
      if (el.classname='even') or (el.classname='odd') then
        writeln(el.innerhtml);
    end;
  end;
end;

这是我在另一个项目中使用的代码。
但是在这个函数中我得到一个错误： Project F1Times.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'

有谁知道是什么原因造成的？
为什么会在这里发生，而在我的其他项目中却没有？
是的，除了 for 循环内部发生的部分之外，这两个函数都是相同的。

我想知道，这太令人困惑了xD

编辑

如果有人想对此进行测试。可以找到我试图获取的 html here 我保存了它以便于测试，并简单地使用了 stringlist.loadfromfile。

Answer 1

恐怕这是因为您的代码是错误的，所以它似乎不太可能在您的“其他项目”中按原样工作。见下文。

procedure DesectTable(L:TStrings);
var
  doc:OleVariant;
  el:OleVariant;
  i:integer;
begin
  doc := coHTMLDocument.Create as IHTMLDocument2;
  doc.write(L.Text);
  doc.close;
 // for i:=0to doc.body.items.all.length-1 do // Breaks here
  for i:=0 to doc.body.all.length-1 do 
  begin
    el:=doc.body.all.item(i);
    if el.tagname='TR' then
    begin
      if (el.classname='even') or (el.classname='odd') then
        writeln(el.innerhtml);
    end;
  end;
end;