我用WebBrowser打开页面 New.htm
WebBrowser.Navigate('New.htm');
网页脚本如下:
<html>
<head>
<title>测试点击</title>
</head>
<body scroll="no">
<a href="http://www.baidu.com/">百度</a>
<a href="http://www.sina.com/">新浪</a>
</body>
</html>
捣鼓了半天,没有找到当前打开的"超连接"的URL是哪个?
因为这些连接都是IE新开的窗口WebBrowser好象没有动静..........
WebBrowser.Navigate('New.htm');
网页脚本如下:
<html>
<head>
<title>测试点击</title>
</head>
<body scroll="no">
<a href="http://www.baidu.com/">百度</a>
<a href="http://www.sina.com/">新浪</a>
</body>
</html>
捣鼓了半天,没有找到当前打开的"超连接"的URL是哪个?
因为这些连接都是IE新开的窗口WebBrowser好象没有动静..........
解决方案 »
- 随机函数简单问题(50分)
- win32_find_data?
- 程序在其它电脑不能运行
- Delphi 7 中怎么安装 Spcom 控件————在线等待!!!
- 谁能告诉我,如何用DELPHI源码实现-->>找回已完全删除的文件?
- 送分贴二:(讨论:根据数据库构造一棵树的最佳算法!版主与高手请进!)
- CLIENTDATASET的内容为什么不更新?
- 关于MS SQL SERVER 的数据库文件注册的问题~!!!!救救我!!!
- ******************哪位高手会用 TB_CUSTOMIZE,让TOOLBAB显示windows的配置菜单 ???????*****************
- 请教:StringGrid能做DBGrid中的PickList效果吗?
- 怎样实现 点机窗口右上角的关闭按钮时,把窗口最小化
- Delphi怎样防止程序被在任务管理器中的应用程序栏里结束掉?
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(http://www.my.com/isis/a.htm?args=abc');
end;
void NavigateComplete2(
IDispatch *pDisp,
VARIANT *URL // 取这个值
);
<head>
<title>测试点击</title>
</head>
<body scroll="no">
<a href="http://www.baidu.com/" target=_blank>百度</a>
<a href="http://www.google.com/" target=_blank>新浪</a>
<a href="http://www.2ccc.com/" target=_blank>盒子</a>
<a href="http://www.delphibbs.com/" target=_blank>大富翁</a>
</body>
</html> 此方法可以获取到当前页面打开的超连接.
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
//Memo.Lines.Clear;
Memo.Lines.Add(TimeToStr(Now())+' :打开超连接 URL:' + Text);
end;
遗憾的是,返回结果都是多条(我也不知道用户是否真的已经完全打开此连接)http://www.2ccc.com/
11:38:47 :打开超连接 URL:
11:38:48 :打开超连接 URL:http://www.2ccc.com/
11:38:48 :打开超连接 URL:
11:38:48 :打开超连接 URL:
11:38:48 :打开超连接 URL:
11:38:48 :打开超连接 URL:http://www.2ccc.com/
11:38:56 :打开超连接 URL:
11:38:56 :打开超连接 URL:
11:39:01 :打开超连接 URL:
11:39:01 :打开超连接 URL:http://www.2ccc.com/
11:40:05 :打开超连接 URL:
11:40:05 :打开超连接 URL:
11:40:05 :打开超连接 URL:
11:40:05 :打开超连接 URL:http://www.baidu.com/
11:40:07 :打开超连接 URL:
11:40:07 :打开超连接 URL:
11:40:07 :打开超连接 URL:http://www.google.com/
11:40:07 :打开超连接 URL:
11:40:08 :打开超连接 URL:
11:40:08 :打开超连接 URL:请教各位是否有更好办法,能获取到用户当前打开的超连接URL,并且知道此连接已经打开完成!
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
//Memo.Lines.Clear;
Memo.Lines.Add(TimeToStr(Now())+' :打开超连接 URL:' + Text);
end;
const Text: WideString);
begin
NewURL := text;
end;procedure TForm1.FormShow(Sender: TObject);
begin
WebBrowser1.Navigate(ExtractFilePath(ParamStr(0)) + 'New.htm');
end;procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
//Cancel := true;
//WebBrowser1.Navigate(NewURL);
//判断当前URL是否为自己需要的,然后操作!
if NewURL = 'http://www.baidu.com/' then
close;
end;(很是郁闷:问过不少问题结果都是:1\自己最终解决;2\放了N天都没有正确答案.)
(很是不解疑惑:1\这里没有多少愿意帮忙的好心人?? 2\ 或许这里真的没有多少高手??? 3\或许我的问题真的很有难度??)
我很菜鸟,帮不了多少忙,高手们大多在工作,工作时间没法上CSDN,估计要被扣工资和奖金的
还有,一个问题提出来别指望一两天有答案……hongqi都没来回答……