2015.1.25 Delphi打开网址链接的几种方法

Delphi打开网址链接的几种方法
1、使用
shellapi打开系统中默认的浏览器
              首先需在头部引用 shellapi单元即在uses中添加shellapi,这里我们需要知道有3个api函数可以运行可执行文件WinExec、ShellExecut和CreateProcess。
             下面为 ShellExecute的标准用法
             ShellExecute(Application.Handle, nil, 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL);
             从左往右开始,Application.Handle代表应用程序主窗口作为windows消息窗口的父窗口;第一个nil为执行默认“open”操作;'http://www.baidu.com'是要打开的网址,一般为打开应用程序的名称;第二个nil代表若上一个是个可执行文件则指定命令行参数,不然为nil;第三个nil用于指定默认目录;SW_SHOWNORMAL代表程序初始化窗口显示的方式,该方式为用原来大小和方式显示,并进行活动状态。
           其实 ShellExecute(Application.Handle, nil, 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL);是ShellExecut的特殊用法,当'http://www.baidu.com'这里不是应用程序名称时,是http:协议参数格式时,该函数将打开默认浏览器的兵连接到指定url地址,若用户安装多个浏览器,将另外根据注册表中设置打开哪个
2:用IE浏览器打开的3种方法:
方法1:ShellExecute(Application.Handle, 'open','Iexplore.exe','http://www.baidu.com',nil,SW_SHOWNORMAL);
方法2:
{uses SHDocVw;}
插入个按键,其按下函数如下:
var
IE : OleVariant;
begin
IE := CoInternetExplorer.Create;
IE.Visible := True;
IE.Navigate2('http://www.baidu.com');
end;
方法3:
{uses comobj;}
var
Ie:Variant
begin
Ie:=CreateOleObject('InternetExplorer.Application');
Ie.visible:=True;
Ie.left:=300; 
Ie.top:=200; 
Ie.height:=400;
Ie.width:=600;
Ie.menubar:=0; //隐藏菜单栏
Ie.toolbar:=0; //隐藏工具栏
Ie.addressbar:=0; //隐藏地址栏
//
Ie.statubar:=0; //不可调整大小
Ie.resizable:=0;
Ie.navigate(URL);
end;

begin
OpenInIe('http://www.baidu.com');
end;
3、用delphi中自带的WebBrowser控件
WebBrowser1.Navigate('http://www.baidu.com'); //WebBrowser1.Navigate('...'); //打开指定页面

4、用Delphi第三方控件EmbeddedWB
 比Delphi自带的Webbrowser要强悍,其实就是在Webbrowser上的二次开发,附安装方法:
 EmbeddedWB安装方法:
 1.下载压缩包,飘易下载的是EmbeddedWB v14.67.0版本,下载地址:http://www.delphifans.com/SoftView/SoftView_2705.html。 
  2.解压整个压缩包到 libEmbeddedWB 下; 
  3.复制 libEmbeddedWB 下的Packages目录中的EmbeddedWebBrowser_D2007.dpk(因为飘易使用的是DELPHI2007)到Source目录里;

4.用Delphi7开发环境打开 EmbeddedWebBrowser_D2007.dpk 文件,按Optios按钮,作如下调整: 
 Directories/Conditionals标签Unit Output Dir=“D:Program FilesCodeGearRAD Studio5.0libEmbeddedWBSource”(具体路径自行决定); 
 5.按Compile, 再按Install; 
 6.不要保存变化了的dpk文件及压缩包; 
 7.在具体的编译工程时,需检查该源目录(D:Program FilesCodeGearRAD Studio5.0libEmbeddedWBSource)在 Delphi IDE 的 “Search Path” 路径里(Project -> Options -> irectories/Conditionals -> Search Path); 如果没有,添加这个源目录路径。否则,在使用该控件的时候,出现“File not found: ‘SHDocVw_EWB.dcu’” 错误。 
 8.可以正常使用了。

上一篇:Glimpse


下一篇:【MongoDB】The Access control of mongodb