Firemonkey实现Mac OS程序中内嵌浏览器的功能（自己动手翻译，调用苹果提供的webkit框架）

XE系列虽然可以跨平台，但是在跨平台的道路上只是走了一小半的路，很多平台下的接口都没实现彻底，所以为了某些功能，还必须自己去摸索。

想实现程序中可以内嵌浏览器的功能，但是Firemonkey还没有对应的控件，

TMS 倒是提供了true native Mac OS-X application development，TMS mCL 以及 JVEsoft的组件包，提供了对应的web浏览器控件，但是都不是免费的，而且试用么TMS的问题还是有很多，为了省银子，卷起袖子自己搞。

思路其实很简单，苹果已经提供了webkit的框架，我的firemonkey只要能调用他的框架，就能使用它的功能了。

这也是XE系列的思路。

现在要做的是如何翻译Mac OS Api了，这还是第一次搞，所以还不知道怎么弄，翻山越岭搜了一下，发现翻译想自己实现webview的只有一个信息http://stackoverflow.com/questions/9731817/webview-not-displaying-in-macos-using-delphi-xe2，他遇到了无法显示出来的一个问题。我跑了他的代码，发现XE2下的代码已经不能在XE4下运行了，稍作修改后，程序可以正常运行了，但是一直没有效果，真的很困惑，问题出在哪里了呢？

在github上有搜到了类似的代码，看代码应该是日本人写的https://gist.github.com/tokibito/6945988/raw/6770e1fd3f8b3c8fd2e0da5498248a7e79f73944/Unit1.pas，还是打不开网页。

于是发帖求助，一个老外给出了实现的方案，真心感谢，也不得不佩服他们。

1. unit Unit1;
2. interface
3. uses
4. System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
5. System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
6. FMX.StdCtrls, Macapi.CocoaTypes, Macapi.Foundation, Macapi.AppKit,
7. Macapi.ObjectiveC, FMX.Platform.Mac;
8. type
9. WebFrameClass = interface(NSObjectClass)
10. ['{7BE750C8-DFEC-4870-851A-12DBCB0B78F6}']
11. end;
12. WebFrame = interface(NSObject)
13. ['{BCFA04BE-41AB-4B78-89C0-3330F12C7695}']
14. procedure loadRequest(request: NSURLRequest); cdecl;
15. end;
16. TWebFrame = class(TOCGenericImport<WebFrameClass, WebFrame>)  end;
17. WebViewClass = interface(NSViewClass)
18. ['{0D9F44B7-09FD-4E35-B96E-8DB71B9A2537}']
19. {class} function canShowMIMEType(MIMEType: NSString): Boolean; cdecl;
20. end;
21. WebView = interface(NSView)
22. ['{C36D8016-2FCB-49F0-BA1C-C9913A37F9AC}']
23. procedure clos; cdecl;
24. procedure setHostWindow(hostWindow: NSWindow); cdecl;
25. function initWithFrame(frame: NSRect; frameName: NSString; groupName: NSString): Pointer; cdecl;
26. function mainFrame: WebFrame; cdecl;
27. end;
28. TWebView = class(TOCGenericImport<WebViewClass, WebView>)  end;
29. TOCLocalAccess = class(TOCLocal);
30. TForm1 = class(TForm)
31. procedure FormCreate(Sender: TObject);
32. private
33. MyWebView: WebView;
34. end;
35. var
36. Form1: TForm1;
37. implementation
38. {$R *.fmx}
39. procedure TForm1.FormCreate(Sender: TObject);
40. var
41. PWebView: Pointer;
42. FwkMod: HMODULE;
43. urlStr: NSURL;
44. urlreq: NSURLRequest;
45. ObjTOC: TOCLocal;
46. MyView: NSView;
47. const
48. WebKitFWK: string = '/System/Library/Frameworks/WebKit.framework/WebKit';
49. begin
50. FwkMod := System.SysUtils.LoadLibrary(PWideChar(WebKitFWK)); //必须要加
51. MyView := WindowHandleToPlatform(Form1.Handle).View;
52. PWebView := TWebView.Alloc.initWithFrame(MakeNSRect(10, 10, 200, 200), nil, nil);
53. MyWebView := TWebView.Wrap(PWebView);
54. MyView.addSubview(MyWebView);
55. urlStr := TNSURL.Wrap(TNSURL.Alloc.initWithString(NSSTR('http://www.baidu.com/'))); // never ever call initWith... on an object created with "create". Some of these already fail on Mavericks, some may fail in the future
56. urlreq := TNSURLRequest.Create;  // fixing this is left as an exercise for the reader :) see previous line
57. urlreq.initWithURL(urlstr);      //  .....
58. MyWebView.mainFrame.loadRequest(urlreq);
59. urlreq.release; // if you call alloc or create, you also have to call release, otherwise you will leak your object (create rule)
60. // same for urlstr, ...
61. end;
62. end.

1. var
2. PWebView: Pointer;
3. FwkMod: HMODULE;
4. urlStr: NSURL;
5. urlreq: NSURLRequest;
6. ObjTOC: TOCLocal;
7. MyNSWindow : NSWindow;
8. MyView: NSView;
9. const
10. WebKitFWK: string = '/System/Library/Frameworks/WebKit.framework/WebKit';
11. begin
12. FwkMod := System.SysUtils.LoadLibrary(PWideChar(WebKitFWK));
13. {//方法一
14. ObjTOC := (WindowHandleToPlatform(Form1.Handle).Handle as TOCLocal);
15. MyNSWindow := NSWindow(TOCLocalAccess(ObjTOC).Super);}
16. //方法二
17. MyNSWindow := WindowHandleToPlatform(Form1.Handle).Wnd;
18. PWebView := TWebView.Alloc.initWithFrame(MakeNSRect(0, 0, 200, 200), nil, nil);
19. MyWebView := TWebView.Wrap(PWebView);
20. MyWebView.setHostWindow(MyNSWindow);
21. //导致错误的地方
22. //urlStr := TNSURL.Create;
23. //urlstr.initWithString(NSSTR('http://www.google.com.hk/'));
24. urlStr := TNSURL.Wrap(TNSURL.Alloc.initWithString(NSSTR('http://www.google.com.hk/')));
25. urlreq := TNSURLRequest.Create;
26. urlreq.initWithURL(urlstr);
27. MyWebView.mainFrame.loadRequest(urlreq);
28. MyNSWindow.setContentView(MyWebView);
29. end;

http://blog.csdn.net/qustdong/article/details/17139137