twebbrowser有一个事件是将当前URL获取得来的:
procedure TfrmWeb.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
在这个过程中.变量:URL便为当前所找开网页的URL.
你可以在该过程中:showmessage(URL);便可知道当前的网页的URL了!另可以通过以下方法:
var
s_URL:olevariant;
begin
s_URL:=webbrowser1.locationURL;
end;
procedure TfrmWeb.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
在这个过程中.变量:URL便为当前所找开网页的URL.
你可以在该过程中:showmessage(URL);便可知道当前的网页的URL了!另可以通过以下方法:
var
s_URL:olevariant;
begin
s_URL:=webbrowser1.locationURL;
end;
解决方案 »
- dbgrideh字段内容如何实现分散对齐
- 只有dcu文件,没有其他的.dfm,.pas文件,编译的时候提示File not found **.dfm
- ****** 记住这个最美丽的日子:) , 散分:) ******
- 找工作帖——12月16日 麻烦版主给保留五天,五天后一定结帖
- 如何将一位整数转化为字符型?
- 谁有注册版的FASTREPORT2.53,发给我一份,谢谢
- 请问怎么在DBGRID里添加图片???UP有分
- 急!300分求解如何直接运行TMEMORYSTREAM中的程序而不用先保存再运行?
- 如何在程序編譯好後再指定ADOConnection連結的字符串(即連結新的數據庫)?
- EurekaLog
- 在access表中插入一条记录的语句有错误?! 急!
- Delphi中用什么方式做可以播放VCD格式和Mepg one 的播放器最好
URL:olevariant;
begin
...........
URL:=webbrowser.locationURL;
..............
end;