用DELPHI WEBBROWSER从网页上拉数据
请教一下,我想从网页上拉数据,我使用以下语句
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;
得到的数据全部是第一页的表格数据,第二页又是首页的数据,网页都能成功打开,不知道为什么?
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;
得到的数据全部是第一页的表格数据,第二页又是首页的数据,网页都能成功打开,不知道为什么?
...全文
相关推荐
delphi webbrowser与delphi互动
delphi webbrowser与delphi互动
Delphi WebBrowser组件实现简易桌面浏览器
本文还有配套的精品资源,点击获取 简介:在Delphi环境下,利用WebBrowser组件基于Internet Explorer引擎开发具有网页浏览和交互能力的桌面应用程序。本教程详细介绍了从创建VCL Forms项目到实现浏览器核心功能(如URL导航、加载进度展示、错误处理、前进后退按钮)以及增强用户体验功能(例如打印、保存等)。通过这些步骤,你可以构建起一个功能完善的桌...
delphi操作webbrowser的几个技巧
delphi操作webbrowser的几个技巧
delphi 从TWebBrowser WebBrowser得到全部html源码
delphi 从TWebBrowser WebBrowser得到全部html源码 收藏 网上查询出很多方法,归结起来有两种
webBrowser 网页放大缩小
webBrowser 网页放大缩小 开发浏览器


网络通信/分布式开发
