全部博文(788)
分类:
2008-09-16 14:57:51
//可以得到这个URL
//你是怎么测试的?
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Caption := URL
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(');
end;
这样是可以,如果你装载一个叫index.htm的页面,然后这个页面中有这样一个连接,你点击的时候就获得不了
我需要用页面做一个导航,URL是一个页面中的连接,不是用WebBrowser的Navigate方法发出的
use linkes to javascript functions
需要拦截的url一半有一定的规则,比如包含插件名
先定义一个类变量 string f_CurrStatusText, 在WebBrowserStatusTextChange中给它赋值
然后在WebBrowserBeforeNavigate2中使用f_CurrStatusText处理,不使用原来的URL即可