Question

Delphi 中的Webbrowser控件问题

在窗体上放置Webbrowser1和Webbrowser2两个控件.
然后用1这个打开www.v232.com,搜索第一次的时候2控件内显示搜索结果的网页.但是再搜索的话会报错,请问怎样解决.!急需要答案.谢谢

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppdisp:=WebBrowser2.OleObject;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('http://www.v232.com');
end;

启动程序后,自动打开www.v232.com程序.而后点网页内的"搜索一下"然后webbrowser2显示搜索的结果子页面
然后再点搜索一下的话,会弹出错误提示,请问怎么能够继续正常搜索,而不出错呢!

Answer 1

我测试了一下，发现是那个网站设置了限制，可以通过以下方法解决，首先把WebBrowser2删除，改为在程序运行时建立：
var
WebBrowser:TWebBrowser;

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('http://www.v232.com');
WebBrowser:=TWebBrowser.Create(nil);
self.InsertControl(WebBrowser);
with WebBrowser do
begin
Left:=10;
Top:=200;
Width:=300;
Height:=100;
visible:=true;
end;
end;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
WebBrowser.Free;
WebBrowser:=TWebBrowser.Create(nil);
self.InsertControl(WebBrowser);
with WebBrowser do
begin
Left:=10;
Top:=200;
Width:=300;
Height:=100;
visible:=true;
ppdisp:=OleObject;
end;
end;
我测试过可以。