Delphi IOS 上的 10 个 OpenURL

Delphi 10 OpenURL on IOS

我正在使用 Delphi 10

在 iOS 的旧 RAD Studio 版本中,可以在 Apple.Utils.pas

中将 openURL 与 SharedApplication 一起使用

但是找不到Apple.Utils.pas,在什么单位可以找到SharedApplicationopenURL

您可以在iOSapi.UIKit中找到SharedApplicationopenURL,您还需要iOSapi.foundation, Macapi.Helpers

要使用它,您需要一个 SharedApplication 对象和一个 NSURL 包含您要导航到的地址的对象

uses iOSapi.UIKit,iOSapi.foundation, Macapi.Helpers
var
    App : UIApplication;
    url : NSurl;
begin
    App := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication);
    url := TNSURL.Wrap(TNSURL.OCClass.URLWithString(StrToNSStr('http://www.whosebug.com')));
    if App.canopenURL(url) then //Check if there is a default App that can open the URL
      App.openURL(url) else
        ShowMessage('Can not open URL');
end;