delphi 关于dom元素获取。 （使用mshtml IHTMLDocument）进入看详情！

[geekjack]

由于需求要求，要抓取某个特殊html页面的某些信息。
我认为引入webbrowser的document来管理dom将是很不错的选择，因此我这边选用IHTMLDocument2来解决这个问题。（webbrowser不显示，利用它的document来工作）

但是这个过程中遇到这样一个问题：

  <div class='aha_class' id='aha_id'>
      <ul>
         <li><a href='./aa.php'>a_text</li>
         <li><a href='./bb.php'>b_text</li>
         <li><a href='./cc.php'>c_text</li>
      </ul>
  </div>

假设这个html文件中有上面这段代码，我可以调用IHTMLDocument3的GetElementById('aha_id');来获取到这个div元素。
IHTMLElement divElement := Doc.GetElementById('aha_id');

但是接下来要如何去遍历<ul><li>...</li>...</ul>呢？ 从而提取出信息

a_text
b_text
c_text

-----------------------------------------------------------------
另外，在编程中看到一个QueryInterface的东东，网上说是COM的一个接口查询，不是很懂，在Delphi中一般都是怎么用这个方法的呢？


求指教！哈哈

[geekjack]

引用 1 楼 t1122 的回复:

Delphi/Pascal code?123var i, j,m,n: integer; ovTable,ovTableul: OleVariant; Delphi/Pascal code?1234567891011121314[delphi] view plaincopyprint?//这一部分是取得“无序列表”的部分 ovTable:=Webbro……

嗯 这个有想过 但是如果无序列表不只一份呢？ 比如说

  <div class='aha_class' id='aha_id_A'>
      <ul>
         <li><a href='./aa.php'>a_text</li>
         <li><a href='./bb.php'>b_text</li>
         <li><a href='./cc.php'>c_text</li>
      </ul>
  </div>


  <div class='aha_class' id='aha_id_B'>
      <ul>
         <li><a href='./aa.php'>a_text</li>
         <li><a href='./bb.php'>b_text</li>
         <li><a href='./cc.php'>c_text</li>
      </ul>
  </div>

这样如何取得id=aha_id_B下面的列表呢？

[t1122]

递归或者循环查呗，剩下就是最基本的语句的问题了……

[t1122]

var  
  i, j,m,n: integer;  
  ovTable,ovTableul: OleVariant;  

[delphi] view plaincopyprint?
//这一部分是取得“无序列表”的部分  
ovTable:=Webbrowser1.OleObject.Document.getElementsByTagName('ul').item(0);  
ovTableul:=ovTable.getElementsByTagName('li');  
  
n:=ovTableul.Length;  
  
if n>0 then  
begin  
  for i:=0 to n-1 do  
  begin  
    self.Memo1.Lines.Add(ovTableul.item(i).InnerText);  
  end;  
end;  

[geekjack]

引用 3 楼 t1122 的回复:

递归或者循环查呗，剩下就是最基本的语句的问题了……

恩 对这个不是很熟悉 已经解决了 3q！