如何用Delphiz做简单的Gecko浏览器

如何用Delphiz做简单的Gecko浏览器

研究如何使用Delphi写嵌入式浏览器。本文参考网络文章《使用Gecko内核的浏览器控件》。

    文章地址：

http://hi.baidu.com/rarnu/blog/item/b6acba092f0232236a60fb78.html/cmtid/b9ac4534c6a81645241f1404

 

主要是安装文件配置好环境，然后才能编译成功。

配置步骤：

1.       下载Gecko SDK，地址：

http://www.brsbox.com/filebox/down/fc/9cd118bd0651e92e8ea40a536c3758f7

这个是Gecko内核的开发包，下载完的文件包包含：GeckoComponents，GeckoSdk，gre三个文件夹。或者到地址：

http://www.ftp.newbielabs.com/Delphi%20Gecko%20SDK/ 下载文件。

2.       首先打开delphi 2007 安装GeckoSDK文件夹中的GeckoSDK.dpk ，然后安装GeckoComponents文件夹当中的GeckoComponents.dpk 。

3.       然后在Tool à OptionsàEnvironment Options àLibraryàLibrary path 中包含Gecko sdk中三个文件夹。

4.       完成上一步骤之后，在delphi工具栏当中会多出一组控件，Gecko组的TGeckoBrowser和TGeckoSimpleProfile两个控件。如图。

5.       建立新的VCL Forms Application ，在Form中拖入两个控件。

6.       现在的情况去编译是不成功的，在TGeckoBrowser.Create上会出现：Error：GRE_Startup（）;错误。原因是还没安装好一个完整的Gecko运行环境。

7.       下载Mozilla版本1.7，地址：

http://ftp.mozilla.org/pub/mozilla.org/mozilla/releases/mozilla1.7.13/mozilla-win32-1.7.13-installer.exe

8.       安装完mozilla-win32-1.7.13-installer.exe，解决5中的错误。程序编译成功。

9.       现在来看看控件是否有作用。添加TButton控件和TEdit控件，在Button中添加代码procedure TForm1.Button1Click(Sender: TObject);

begin

             GeckoBrowser1.LoadURI(edtURL.Text);

end;

其中GeckoBrowser1为添加的TGeckoBrowser控件名称。edtURL为TEdit控件名称。

10.    编译成功。运行程序，就能看到效果了，在输入框中输入网址，点击Button1按钮。

11.    成功。