[请求]webbrowser中关闭网页问题

zykj

使用webbrowser打开网页，点击网页中的关闭结果提示：
could not obtain ole control window handle。然后一直无法关闭。
请帮忙解决。
谢谢

zykj

求助，顶。

amao800613

WebBrowser.ExecWB(1,1) //打开
WebBrowser.ExecWB(2,1) //关闭所有
WebBrowser.ExecWB(4,1) //另存为
WebBrowser.ExecWB(6,1) //打印
WebBrowser.ExecWB(6,6) //直接打印
WebBrowser.ExecWB(7,1) //打印预览
WebBrowser.ExecWB(8,1) //页面设置
WebBrowser.ExecWB(10,1) //属性
WebBrowser.ExecWB(17,1) //全选
WebBrowser.ExecWB(22,1) //刷新
WebBrowser.ExecWB(45,1) //关闭

zykj

我使用WebBrowser.navigate()打开的页面中，
有个关闭按键，执行的js：
window.close()；
如果点击关闭按键，就会报could not obtain ole control window handle。

zykj

可以帮忙解决吗？
急！

zfang

楼主，试试delphi中此类用法是否正确呢？
我看网上有类似的错误信息，你参考看下。

zykj

如何在x3中编写处理代码？
~~~~~~~~~~~~~~~~~~
我使用的webbrowser是在pagecontrol中动态创建的，如果点击网页中的关闭本页按钮，就会提示"could not obtain OLE control window handle"，不知道怎么解决？
--------------------------------------------------------------------------------

网友1回答：
--------------------------------------------------------------------------------
在你的窗体上加一个ApplicationEvents,在Additional组中，
然后在它的OnMessage事件中加入如下代码：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_CLOSE) then
begin
if msg.hwnd=webbrowser1.Handle then//如果是关闭Webbrowser
begin
PeekMessage(Msg, Msg.Hwnd, 0, 0, PM_REMOVE);
Handled := True; //该消息已处理，不再需要后续处理
end;
end
end;

网友2回答：


--------------------------------------------------------------------------------
如果是动态创建的WebBrowser：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var classname:array[0..254]of char;
begin
if (Msg.message = WM_CLOSE) then
begin
getclassname(msg.hwnd,@classname,sizeof(classname));//取类名
if classname='Shell Embedding' then
begin
PeekMessage(Msg, Msg.Hwnd, 0, 0, PM_REMOVE);
Handled := True; //该消息已处理，不再需要后续处理
end;
end
end;

shangxy

方法一可以试试。

zykj

那是delphi的写法。
如何在x3中编写处理代码？
x3中似乎没有对应的事件。

shangxy

代码是一样的，工具箱中有ApplicationEvents这个控件，
ie下不知道是否起作用，你可以试试。