Lazarus 窗体中嵌套web浏览器的方法

bugxiong

这里我们介绍一些关于在一个Pascal程序窗体中显示或者通过调用浏览器来显示网页的组件。
通过浏览器打开一个页面显示OpenURL

OpenURL是最简单的一个方法，通过一个方法检查默认浏览器，然后通过传递参数来打开它。在窗体中可以是'mailto:aname@anaddress?subject=:::a subject'，或者是一个网站地址"http://"或者"https://"

uses LCLIntf; ... OpenURL('http://www.lazarus.freepascal.org');查找默认浏览器

在每个平台上面都有它不同的默认浏览器，在LCL unit lazhelphtml中保函了一个THTMLBrowserHelpViewer来启动一个浏览器来查看LCL帮助系统。你可以使用他的FindDefaultBrowser方法来查找默认浏览器，然后传递参数来启动他，例如：

1. uses
   
2.   Classes, ..., LCLProc, LazHelpHTML;
   
3. 
   
4. ...
   
5. 
   
6. implementation
   
7. 
   
8. procedure TMainForm.Button1Click(Sender: TObject);
   
9. var
   
10.   v: THTMLBrowserHelpViewer;
    
11.   BrowserPath, BrowserParams: string;
    
12. begin
    
13.   v:=THTMLBrowserHelpViewer.Create(nil);
    
14.   v.FindDefaultBrowser(BrowserPath,BrowserParams);
    
15.   debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
    
16.   v.Free;
    
17. end;

复制代码

给出的例子，在Linux中：

Browser=/usr/bin/xdg-open Params=%s

在Windows中你可以获取：

Browser=C:\windows\system32\rundll32.exe Params=url.dll,FileProtocolHandler %s

打开一个浏览器

你可以使用TProcessUTF8通过命令行来启动一个浏览器：

1. uses
   
2.   Classes, ..., LCLProc, LazHelpHTML, UTF8Process;
   
3. 
   
4. ...
   
5. 
   
6. implementation
   
7. 
   
8. procedure TMainForm.Button1Click(Sender: TObject);
   
9. var
   
10.   v: THTMLBrowserHelpViewer;
    
11.   BrowserPath, BrowserParams: string;
    
12.   p: LongInt;
    
13.   URL: String;
    
14.   BrowserProcess: TProcessUTF8;
    
15. begin
    
16.   v:=THTMLBrowserHelpViewer.Create(nil);
    
17.   try
    
18.     v.FindDefaultBrowser(BrowserPath,BrowserParams);
    
19.     debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
    
20. 
    
21.     URL:='http://www.lazarus.freepascal.org';
    
22.     p:=System.Pos('%s', BrowserParams);
    
23.     System.Delete(BrowserParams,p,2);
    
24.     System.Insert(URL,BrowserParams,p);
    
25. 
    
26.     // start browser
    
27.     BrowserProcess:=TProcessUTF8.Create(nil);
    
28.     try
    
29.       BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
    
30.       BrowserProcess.Execute;
    
31.     finally
    
32.       BrowserProcess.Free;
    
33.     end;
    
34.   finally
    
35.     v.Free;
    
36.   end;
    
37. end;

复制代码

内嵌浏览器组件到程序

使用Turbopower互联网控件

lazarus提供一个TurboPowerIPro包（lazarus/components/turbopower_ipro/turbopoweripro.lpk）保函下面功能：

• It contains a control to put onto a form. When you install the package in the IDE, you get some new components in the palette, so you can drop them onto a form just like any LCL control.
• It is written completely in Pascal and therefore works on all platforms out of the box without any extra installation.
• You have the full control, what files/urls are opened.
• It does not have all the features of a full webbrowser. No multimedia stuff, javascript or flash. This must be implemented by you.
  

同样里面保函一个查看html中保函图像和链接的例子
QT webkit

使用QT WidgetSet，你可以使用QT WidgetSet插入到LCL Form中，可以查看这里获取详细信息：http://users.telenet.be/Jan.Van.hijfte/qtforfpc/fpcqt4.html

THtmlPort

THtmlPort is a Lazarus/Free Pascal version of Dave Baldwin's HTML Components, including THtmlViewer, TFrameViewer and TFrameBrowser.

GeckoPort

GeckoPort是一个为Lazarus/Free Pascal开发Takanori Ito's Gecko SDK的delphi版本, 保函TGeckoBrowse组件.

转自：http://www.cit.cn/articles/original/2012/0904/7958.html

luoziyan24

顶

lhxzui

谢谢分享。

heroical

嗯，经常需要。要是能选择内核就好了。