注册 登录
编程论坛 VFP论坛

VFP使用WebBrowser控件会报错【OLE 错误码 Ox80004005:Unspeci fied error】

yanling48 发布于 2023-08-03 21:21, 856 次点击
VFP使用WebBrowser控件会报错,如:
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 As Form
    Width = 800
    Height = 600
    ADD OBJECT URL as TextBox WITH Top=10,Left=10,Width=680,Height=22,Anchor=11,;
        Value = "http://www.baidu.com"
    ADD OBJECT CMD1 as CommandButton WITH Top=10,Left=700,Width=40,Height=22,Anchor=9,Caption = ">>>"
    Add Object WB As Olecontrol WITH OleClass="Shell.Explorer.2",Top=40,Left=0,Width=800,Height=460,Anchor=15,Visible=.T.
        
    PROCEDURE Init
        this.WB.Silent = .T.
    ENDPROC

    PROCEDURE CMD1.Click
        thisform.WB.navigate(ALLTRIM(thisform.URL.Value), 0, NuLL, NULL, NULL)
        thisform.WB.SetFocus
    ENDPROC
ENDDEFINE

运行以上程序会报错【OLE 错误码 Ox80004005:Unspeci fied error】,请问要如何解决?
只有本站会员才能查看附件,请 登录


8 回复
#2
吹水佬2023-08-03 22:02
试运行正常
随便建个表单拖个WebBrowser控件试试
#3
yanling482023-08-03 22:40
回复 2楼 吹水佬
是这个控件吗?在表单里添加了运行也是一样报错。
只有本站会员才能查看附件,请 登录
#4
吹水佬2023-08-04 18:26
运行到哪一句出错?
#5
yanling482023-08-04 22:50
回复 4楼 吹水佬
运行到这句报错,  of.show(1)
点击忽略可以正常运行,就是每次运行该程序都会跳出这个错误【OLE 错误码 Ox80004005:Unspeci fied error】提示。进入表单后就正常了。
#6
吹水佬2023-08-04 23:26
回复 5楼 yanling48
我是问你3楼的情况
#7
yanling482023-08-05 09:50
回复 6楼 吹水佬
Thisform.Web1.Navigate('http://www.baidu.com')
添加form1.Init运行到这句报错。
只有本站会员才能查看附件,请 登录

不添加form1.Init只有报错提示,跟踪窗口看不到。
只有本站会员才能查看附件,请 登录
#8
吹水佬2023-08-05 10:34
在其他机上测试一下,可能是操作系统问题。
#9
yanling482023-08-05 23:42
换其他机上也是一样。
我用VFP 6.0测试就会报错。用VFP 9.0测试就正常了。
在VFP 6.0上找到了一个解决方法:将WebBrowser控件的Refresh设为nodefault就不会报错了。
1