VB中如何将WebBrowser打开的网页图片缩放显示？

Posted 2023-04-09

我用以下命令打开了该URL地址处的一张图片，如何将其放大或者缩小呢？我想让它正好充满整个WebBrowser控件！纠结好久了，大神帮帮忙吧，小弟谢了！

WebBrowser1.Navigate "http://192.168.8.1:8083/?action=snapshot"

参考技术A 如果网页是本地就简单了，你去下载个DW，网页三剑客之一的DW，别下载错了，然后在里面设置好他的大小就可以了，VB不清楚，也有一个土办法，把网页控件拉到很大，拉到你的图片能够充满追问

我是想把摄像头看到的图像实时传输到VB中，我用WEBBROWSER控件打开URL处的图片，然后用TIMER不断去刷新，可以得到实时传输的效果，但是图片切换时会有明显的一闪一闪的效果，因为图片切换的很快，刷新间隔越短闪得就越厉害 这个应该怎么解决啊？

追答

WEBBROWSER是网页控件，不适合做这种的，因为TIMER会刷新整个界面，你看起来当然是幻灯片了

delphi webbrowser，如何调整webbrowser里面打开网页的大小，或者使打开的内容适应webbrowser控件的大小。

我要的效果是打开的网页确保都显示在webbrowser中。怎样调整webbrowser里面打开网页的大小呢？谢谢哪位大侠了

参考技术A 这个要浏览器支持，ie6不支持缩放，到IE7以上好像就可以了追问

那么怎么实现缩放呢，我系统里是IE9啊，行的话最好有代码本人菜鸟一个，成功的话一定再给你加分。。。。

追答

WebBrowser1.OleObject.Document.Body.Style.zoom :=2;
就能放大2倍

重大或有趣的对象属性：

WebBrowser.OleObject.Document
WebBrowser.OleObject.Document.All
WebBrowser.OleObject.Document.bgColor
WebBrowser.OleObject.Document.Body.Style.overflowX
WebBrowser.OleObject.Document.Body.Style.overflowY
WebBrowser.OleObject.Document.Body.Style.zoom
WebBrowser.OleObject.Document.cookie
WebBrowser.OleObject.Document.documentElement.innerHTML
WebBrowser.OleObject.Document.documentElement.innerText
WebBrowser.OleObject.Document.FileSize
WebBrowser.OleObject.Document.Frames
WebBrowser.OleObject.Document.Images
WebBrowser.OleObject.Document.LastModified
WebBrowser.OleObject.Document.Links
WebBrowser.OleObject.Document.Location.Protocol
WebBrowser.OleObject.Document.ParentWindow
WebBrowser.OleObject.Document.ParentWindow.ScrollBy （九：整数; iY ：整数）
WebBrowser.OleObject.Document.selection
WebBrowser.OleObject.Document.Title
WebBrowser.OleObject.Document.URL

追问

我照你的方法做有些网址是可以的，很酷可是我纳闷的是，为什么还有很多网页就不行，例如，Browser1.Navigate('http://zhidao.baidu.com/');
用这个知道首页网址是可以的，而Browser1.Navigate('http://zhidao.baidu.com/question/381672313.html?fr=im100401');就是这个问题的地址，就不行呢那？这个让我狠纳闷。有什么解决办法吗？我知道分数不是最重要的，但是如果这个问题解决的话我会将分数提到最高。再麻烦您费神费力。。。

追答

var
zoom:OleVariant;
begin
zoom:=200;
WebBrowser1.ExecWB(63,2,zoom,EmptyParam);

这样就可以放大了，参数参考http://www.dreamincode.net/forums/topic/169749-webbrowser-olecmd-optical-zoom/

追问

我在FormCreat事件放的Browser1.Navigate（），在buttonclick里放的你给的哪几句，这样做运行时有个错误：‘试图吊销一个未注册的拖放目标’，该怎么办呢？

追答

晕，你的ie几啊，我的ie9没问题的,win7+d7+ie9

本回答被提问者采纳