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 获取窗体坐标

Delphi中tapplicationevents控件的用途与使用方法

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi第三方控件通用安装方法

Delphi seek函数中参数说明

Delphi关于邮箱收信的问题

Delphi操作usb摄像头类

Delphi假死线程堵塞解决办法

Delphi firedac,ado性能测试

Delphi 取pe文件的引入表和导出表

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

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