本文目录
WebBrowser控件问题
部分代码如下：在窗口及WebBrowser创建完以后，写此代码：WebBrowser.OnNewWindow2:=IE1NewWindow2;给主窗口创建一个方法：procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);Var NewForm:TBrowForm;begin try NewForm :=TPopBrowerForm.Create(application); NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件 //有此代码，此处就可以省略 ppDisp := NewForm.WebBrowser.Application; NewForm.Show; Cancel:=false; except end;end;
关于python的webbrowser
webbrowser模块提供了一个高级接口来显示基于Web的文档，大部分情况下只需要简单的调用open()方法。webbrowser定义了如下的异常：exception webbrowser.Error, 当浏览器控件发生错误是会抛出这个异常webbrowser有以下方法：webbrowser.open(url)注册一个名字为name的浏览器，如果这个浏览器类型被注册就可以用get()方法来获取。
webbrowser 卡死，该怎么解决
没有根本解决办法，目前最常用方法是界面分离，就是让webBrowser控件和主界面分离。要么用单独线程创建webBrowser，要么用单独进程创建webBrowser。不管哪种方法，都需要去协调主界面和webbrowser窗口间的位置关系，这个比较麻烦。我还想到个暴力方法：创建一个单独线程，里面设一定时器函数，主线程（webbrowser所在的）每隔一定时给那个线程发一信号。如果webbrowser卡死，那么就会较长时间没信号，在线程里强制把webbrowser消毁掉（无法停止它的，因为它已经卡死了）。
如何使用webbrowser
类似“字体”菜单上的从“最大”到“最小”五项（对应整数0～4，Largest等假设为五个菜单项的名字，Tag属性分别设为0～4）。A、读取当前页面字体大小。vart:OleVariant;BeginWebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,EmptyParam,t);casetof4:Largest.Checked:=true;3:Larger.Checked:=true;2:Middle.Checked:=true;1:Small.Checked:=true;0:Smallest.Checked:=true;end;end;B、设置页面字体大小。Largest.Checked:=false;Larger.Checked:=false;Middle.Checked:=false;Small.Checked:=false;Smallest.Checked:=false;TMenuItem(Sender).Checked:=true;t:=TMenuItem(Sender).Tag;WebBrowser1.ExecWB(OLECMDID_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,t,t);
