delphi:webbrowser做浏览器时,获取当前网页缩放比率

zhugeliangzhangfei zhugeliangzhangfei 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
如题,应该怎么做呢?
下面是我找到的一些代码:
[IE编程] WebBrowser控件中设置页面的缩放 收藏
如果你的程序中使用WebBrowser控件并且希望有和IE 一样的页面缩放功能(如下图),可以通过向IWebBrowser2 发送 OLECMDID_OPTICAL_GETZOOMRANGE,OLECMDID_OPTICAL_ZOOM 命令来实现。 示例代码如下:

获取当前缩放比例:
CComVariant varZoom;
spWebBrowser->ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, NULL, &varZoom);
ASSERT(V_VT(&varZoom) == VT_I4);
ULONG ulZoom = V_I4(&varZoom); // 当前缩放比例, 100 表示100%,即原始尺寸

我改了代码,执行了,会显示:试图吊销一个为注册....
怎么把它改为正确的delphi代码?

分不多,帮帮忙
...全文
评论 2
收藏 已收藏
分享
返回顶部