webBrowser链接跳转，在线等，听说有这3个字，别人回答会快一些。。。。

huangjacky 2009-04-02 09:15:02

我们自己程序里面有个 webbrowser 开了一个网页，当点击一个网页的链接的时候，结果怎么了？
因为系统的默认浏览器是IE或者遨游，这个新的页面结果就跑到它们那里去了，我想点了链接，新页面还是在自己的程序里面的webbrowser里面打开，
请问高手怎么才能实现？
小弟，先谢谢。

...全文

99 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

qyx520 2009-09-26

打赏
举报

看看正急用啊

huangjacky 2009-04-02

打赏
举报

的确达到了。
可是用自己程序打开这个支付宝结果支付宝显示错误了，而用ie打开确支付宝显示成功。
我觉得很可能是编码的问题。

huangjacky 2009-04-02

打赏
举报

谢谢麦克思科菲尔德。
我去 44.哈哈等着 17号继续越狱吧

huangjacky 2009-04-02

打赏
举报

我还是贴出来这个 html的源文件吧
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>支付宝支付</title>
</head>

<form name="alipaysubmit" method="post" action="https://www.alipay.com/cooperate/gateway.do?_input_charset=utf-8" target="self">
<input type=hidden name="body" value="账户冲值">
<input type=hidden name="notify_url" value="http://localhost:8080/zfb/alipay_notify.jsp">
<input type=hidden name="out_trade_no" value="Thu Apr 02 09:28:25 CST 2009">
<input type=hidden name="partner" value="2088002261493964">
<input type=hidden name="payment_type" value="1">
<input type=hidden name="seller_email" value="13335014567@ruyi.com">
<input type=hidden name="service" value="create_direct_pay_by_user">
<input type=hidden name="sign" value="1e72f19f3af4876be9a60b76134d6461">
<input type=hidden name="sign_type" value="MD5">
<input type=hidden name="subject" value="账户冲值">
<input type=hidden name="total_fee" value="0.01">
<input type=hidden name="show_url" value="www.sina.com.cn">
<input type=hidden name="return_url" value="http://localhost:8080/alipay_return.do">
<input type=hidden name="paymethod" value="">
<input type=hidden name="defaultbank" value="ICBCB2C">
<table>
<tr>
<td>
<input type='button' name='v_action' value='支付宝网上安全即时支付平台' onClick='document.alipaysubmit.submit()'>
</td>
</tr>
</table>
</form>
<body>
</body>
</html>

chys3584 2009-04-02

打赏
举报

我是这么做的，
在WebBrowser1下面放一个WebBrowser2,然后。....



procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);

begin

  ppDisp:=WebBrowser2.Application;

end;



procedure TForm1.WebBrowser2BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); 

begin

  WebBrowser1.Navigate(URL);

  Cancel:=True;

end;