XE6 firemonkey IOS-DELPHI中的打开URL

Question

早上好，

我正在尝试为android和IOS做一个跨平台的应用程序，以打开一个URL，该URL将作为参数在android默认浏览器中传递，我已经使用以下代码实现了：

 { Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,
  TJnet_Uri.JavaClass.parse(StringToJString
  ('http://www.***.com'));
  SharedActivity.startActivity(Intent); }

但是在IOS中，我不知道如何在默认浏览器中打开URL，我搜索了数千个使用方法的页面，但没有一个对我有帮助，如果可以的话，我将不胜感激！

Answer 1

这是我所做的事情的理想路径（不包括错误处理等）

uses
 //...
 IdURI,
{$IFDEF ANDROID}
  Androidapi.Helpers, FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText, 
  Androidapi.JNI.App, Androidapi.JNI.Net, Androidapi.JNI.JavaTypes
{$ENDIF ANDROID}

{$IFDEF MSWINDOWS}
  Winapi.ShellAPI, Winapi.Windows
{$ENDIF MSWINDOWS}

{$IFDEF IOS}
    Macapi.Helpers, iOSapi.Foundation, FMX.Helpers.iOS
{$ENDIF IOS}
    ;

和

//...
procedure TForm1.launchBrowser();
var
  myURL: string;
{$IFDEF ANDROID}
  Intent: JIntent;
{$ENDIF ANDROID}

{$IFDEF IOS}
  NSU: NSUrl;
{$ENDIF IOS}
begin
  myURL := 'http://www.example.com';
{$IFDEF MSWINDOWS}
  ShellExecute(0, 'OPEN', PChar(myURL), '', '', SW_SHOWNORMAL);
{$ENDIF MSWINDOWS}

{$IFDEF IOS}
  NSU   := StrToNSUrl(TIdURI.URLEncode(myURL));
  if SharedApplication.canOpenURL(NSU) then
  begin
    SharedApplication.openUrl(NSU);
  end;
{$ENDIF IOS}

{$IFDEF ANDROID}
  Intent := TJIntent.Create;
  Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
  Intent.setData(StrToJURI(myURL));
  TAndroidHelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
end;

注意：不建议使用“ SharedActivity”（至少在10 / Seatle中）。 替换似乎是“ TAndroidHelper.Activity”

Answer 2

我认为您应该那样做。 对我来说很完美：

http://delphi.org/2013/10/sending-a-url-to-another-app-on-android-and-ios-with-delphi-xe5/

Answer 3

uses Androidapi.Helpers;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var   Intent: JIntent;
begin
   Intent := TJIntent.Create;
   Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
   Intent.setData(StrToJURI('http://www.website.com.br/index.php'));
   SharedActivity.startActivity(Intent);
end;