用webBrowser模拟登录网页的问题
----------------------------------网页源代码-----------------------
<form method="post" action="/exam/index.php?example=login">登录:<dl><dt>用户名</dt><dd><input name="username"></dd><dt>密码</dt><dd><input name="password" type="password"></dd></dl><input name="submit" type="submit"> </form><hr /><a href="/exam/index.php?example=login">登录</a> <a href="/exam/index.php?example=register">注册</a>
---------------------------------结束------------------------------
没有框架,这是我专门为程序登录调出的。
----------------------------程序原代码,来自网上-------------------
procedure TForm1.Button1Click(Sender: TObject);
var
o: OleVariant;
begin
WebBrowser1.Navigate('http://www.110011999.com/am/index.php?example=login');//控件可以正常显示网页,也可以人工操作
o := WebBrowser1.OleObject.document.all.item('username',0);
o.value := 'mostar';
o := WebBrowser1.OleObject.document.all.item('password',0);
o.value := '******';
o := WebBrowser1.OleObject.document.all.item('submit',0);
o.submit;
end;
----------------------------程序结束------------------------------
问题是运行的时候,提示 (csdn没法贴图) 一大堆错误说明。大概是释放已经调用的内存 啥意思?