Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:网络技术    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  WebBrowser按照顺序引用FORM里面的成员  
 

WebBrowser按照顺序引用FORM里面的成员

{
regForm表单的顺序内容
INPUT:choice=QQ
INPUT:choice=EMAIL
INPUT:=nc_name //呢称
INPUT:=0 //?可能是申请类型是号码
SELECT:=2009 //年份
SELECT:=2 //月份
SELECT:=3 //日期
INPUT:gender=1 //性别1=男
INPUT:gender=2 //性别2=女
INPUT:=mm112233 //密码
INPUT:=mm112233 //确认密码
SELECT:=1 //国家
SELECT:=46 //省份
SELECT:=1 //城市
INPUT:verifycode=tmdbc //验证图片
}

procedure TMainForm.xSignMbBtClick(Sender: TObject);
var obj:Olevariant; SpcStr:string;
var i,Len,j,ok,Index:integer; aForm,doc:olevariant;
begin
if WebBrowser.Busy then Exit;//正在忙则退出
//webbrowser中input表单元素的赋值
ok:=0;
doc:=WebBrowser.Document;
aForm:=WebBrowser.oleobject.document.all.item('regForm'); //Doc.Forms('regForm');
Len:=aForm.Length;//'doc.all.length;
for i:=0 to Len-1 do begin
//if (aForm.item(i).tagname='INPUT')or
//(aForm.item(i).tagname='TEXTAREA') then begin
if (i=2) then //呢称
aForm.item(i).value:=Trim(NameEd.Text);
if (i=4) then //年份
aForm.item(i).value:='2000';
if (i=5) then //月份
aForm.item(i).value:='3';
if (i=5) then //月份
aForm.item(i).Click();//Change;//Sleep(1000);
if (i=6) then //日期
aForm.item(i).value:='5';
if (i=9) then //密码
aForm.item(i).value:=Trim(PwEd.Text);
if (i=10) then //确认密码
aForm.item(i).value:=Trim(PwEd.Text);
end;
//SpcStr:='======================================';
//Memo1.Lines.Add(SpcStr);


 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站