L lwjkjk Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-06 #1 使用webbrowser打开一个网页后，点击网页的链接在新窗口中打开了一个新网页，这个新窗口是在程序之外的独立进程，有什么办法读取新打开网页的源代码？是不是能让这个网页在另一webbrowser中打开？各位大哥，有没有什么思路指点小弟一下。
使用webbrowser打开一个网页后，点击网页的链接在新窗口中打开了一个新网页，这个新窗口是在程序之外的独立进程，有什么办法读取新打开网页的源代码？是不是能让这个网页在另一webbrowser中打开？各位大哥，有没有什么思路指点小弟一下。
A andy263 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-06 #2 WebBrowser1BeforeNavigate2写 procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin webbrowser2.Navigate(URL) ; //在新窗口打开点击的连接 Cancel:=false; //取消再ie打开新窗口 end;
WebBrowser1BeforeNavigate2写 procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin webbrowser2.Navigate(URL) ; //在新窗口打开点击的连接 Cancel:=false; //取消再ie打开新窗口 end;
A andy263 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-06 #3 上面这样写是所有点的连接都在在webbrowser2中打开 如不需要这样可以对点击的链接作判断 如 if pos('sina',url)>0 then
E e- Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-06 #4 OnNewWindow2事件在新开窗口时发生 控制新窗口在WebBrowser中打开: ppDisp := WebBrowser.Application;
L lwjkjk Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-08 #5 我用了OnNewWindow2事件，感谢e-和andy263
