我参与的一个帖子http://www.delphibbs.com/delphibbs/dispq.asp?lid=3172221
可能对你有用
下面是我写的读取网格的代码
var
ovTable, ovTableCol, ovTR, ovTRCol, ovTD, ovTDCol: OleVariant;
nTableCount, nTRCount, nTDCount: integer;
st: string;
i, j, k: integer;
ovTableCol := WebBrowser1.OleObject.Document.all.tags('TABLE');// 所有表格
nTableCount := ovTableCol.length;
for i := 7 to nTableCount - 1 do begin
ovTable := ovTableCol.item(i);
ovTRCol := ovTable.all.tags('TR');// 表格内的所有tr
nTRCount := ovTRCol.length;
for j := 0 to nTRCount - 1 do begin
ovTR := ovTRCol.item(j);
ovTDCol := ovTR.all.tags('TD');// tr内的所有td
nTDCount := ovTDCol.length;
for k := 0 to nTDCount - 1 do begin
ovTD := ovTDCol.item(k);
st := ovTD.InnerText;// td里面的文字
end;
end;
end;