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

wuoaimanyun 2015-03-06 09:25:19

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

...全文

227 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

wuoaimanyun 2015-03-07

打赏
举报

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

Frank6600 2015-03-07

打赏
举报

> 谢谢！！这个Element好像你没定义，是啥类型？ Element: IHTMLElement;

wuoaimanyun 2015-03-07

打赏
举报

谢谢lyhoo163!

lyhoo163 2015-03-07

打赏
举报

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

wuoaimanyun 2015-03-07

打赏
举报

谢谢各位的帮助，问题解决了，多谢各位的无私贡献！！

Frank6600 2015-03-07

打赏
举报

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

Frank6600 2015-03-07

打赏
举报

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

wuoaimanyun 2015-03-06

打赏
举报

谢谢sxper!!基本明白了

sxper 2015-03-06

打赏
举报

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;

wuoaimanyun 2015-03-06

打赏
举报

谢谢！！这个Element好像你没定义，是啥类型？

Frank6600 2015-03-06

打赏
举报

可能是这样： 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;