| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3794 人关注过本帖, 3 人收藏
标题:vfp WebView2 Demo
只看楼主 加入收藏
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
结帖率:100%
收藏(3)
已结贴  问题点数:20 回复次数:27 
vfp WebView2 Demo
IE WebBrowser 或者已成过去,
Edge WebView2 或能预见将来。

Edge WebView2 是在 Microsoft Edge WebView2 Runtime 支持下的应用,核心也是Chromium。


VFP最简的WebView2应用
图片附件: 游客没有浏览图片的权限,请 登录注册


主要文件:
  
1、WebView2Loader.dll,是WebView2分发的随用户应用一起用来加载WebView2。

2、myWebViewDll.dll,简单封装几个功能给 VFP DEMO 用的DLL。

3、vfp_WebView2_Demo.prg,不用说的


运行环境:

1、查看有无安装 Microsoft Edge WebView2 Runtime,现在Windows10也会自动推送。
   在 windows “设置”--“应用”--“应用和功能”
   搜索“webview”,看到有 Microsoft Edge WebView2 Runtime 就OK。
图片附件: 游客没有浏览图片的权限,请 登录注册


2、需要VC++运行库支持,VFP用32位(x86)版本。
     上载了一个VS2022用的版本:
          Microsoft Visual C++ 2015-2022 Redistributable - 14.34.31931
     没有的可以下载安装:
         https://down.bccn.net/12340.html

3、WebView2Loader.dll、myWebViewDll.dll 默认放在VFP主程序的目录。

4、如果在VFP开发环境运行(vfp.exe),可能会出现创建文件失败的异常。
   按图示设置VFP安装的目录有“写”权限就OK。
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册


打包下载文件:
vfp_WebView2_Demo.rar (95.28 KB)





搜索更多相关主题的帖子: Microsoft Edge 应用 dll vfp 
2023-02-08 16:21
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
程序代码:
ASTACKINFO(ap)
cDefPath = ADDBS(JUSTPATH(ap[2]))
SET DEFAULT TO (cDefPath)

DECLARE long GetTopWindow IN user32 as apiGetTopWindow long
DECLARE long MoveWindow   IN user32 as apiMoveWindow   long,long,long,long,long,long

DECLARE long WebView_Create    IN myWebViewDll long,long,long,long,long
DECLARE long WebView_Destroy   IN myWebViewDll 
DECLARE long WebView_Resize    IN myWebViewDll
DECLARE long WebView_Navigate  IN myWebViewDll string
DECLARE long WebView_GoBack    IN myWebViewDll 
DECLARE long WebView_GoForward IN myWebViewDll

PUBLIC hWebView
of = CREATEOBJECT("WebView2_Demo")
of.show
READ EVENTS
CLEAR ALL
RETURN

DEFINE CLASS WebView2_Demo as Form
    ShowWindow  = 2
    WindowState = 2 
    ADD OBJECT cmd1 as commandbutton WITH left=10,top=10,width=20,height=22,caption="<"
    ADD OBJECT cmd2 as commandbutton WITH left=30,top=10,width=20,height=22,caption=">"
    ADD OBJECT txt1 as textbox WITH left=50,top=10,width=500,height=22,value="https://bbs.bccn.net/forum-22-1.html"
    ADD OBJECT cmd3 as commandbutton WITH left=550,top=10,width=30,height=22,caption=">>"
    
    PROCEDURE Destroy
        WebView_Destroy()
        CLEAR EVENTS
    ENDPROC
    
    PROCEDURE Activate
        IF EMPTY(this.Tag)
            this.Tag = "1"
            hWebView = WebView_Create(apiGetTopWindow(this.hWnd), 0, 40, this.Width, this.Height-40)
        ENDIF
    ENDPROC
    
    PROCEDURE Resize
        apiMoveWindow(hWebView, 0, 40, this.Width, this.Height-40,1)
        WebView_Resize()
    ENDPROC 

    PROCEDURE cmd1.click
        WebView_GoBack()
    ENDPROC 
    
    PROCEDURE cmd2.click
        WebView_GoForward()
    ENDPROC   
     
    PROCEDURE cmd3.click
        WebView_Navigate(STRCONV(ALLTRIM(thisform.txt1.value)+0h00,5))
    ENDPROC 
ENDDEFINE




2023-02-08 16:22
foxfans
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:113
专家分:324
注 册:2021-10-23
收藏
得分:7 
这个封装基本上只能在win10及以上用,要是向下兼容到win7,要处理win7 user32动态链接库中没有的函数SetProcessDpiAwarenessContext.....
2023-02-08 17:03
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用foxfans在2023-2-8 17:03:38的发言:

这个封装基本上只能在win10及以上用,要是向下兼容到win7,要处理win7 user32动态链接库中没有的函数SetProcessDpiAwarenessContext.....

目前来说,这个就肯定的了。Win7就基本无望,MS已经不管他了。
Edge WebView2 是基于 Microsoft Edge WebView2 Runtime 的,早前windows10也没推送。
WebView2 好在是windows系统的东西,用得方便,VFP用起来可靠安心点。
2023-02-08 17:42
laxjyj
Rank: 2
等 级:论坛游民
帖 子:10
专家分:61
注 册:2021-9-21
收藏
得分:7 
昨晚试了几个不同风格的网站、网页均能正常浏览、登录或在新窗口打开,这个比miniblink等好,不知道版主接下来有没有准备开发(集成)功能更全面的版本?
2023-02-09 06:51
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用laxjyj在2023-2-9 06:51:17的发言:

昨晚试了几个不同风格的网站、网页均能正常浏览、登录或在新窗口打开,这个比miniblink等好,不知道版主接下来有没有准备开发(集成)功能更全面的版本?

相对 IE WebBrowser 来说,这个就是 Edge WebBrowser。
也就是说Edge开放一些接口功能,用户可以通过这些接口好像用Edge一样使用Edge的一些功能。
Edge能正常打开的网页,Edge WebView2 应该也能正常打开,至于好不好用就由Edge决定。

开发(集成)功能更全面的版本。对个人来说,不可能、没能力、更无精力。
之前对 WebView2 了解不多,只是最近有贴提到VFP用的 WEB Browser 有无新的控件。
当时也简单写了个 VFP miniblink 的示例,但觉得miniblink是第三方的东西,使用限制不少,总觉得有点不踏实。
而 WebView2 是 Windows 系统的东西,使用比较有保障和安心。
因此就尝试看看 VFP 能否使用 WebView2,就搞出这个自己还没完全消化的 Demo。

如果大家有兴趣用 WebView2,且有过C++编程,写 WebView2 方面的应用应该不难。
MS官方有详细的WebView2参考资料:https://learn.
网上WebView2相关的资料也不少,C++、C#、.net 都有不少,甚至还有人用纯C写WebView2,不知有无人用ASM写。
本着学到老、用到老的精神,期望与大家共同学习、探讨WebView2。

2023-02-09 08:12
恒一
Rank: 1
等 级:新手上路
帖 子:15
专家分:7
注 册:2022-1-17
收藏
得分:7 
谢谢奉献!
2023-02-09 09:30
sych
Rank: 6Rank: 6
等 级:侠之大者
威 望:7
帖 子:317
专家分:448
注 册:2019-10-11
收藏
得分:0 
非常感谢开路人
2023-02-09 16:39
easyppt
Rank: 7Rank: 7Rank: 7
等 级:黑侠
威 望:1
帖 子:302
专家分:696
注 册:2021-11-24
收藏
得分:0 
吹版威武,能不能再增加一下功能啊,比如 定位光标位置、页面填表
2023-02-09 16:58
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用easyppt在2023-2-9 16:58:34的发言:

吹版威武,能不能再增加一下功能啊,比如 定位光标位置、页面填表

这些不只是浏览网页,还要操作页面对象,可能要用到JS。
对WebView2还未深入了解这方面内容,现在只是浏览网页。
2023-02-09 18:02
快速回复:vfp WebView2 Demo
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022874 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved