delphi中 webbrowser如何获取当前打开页面的URL
答案:2 悬赏:40
解决时间 2021-04-27 20:38
- 提问者网友：剪短发丝
- 2021-04-27 11:26
delphi中 webbrowser如何获取当前打开页面的URL
最佳答案
- 二级知识专家网友：无字情书
- 2021-04-27 12:31
方法一:
通过IWEBBROWSER接口取:
var
aintf: IWebBrowser;
begin
aintf := WebBrowser1.Application as IWebBrowser;
ShowMessage( aintf.LocationURL);
方法二:
通过IHtmlDocument2接口取:
var
aintf: IHTMLDocument2;
begin
aintf := WebBrowser1.Document as IHTMLDocument2;
ShowMessage( aintf.url);
通过IWEBBROWSER接口取:
var
aintf: IWebBrowser;
begin
aintf := WebBrowser1.Application as IWebBrowser;
ShowMessage( aintf.LocationURL);
方法二:
通过IHtmlDocument2接口取:
var
aintf: IHTMLDocument2;
begin
aintf := WebBrowser1.Document as IHTMLDocument2;
ShowMessage( aintf.url);
全部回答
- 1楼网友：晨与橙与城
- 2021-04-27 13:27
unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, olectrls, shdocvw;
type
tform1 = class(tform)
webbrowser1: twebbrowser;
button1: tbutton;
edit1: tedit;
procedure formcreate(sender: tobject);
procedure webbrowser1downloadbegin(sender: tobject);
procedure webbrowser1downloadcomplete(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;
var
form1: tform1;
implementation
{$r *.dfm}
procedure tform1.formcreate(sender: tobject);
begin
form1.webbrowser1.navigate('www.ivytc.com');
end;
procedure tform1.webbrowser1downloadbegin(sender: tobject);
begin
edit1.text :='开始';
end;
procedure tform1.webbrowser1downloadcomplete(sender: tobject);
begin
edit1.text :='完成打开';
end;
end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息