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

Question

现在有一个网页，里面有一个表格。
类似：
<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>如何读取所有的记录啊（一行一行地读）。

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

应该可以。很久以前我也弄过对网页中的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';