知识大全 Delphi实现网页表单数据的自动提交

Posted 2022-07-14 知

篇首语：我认为人生最美好的主旨和人类生活最幸福的结果，无过于学习了。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi实现网页表单数据的自动提交相关的知识，希望对你有一定的参考价值。

Delphi实现网页表单数据的自动提交 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　MSHTML是微软公司的一个组件该组件封装了HTML语言中的所有元素及其属性通过其提供的标准接口可以访问指定网页的所有元素．MSHTML对象模型是由一些对象和集合组成的．处于根部的是HTML 描述了打开页面的个窗口包括一系列集合和对象如Frames集合 History Location Navigator Document Vi—sum Event对象等．其中描述呈现在客户窗口实际网页的是Document对象由一系列的属性方法对象和集合组成．其中All集合中包含网页中所有标记(Tag)元素其主要的方法和属性有

　　( )Length(长度) 即标记出现的个数可以把标记的集合理解为从开始的一维数组其次序按照标记在网页位置排列　　( )Tags(标记) 用于过滤出给定标记的集合如Doc．Al ．Tags(P)得到所有分段标记P 　　( )Item(项目) 用于选择集合中的某个元素如object．item( )得到集合的第个元素而object．item(i)得到第i+ 个元素．此外 IHTMLElement也是个常用的集合对象代表网页中指定标记的集合通过这个集合对象可以得到网页上特定标记的内容．IHTMLElement有个主要属性　　( )InnerText 开始标记和结束标记之间的文本　　( )InnerHTML 开始标记和结束标记之间的文本和HTML 　　( )OuterText 对象的文本　　( )OuterHTML 对象的文本和HTML．

　procedure TForm Button Click(Sender: TObject); var Doc:IHTMLDocument ; input:OleVariant; userinputelement pwdinputelement:iinputelement; begin doc:=webbrowser document as idocument ; userinputelement:=(doc all item( user (也就是网页中用户名控件的名字) ) as iinputelement); userinputelement value:=edit text;(也就是你要向网页输入的东西) pwdinputelement:=(doc all item( password ) as iinputelement); pwdinputelement value:=edit text; input:=doc all item( submit ); input click; end;

　　当提交数据按钮没有NAME属性时采用如下方法

　　procedure TForm Button Click(Sender: TObject); var Doc:IHTMLDocument ; form:ithmlformelement; userinputelement pwdinputelement:iinputelement; begin doc:=webbrowser document as idocument ; userinputelement:=(doc all item( user (也就是网页中用户名控件的名字) ) as iinputelement); userinputelement value:=edit text;(也就是你要向网页输入的东西) pwdinputelement:=(doc all item( password ) as iinputelement); pwdinputelement:=edit text; form:=(doc all item( login_form ) as iformelement): form submit; end; cha138/Article/program/Delphi/201311/24912