Delphi实现网页表单数据的自动提交_Deiphi网络编程_Deiphi_编程开发

Delphi实现网页表单数据的自动提交

日期：2008-5-31 18:22:36　　　　来源：

-->在VB中让控件大小和位置随着表单的大小成比例变化的方法
-->处理数据栅格的编辑框
-->为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;

　　登录"按钮一般都是网页中默认的回车按钮,所以可以用上面代码来代替前面的点击按钮. 　[1]

Delphi实现网页表单数据的自动提交

表单传送变量

利用Tbatch组件完成数据批处理

WINDOWS环境下的自动备份系统

Photoshop制作流行红色网页提交按钮

◎→	本类最新
从Internet时间服务器获取标准时编程实现拨号网络连接及FTP应用 Email 服务器的简单实现 QQ2000B刷屏机的源码(Delphi) QQ尾巴病毒的发送原理分析 TWebBrowser控件与MSHTML库连接 DELPHI在局域网中的一则应用 Delphi中调用NetscapeNavigator 动态取得网络邻居的工作组和计算读取IE收藏夹内网址的信息

◎→	相关资源
VB窗体文章 HTML入门教程 JavaScript入门教程 VbScript入门教程 ASP.net入门教程 C语言入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程

◎→	热门资源
得到已安装的应用程序列表定制系统菜单 SEO实践增加外链方法播放背景音乐捕捉来自Thread的异常程序调用控制面板设置常用文件目录操作采用多线程技术来关闭applicatio 不用注册新部件就能增加新的方法不用MediaPlayer播放Midi