用DELPHI WEBBROWSER从网页上拉数据

2012-06-05 03:02:39 504 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

第十二节：C#工业控制编程基础--输出正弦波实验第十二节：基于c#使用开发板输出正弦波实验文章目录第十二节：基于c#使用开发板输出正弦波实验一、实验目的：了解采集卡DA相关函数的使用。二、实验内容：利用C#生成正弦波，然后用采集卡DA输出。三、实验步骤：1.打开Visual Studio 2013，新建窗体应用程序项目，配置好板卡dll文件。2.在窗体中放入控件，对控件进行布局排版，并修改他们的Name属性和Text属性。3.在Chart控件内选择Spline型图表，如图2。4.进入编程区域，在public partial class Form1 : 阅读详情

请教一下，我想从网页上拉数据，我使用以下语句
ovTable:=webbrowser1.OleObject.Document.all.tags('TABLE').item(0);//取表格集合
可以得到表格的所有数据，但把它放到循环中：
url:='http://data.eastmoney.com/bbsj/201112/yjbb.html';
for k:=1 to 10 do begin
if k=1 then
urltxt:=url
else
urltxt:=copy(url,1,length(trim(edit1.Text))-5)+'/ggrq/'+inttostr(k)+'.html';
webbrowser1.Navigate(WideString(UrlTxt), Flags, Flags, Flags, Flags);
while (not docdowncomp) do
Application.ProcessMessages ;
try
ovTable:=webbrowser1.OleObject.Document.all.tags('TABLE').item(0);
except
on e:exception do
showmessage(e.Message);
end;
for i := 1 to (ovTable.Rows.Length - 1) do //循環行
begin
for j := 1 to (ovTable.Rows.Item(i).Cells.Length ) do begin// 循環列
application.ProcessMessages;
memo1.lines.add(ovTable.Rows.Item(i).Cells.Item(j-1).InnerText);
end;
end;
end;
得到的数据全部是第一页的表格数据，第二页又是首页的数据，网页都能成功打开，不知道为什么？

...全文