TWebBrowser分析表格的问题，高分求教？

现在有一个网页，里面有一个表格。  
  类似：  
  <TABLE   class=tableborder1   cellSpacing=1   cellPadding=4   align=center   border=0>  
  <TBODY>  
      <TR>  
          <TD   class=tablebody1   align=left   colSpan=12   height=25><B>-=&gt;    
          情况如下</B></TD></TR>  
  <TR>  
          <TH   height=25>代码</TH>  
          <TH>名称</TH></TR>  
  <TR   align=right>  
    <TD   class=tablebody1>6576</TD>  
    <TD   class=tablebody1>TEST1</TD>  
  </TR>  
  <TR   align=right>  
    <TD   class=tablebody1>6577</TD>  
    <TD   class=tablebody1>TEST2</TD>  
  </TR>  
  </TBODY></TABLE>  
   
  如何读取所有的记录啊（一行一行地读）。 问题点数：100、回复次数：8Top

1 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-18 15:13:29 得分 5

用TStringList的LoadFromFile过程将源文件读进来  
  然后就可以一行一行的访问了。Top

2 楼FigoZhu（谢慕安）回复于 2006-03-19 22:51:10 得分 0

用TWebBrowser不能直接得到吗？  
  一定要自己另外分析的吗？Top

3 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-03-20 08:02:13 得分 30

http://www.microsoft.com/china/msdn/library/archives/workshop/scrape.aspTop

4 楼FigoZhu（谢慕安）回复于 2006-03-20 09:55:32 得分 0

To   jiangsheng(蒋晟.Net[MVP])   ，  
  谢谢，VB下用的这个控件和Delphi下的TWebBrowser是一样的吗？  
  所提到的属性、方法都有吗？Top

5 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-03-20 11:15:57 得分 5

这个是IE附带的ActiveX，其属性、方法都和语言无关Top

6 楼FigoZhu（谢慕安）回复于 2006-03-20 18:00:58 得分 0

那Delphi下怎么用这个ActiveX？  
  能给个例子吗？Top

7 楼jiangsheng（蒋晟.Net[MVP]）回复于 2006-03-20 22:35:24 得分 20

http://www.euromind.com/iedelphi/embeddedwb.htmTop

8 楼slzzg（懒虫）回复于 2006-03-21 00:47:04 得分 40

应该可以。很久以前我也弄过对网页中的Edit控件赋值。不需要ActiveX。  
  给你做个参考。  
  var  
      Docs,   ovElements:   OleVariant;  
  begin  
      while   WebBrowser1.ReadyState   <   READYSTATE_COMPLETE   do  
          Application.ProcessMessages;  
      Docs   :=   WebBrowser1.OleObject.Document;  
      //获取Edit控件的Name  
      ovElements   :=   Docs.GetElementByID('Edit1');  
      //对Edit1赋值  
      ovElements.Value   :=   '123';  
      ovElements   :=   Docs.GetElementByID('Edit2');  
      ovElements.Value   :=   '321';  
  Top

相关问题

• twebbrowser
• 一行

• 帖主：FigoZhu
• cuteant
• jiangsheng
• jiangsheng
• jiangsheng
• slzzg

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载