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 fdquery获取字段类型

Delphi 执行程序并等待完成2

Delphi之截取整个窗体图片

Delphi now 返回当前日期及时间

Delphi 在桌面中嵌入窗体

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi idhttp中设置非标准头信息和读写cookie

Delphi win32_networkadapter 网卡 参数说明

Delphi中for in 语法应用实例

Delphi中从dll,exe,icl中提取图标

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

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