Webview not displaying in MacOS using Delphi XE2

Question

I have started to convert the Webview interfaces to be consumed in Delphi. I have managed to get the webkit library to load, and the interface methods that is called appears to work correctly, however, I cannot seem to display the Webview on the main form.

Below is my interfaces that is declared

  WebFrameClass = interface(NSObjectClass)
  ['{7BE750C8-DFEC-4870-851A-12DBCB0B78F6}']
  end;

  WebFrame = interface(NSObject)
  ['{BCFA04BE-41AB-4B78-89C0-3330F12C7695}']
    procedure loadRequest(request: NSURLRequest); cdecl;
  end;
  TWebFrame = class(TOCGenericImport<WebFrameClass, WebFrame>)  end;

  WebViewClass = interface(NSViewClass)
  ['{0D9F44B7-09FD-4E35-B96E-8DB71B9A2537}']
    {class} function canShowMIMEType(MIMEType: NSString): Boolean; cdecl;
  end;

  WebView = interface(NSView)
  ['{C36D8016-2FCB-49F0-BA1C-C9913A37F9AC}']
    procedure clos; cdecl;
    procedure setHostWindow(hostWindow: NSWindow); cdecl;
    function initWithFrame(frame: NSRect; frameName: NSString; groupName: NSString): Pointer; cdecl;
    function mainFrame: WebFrame; cdecl;
  end;
  TWebView = class(TOCGenericImport<WebViewClass, WebView>)  end;

And here follows to code to construct a WebView:

procedure TForm2.Button1Click(Sender: TObject);
var
  PWebView: Pointer;
  FwkMod: HMODULE;
  MyWebView: WebView;
  urlStr: NSURL;
  urlreq: NSURLRequest;
const
  WebKitFWK: string = '/System/Library/Frameworks/WebKit.framework/WebKit';
begin
  FwkMod := System.SysUtils.LoadLibrary(PWideChar(WebKitFWK));
  PWebView := TWebView.Alloc.initWithFrame(MakeNSRect(10, 10, 300, 300), nil, nil);
  MyWebView := TWebView.Wrap(PWebView);

  urlStr := TNSURL.Create;
  urlstr.initWithString(NSSTR('http://google.com.au/'));
  urlreq := TNSURLRequest.Create;
  urlreq.initWithURL(urlstr);
  MyWebView.mainFrame.loadRequest(urlreq);
end;

The code executes without raising any exceptions, but just does not want to appear. What needs to be done differently in Delphi? The examples I found for objective C appears to be quite simple:

Some objective C examples I have seen mention IBOutlets. It does not look like this is relevant for Delphi.

How to make WebView OSX Xcode project load a URL on launch?

Thanks.

I think it is not possible since Delphi only use Cocoa to display a form, everything else is displayed using Quartz. Yous should'nt be able to display Cocoa objects without writing a complete vcl for Cocoa. — Henri Gourvest, Mar 16 '12 at 09:34
"freepascal" might not be an appropriate tag, since Free Pascal interfaces to Cocoa over Objective Pascal, not over interfaces and D2010 rtti (which FPC doesn't support yet). If you are interested in the matter, there is a rough start of a LCL Cocoa backend. (afaik it has basic FORM support working) — Marco van de Voort, Mar 16 '12 at 17:42
@HenriGourvest All I want to do is display a basic form with the webview control on it - Is there a way to only use cocoa without quartz? — Phillip Roux, Mar 17 '12 at 02:40
i don't know delphi at all, but reading your post it sounds like this has to do with either (the lack of a/proper) graphics context, or WebView needing a runloop in order to fetch/display the request. — arri, Oct 27 '12 at 22:15
I am not aware much about Delphi, but how it goes in normal programming is , you need to show window manually, to display the window/ widget etc.. — Amitg2k12, Dec 26 '12 at 13:23
From what I know without knowing any Pascal/Delphi you seem to be missing a addSubview, if you create a webview you need to add it as a subview of your form view? — j_mcnally, Mar 25 '13 at 19:50
Does anybody know what compiler @PhillipRoux is actually using? — David Heffernan, Apr 02 '13 at 09:49

moskito-x · Answer 1 · 2013-04-04T11:41:11.237

7

Getting the NSWindow of a FMX form
convert a TForm reference to a NSWindow
set Host Window.
MyWebView.setHostWindow(MyNSWindow)

procedure TForm2.Button1Click(Sender: TObject);
var
[...]
 ObjTOC: TOCLocal;
 MyNSWindow : NSWindow;
[...]  
 ObjTOC := (FmxHandleToObjC(Form2.Handle) as TOCLocal);
 MyNSWindow := NSWindow(TOCLocalAccess(ObjTOC).Super);

PWebView := TWebView.Alloc.initWithFrame(MakeNSRect(10, 10, 300, 300), nil, nil);
 MyWebView := TWebView.Wrap(PWebView);
 MyWebView.setHostWindow(MyNSWindow);

[...]
 MyWebView.mainFrame.loadRequest(urlreq);
end;

edited Apr 04 '13 at 11:41

answered Apr 03 '13 at 19:43

moskito-x

11,832
5
47
60

@PhillipRoux : Have you seen my answer ? – moskito-x Dec 05 '15 at 05:57

score 2 · Answer 2 · answered Apr 04 '13 at 05:18

2

Have you considered Chromium Embedded port for Delphi?

answered Apr 04 '13 at 05:18

Ricardo Falasca

115
1
3

Webview not displaying in MacOS using Delphi XE2

2 Answers2

Linked