在ios应用程序中打开URL

Question

我需要在iOS应用程序中打开带有safari的网页。 XE2有iphoneall单元，暴露了UIApplication。 XE4不再使用FPC，所以我不能使用它。 Embarcadero documentation说我只能使用SDK与C ++或使用delphi接口（但仍然，macapi仅用于OSX，而​​不是iOS）。那么，似乎UIKit框架没有界面？！ 我尝试的另一个解决方案是

_system('open http://www.google.com');

但这完全没有影响！ 有没有其他方法可以打开网址，或者我没有运气来完成它？ 我知道有ios的TWebBrowser组件，但我不想只是为了显示一个网页。

Answer 1

两天前Embarcadero posted a code snippet to do exactly this的一个偶然的机会。

如果您使用的是XE4，请查看示例，您可以在最终代码中找到一个（抱歉，不确定名称）：

OpenURL('http://www.embarcadero.com');

这使用了XE4 FireMonkey框架和David Clegg编写的类助手，可以在示例中找到。

如果您使用的是较旧版本的FireMonkey，则可以使用相当繁琐的代码：

function SharedApplication: UIApplication;
begin
  Result := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  SharedApplication.openURL(TNSURL.Wrap(TNSURL.OCClass.URLWithString(NSSTR(PChar(String('http://www.embarcadero.com'))))));
end;

（归因：代码片段全部从linked blog post复制。）

从FireMonkey的早期开始，还有一个very old forum post显示如何解决这些问题（基本上是字符串NSString NSURL），虽然它有点过时 - 正如您在上面的代码中所看到的，FireMonkey已经成熟了 - 它可以让我们深入了解代码的根本原因。