可能是这样:
var
    Doc: IHTMLDocument2;
being
    Doc := Document2 as IHTMLDocument2;
    for i := 0 to doc.all.length - 1 do
    begin
      Element:=doc.all.item(EmptyParam, i)  as IHTMLElement;
      if WideSameText(Element.tagName, 'TD') then
      begin
      end;
    end;
end;

解决方案 »

  1.   

    谢谢!!这个Element好像你没定义,是啥类型?
      

  2.   

    use MSHTML Vcl.OleCtrls, SHDocVw,
    procedure TForm1.btn2Click(Sender: TObject);
    var
        i:Integer;
        myole:oleVariant;
    begin
        myole := wb1.Document;
        for i := 0 to myole.all.length - 1 do
        begin
            //if (myole.all.item(i).tagName = 'INPUT')  then
             if (myole.all.item(i).tagName = 'INPUT') and (i=28) then
            begin
               ShowMessage( myole.all.item(i).value);
               //ShowMessage(IntToStr(i));
               // ShowMessage( myole.all.item(i).name);
                //mmo1.Lines.Add(myole.all.item(i).name);            //mmo1.Lines.Add(myole.all.item(i).value);
            end;
        end;end;
      

  3.   

    建议使用EmbeddedWB,功能比webbrowser强大,好用。获取网页文本只需一句代码:
    EWB.DocumentSourceText获取网页源码:
    EWB.DocumentSource 
      

  4.   

    > 谢谢!!这个Element好像你没定义,是啥类型?Element: IHTMLElement;
      

  5.   

    请问表格单元格的tagname是什么?
      

  6.   

    > 请问表格单元格的tagname是什么?
    table
      

  7.   

    > 请问表格单元格的tagname是什么?td