当前位置: 代码迷 >> Delphi >> delphi:webbrowser作浏览器时,获取当前网页缩放比率
  详细解决方案

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

热度:9305   发布时间:2013-02-25 00:00:00.0
delphi:webbrowser做浏览器时,获取当前网页缩放比率
如题,应该怎么做呢?
下面是我找到的一些代码:
[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代码?

分不多,帮帮忙
------解决方案--------------------------------------------------------
MyTemWB.OleObject.Document.Body.Style.Zoom
可读可写
  相关解决方案