如何遍历webbrowser控件document文档里面的表格单元格对象？

Question

For Each fo In WB.object.document.All
      If TypeName(fo) = "HTMLTableCell" Then
上面是VB代码，哪位大神能帮我改成delphi代码吗，谢谢了！！！

Answer 1

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;

Answer 2

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