又来送分了 ,简单的问题 调试不过去,求解

mostar 2010-07-07 09:05:50
用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没法贴图) 一大堆错误说明。大概是释放已经调用的内存 啥意思?
...全文
86 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
kye_jufei 2010-07-09
  • 打赏
  • 举报
回复
我也來接點分~~~
bdmh 2010-07-09
  • 打赏
  • 举报
回复
来了来了来了来了来了
mostar 2010-07-09
  • 打赏
  • 举报
回复
问题解决了 散分。楼上一人20.楼下接分喽
ahejn 2010-07-08
  • 打赏
  • 举报
回复
o不用申请空间的吗?比如用 VarArrayCreate 之类
天火 2010-07-08
  • 打赏
  • 举报
回复
不懂,友情帮顶吧。
xjwy 2010-07-07
  • 打赏
  • 举报
回复
坐沙发了哈

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧