如何获得这样的网页图片地址？

webbrowser打开网页，我想获得指定div内的图片地址
procedure TForm1.Button2Click(Sender: TObject);
var
i,j : integer;
Document: Variant;
ovElements: OleVariant;
str : string;
begin
memo1.Clear;
  Try
    Document := WEB.OleObject.Document.getElementsByTagName('div');
    for i:= 0 to Document.length-1 do
    begin
       if Document.item(i).id = 'test' then
       begin
         ovElements := Document.Item(i).Document;
         for j := 0 to ovElements.images.Length -1 do
           begin
             memo1.Lines.Add(ovElements.images.item(j).href);
           end;
       end;
    end;
  except
  end;
end;
请前辈们帮忙看看，能否修改实现。

解决方案 »

  1.   


    <html>
    <body>
    <table border="0" cellpadding="0" cellspacing="0" width="50%" >
    <tr>
    <td width="100%">
      <div align="center" id="test"><img src=images/test.jpg border=0 width=150 height=150>  
        <a href ='1.html'><img src=images/test1.jpg border=0  width=150  height=150></a>  
        <a href ='2.html'><img src=images/test2.jpg border=0  width=150  height=150></a> 
        <a href ='3.html'><img src=images/test3.jpg border=0  width=150  height=150></a>
          </center>
      </div></td>
     </tr>
    </table><table border="0" cellpadding="0" cellspacing="0" width="50%" >
    <tr>
    <td width="100%">
      <div align="center" id="xxxx"><img src=images/XXX.jpg border=0 width=150 height=150>
        <a href ='4.html'><img src=images/XXX1.jpg border=0  width=150  height=150></a>  
        <a href ='5.html'><img src=images/XXX2.jpg border=0  width=150  height=150></a>  
        <a href ='6.html'><img src=images/XXX3.jpg border=0  width=150  height=150></a>
          </center>
      </div></td>
     </tr>
    </table></body>
    </html>
    我只想获得 div align="center" id="test">内的4个图片的src，但不想使用获得网页代码，正则匹配的方法。
      

  2.   


    var
    i,j : integer;
    Document: Variant;
    ovElements: OleVariant;
    str : string;
    begin
    memo1.Clear;
      Try
        Document := WEB.OleObject.Document.getElementsByTagName('div');
        for i:= 0 to Document.length-1 do
        begin
           if Document.item(i).id = 'test' then
           begin
             ovElements := Document.Item(i).getElementsByTagName('img');
             for j := 0 to ovElements.Length -1 do
               begin
                 memo1.Lines.Add(ovElements.item(j).href);
               end;
           end;
        end;
      except
      end;
    end;