Question

delphi webbrowser如何调用 为什么控件栏找不到。 很久没用delphi了。

另外如何实现按下一个按钮就在该控件里打开网页关闭又重新打开这个网页。
谢谢！ 追分。

Answer 1

1.使用动态创建Webbrowser就可以了!在uses中加入uses SHDocVw;

2.控件在Internet面板中

Answer 2

1. webbrowser 控件在internet面板里。

2. WebBrowser1.Navigate('www.baidu.com'); 打开网页

3. 关闭网页，WebBrowser1.Navigate('');

追问

因为我要做个投票软件
具体是我手动的话只要打开-投票-关闭浏览器-打开-又可以重新投票
现在我想调用webbrowser打开网页-手动投票- 但是关闭浏览器这一步怎么做？
能否实现就添加一个按钮 实现关闭浏览器又重新打开这一步？
详细说说好吗？ 谢谢！！ 追分

追答

WebBrowser1.Navigate(''); 这个就是打开空的网页，相当于关闭上一个网页。

下面是模拟网页登录点击的代码示例，你可以参考下。

var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0); //找到登录用户名的输入框
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入框
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit; //第一个表单提交
{
o :=WebBrowser.oleobject.document.all.item('Login',0); //或者用指定表单名称提交
o.Click; //点击操作，对其它对象也可同样操作
}
end;