delphi 关于网页框架里的表单提交
如题!
框架代码:
<frameset rows="127,*" cols="*" frameborder="no" border="2" framespacing="0">
<frame src="top.html" name="top" scrolling="No" noresize="noresize" id="topFrame" title="topFrame">
<frameset rows="*" cols="207,*" framespacing="0" frameborder="no" border="0">
<frame src="left.html" name="leftF" scrolling="No" noresize="noresize" id="leftFrame" title="leftFrame">
<frame src="right.html" name="right" id="mainFrame" title="mainFrame">
</frameset>
</frameset>
其中RIGHT里有两个表单框
<body>
<form action="login.php" name="login_FORM" method="post">
<input name="uu" type="text" >
<input type="password" name="pp" >
<input type="submit" value="登 录" name='sub' >
</body>
我现在想用DELPHI操作框架里RIGHT里的表单!!
请问大人们我应该怎么实现??? 我是新手!!
[解决办法]
- Delphi(Pascal) code
procedure TForm1.Button2Click(Sender: TObject);var doc:ihtmldocument2; Name,Password:IHTMLInputElement; tem : Olevariant;begin if WebBrowser1.Busy then self.WebBrowser1.Stop; WebBrowser1.Navigate('http://www.xxxx.com/login.php'); while webbrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages; if assigned(WebBrowser1) then begin doc := WebBrowser1.Document as ihtmldocument2; Name := doc.all.item('pwuser',0) as IHTMLInputElement; password := doc.all.item('pwpwd',0) as IHTMLInputElement; if EdtName.Text <> '' then Name.value := EdtName.Text else EdtName.SetFocus; if EdtPwd.Text <> '' then Password.value := EdtPwd.Text else EdtPwd.SetFocus; tem := doc.all.item('submit',0); sleep(30); tem.click;end;end;