本文整理自网络，侵删。
delphi 自动填表代码
(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;
相关阅读 >>
Delphi xe 泛型数组和splitstring处理数据
Delphi clientdataset 与fdmemtable 创建 字段与追加记录
Delphi combobox的属性和事件、及几个鼠标事件的触发
Delphi用idtcpserver和idtcpclient传输文件
更多相关阅读请进入《Delphi》频道 >>
