<td colspan="2" align="center"><a href="#" onClick="__doPostBack('nextStep')"><img src="/images/btnOK.jpg" border="0"></a> </td>1。如果网页中的确定按钮写成这样,如果做自动提交?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; 2。查到这个一个例子,可是没有找到ithmlformelement需要引用那个单元?
3。onClick="__doPostBack('nextStep') 像这样的函数,如何用delphi调用,如何得到返回值,我的做法只能是提交后查找源文件里的字符串,好像挺麻烦
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; 2。查到这个一个例子,可是没有找到ithmlformelement需要引用那个单元?
3。onClick="__doPostBack('nextStep') 像这样的函数,如何用delphi调用,如何得到返回值,我的做法只能是提交后查找源文件里的字符串,好像挺麻烦
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货