Delphi 跨平台打开网址链接

本文整理自网络，侵删。

 
{$IF DEFINED(MSWINDOWS)}
uses shellapi;
{$ENDIF}

{$IF DEFINED(ANDROID)}
uses Androidapi.Helpers, Androidapi.JNI.Os,Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, Androidapi.JNI.Net;
{$ENDIF}

procedure THeaderFooterForm.openurl(UrlStr: string);
//调用系统WEB显示网页
{$IF DEFINED(ANDROID)}
var
    intent: JIntent;
begin
    //安卓下调用WEB显示指定网页
    intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,
        StrToJURI(UrlStr));
    SharedActivityContext.startActivity(intent);
{$ELSEIF DEFINED(MSWINDOWS)}
begin
    //Win
  //  ShellExecute(0, nil, PChar(UrlStr), nil, nil, SW_SHOWDEFAULT);
{$ELSE}
begin
{$IFDEF IOS}
    SharedApplication.OpenUrl(StrToNSUrl(UrlStr));
{$ELSE}
    _system(MarshaledAString(TEncoding.Default.GetBytes('open ' + UrlStr)));
{$ENDIF}
{$ENDIF}
end;


调用方法：
openurl('http://www.1231818.com/');
 

相关阅读 >>

Delphi tstringlist删除重复项

Delphi 苹果系统弹出链接

Delphi 添加或解除引号

Delphi中控件数组批量赋值

Delphi 系统托盘 trayicon

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi datasnap http用法注意事项

Delphi xe sha1

Delphi 关于 "高位" 与 "低位"

Delphi speedbutton按钮动态加载图片（从image和imagelist）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 跨平台打开网址链接