delphi中WebBrowser1打开网页

Posted 2023-05-01

在Label1中用1到100显示进度

参考技术A 这类问题百度上有的,一搜索可多呢.
下边参考着自己把进度的值写入label就可以了
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
if ProgressMax=0 then exit;
ProgressBar1.Min:=0;
ProgressBar1.Max :=1 ;
ProgressBar1.Position:=Progress*100 div ProgressMax;
ProgressMax:=0;
end;

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

本回答被提问者采纳