本文介绍Delphi是任何实现网页表单数据的自动提交功能的,给初代码参考。
MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,通过其提供的标准接口,可以访问指定网页的所有元素.
MSHTML对象模型是由一些对象和集合组成的.处于根部的是HTML,描述了打开页面的1个窗口,包括一系列集合和对象。如Frames集合,History,Location,Navigator,Document,Vi—sum,Event对象等.其中描述呈现在客户窗口实际网页的是Document对象。由一系列的属性、方法、对象和集合组成.其中All集合中包含网页中所有标记(Tag)元素,其主要的方法和属性有:
(1)Length(长度):即标记出现的个数,可以把标记的集合理解为从0开始的一维数组,其次序按照标记在网页位置排列;
(2)Tags(标记):用于过滤出给定标记的集合,如Doc.Al1.Tags(P)得到所有分段标记P;
(3)Item(项目):用于选择集合中的某1个元素,如object.item(0)得到集合的第1个元素,而object.item(i)得到第i+1个元素.
此外,IHTMLElement也是个常用的集合对象,代表网页中指定标记的集合,通过这个集合对象,可以得到网页上特定标记的内容.IHTMLElement有4个主要属性:
(1)InnerText:开始标记和结束标记之间的文本;
(2)InnerHTML:开始标记和结束标记之间的文本和HTML;
(3)OuterText:对象的文本;
(4)OuterHTML:对象的文本和HTML.
procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
input:OleVariant;
userinputelement,pwdinputelement:ihtmlinputelement;
begin
doc:=webbrowser1.document as ihtmldocument2;
userinputelement:=(doc.all.item('user'(也就是网页中用户名控件的名字),0) as ihtmlinputelement);
userinputelement.value:=edit1.text;(也就是你要向网页输入的东西)
pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);
pwdinputelement.value:=edit2.text;
input:=doc.all.item('submit',0);
input.click;
end;
|
当提交数据按钮没有NAME属性时,采用如下方法:
procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
form:ithmlformelement;
userinputelement,pwdinputelement:ihtmlinputelement;begin
doc:=webbrowser1.document as ihtmldocument2;
userinputelement:=(doc.all.item('user'(也就是网页中用户名控件的名字),0) as ihtmlinputelement);
userinputelement.value:=edit1.text;(也就是你要向网页输入的东西)
pwdinputelement:=(doc.all.item('password',0) as ihtmlinputelement);
pwdinputelement:=edit2.text;
form:=(doc.all.item('login_form',0) as ihtmlformelement):
form.submit;
end;
|
登录"按钮一般都是网页中默认的回车按钮,所以可以用上面代码来代替前面的点击按钮。
分享到:
相关推荐
模拟网页表单提交 delphi7 源码 主要使用COM接口IHTML...之类
练习自动淘宝登录时收集的资料
delphi网页数据提取工具,
Delphi开发的小程序可以获取html 网页里面的表格中的内容数据 使用WebBrowser控件,解决打开网页乱码,自动转码
可用于(批量、定期)采集网站数据 利用浏览器控件实现 Doc:=wb1.Document as IHTMLDocument2; //wb1.OleObject.document.getElementsByTagName('input').item(7).click; group:=(Doc.all.item('dict_main',varEmpty...
delphi编写向表格写数据和读数据,可以设定表格高度,宽度,写入数据,对应读出每一位数据。
delphi抓取122考试平台预约学员数据 ,方便提前知道预约情况
用Delphi实现Excel自动化 用Delphi实现Excel自动化
Delphi代码提交网页搜索,直接控制百度、谷歌网页搜索。在Delphi窗体中的文字提交到网页原文本框中。开发平台:Microsoft Wiondows XP Pro Service Pack 3 Delphi 7
Delphi实现远程串口的数据采集Delphi实现远程串口的数据采集Delphi实现远程串口的数据采集
Delphi实现类似IE的autocomplete自动完成功能
delphi7代码编辑运行环境下,Delphi Messagebox自动关闭功能演示代码,以及可运行程序,无须任何.net编译平台,windows下原生程序。 使用方法:打开对话框前调用 SetDlgAutoClose { 参数1: 设定多长时间后关闭 }...
1.简单易学 2.delphi 实现sql中数据存入excel中
用delphi实现自动更新,有真实需要就请下载吧哈哈哈
delphi实现COM组件的自动注册与卸载,源码实现加详解。
delphi 开发网页利器:DeWeb,可以直接将Delphi程序快速转换为网页应用的工具!使用DeWeb, 开发者不需要学习HTML、JavaScript、Java、PHP、ASP、C#等新知识,用Delphi搞定一切。DeWeb开发的网页支持所有客户端,包括...
Delphi 开发的程序自动更新控件, xe7-xe10.4 安装测试过, 使用简单, 源码, 可以自己改图片, 自定义升级
在研究自动领取淘宝积分时做的自动登录淘宝代码,可学习如何使用delphi 操作网页
用Delphi在工业控制和自动化实现多线程进行数据采集.pdf
Delphi代码提交网页搜索,直接控制百度、谷歌网页搜索。在Delphi窗体中的文字提交到网页原文本框中。 开发平台:Microsoft Wiondows XP Pro Service Pack 3 + Delphi 7