MainForm.pas

unit MainForm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Edit, FMX.Controls.Presentation,FMX.Platform.Android, FMX.Layouts,
  Androidapi.JNI.Os,System.Permissions, System.IOUtils,FMX.ListBox;

type
  TToolsForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    ScaledLayout1: TScaledLayout;
    Label2: TLabel;
    Button2: TButton;
    Button1: TButton;
    Edit2: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
    procedure DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  ToolsForm: TToolsForm;
  FPermissionReadExternalStorage,FPermissionWriteExternalStorage: string;   //申请权限用


implementation

{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}

uses
  Androidapi.JNI.GraphicsContentViewText,Androidapi.Helpers,Androidapi.JNI.Net,Androidapi.JNI.javatypes,Androidapi.JNI.app,
  Androidapi.JNI.Provider,Androidapi.JNIBridge,Androidapi.JNI.Location,unit1,unit2;

var
  urlstr:string;

procedure TToolsForm.Button1Click(Sender: TObject);
var
    Intent:JIntent;

begin


  if edit1.text='www.baidu.com' then
    urlstr:=edit1.text+'/s?&wd='+edit2.text
  else
    urlstr:=edit1.text;

  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString('https://'+ urlstr)));
  Intent.setPackage(StringToJString('com.android.browser')); //设置包名；
  TAndroidHelper.Activity.startActivity(Intent);
end;

procedure TToolsForm.Button2Click(Sender: TObject);
begin
   edit1.text:='';
   edit2.text:='';
end;

procedure TToolsForm.Button3Click(Sender: TObject);
var
    Intent:JIntent;
    healthcodeurl:string;
begin

  healthcodeurl:= 'https://mbd.baidu.com/ma/s/KW7UJIhQ';

  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString(healthcodeurl)));
  Intent.setPackage(StringToJString('com.baidu.searchbox')); //设置包名；
  TAndroidHelper.Activity.startActivity(Intent);
end;

procedure TToolsForm.Button4Click(Sender: TObject);
begin
   form1.show;
end;



procedure TToolsForm.Button5Click(Sender: TObject);
//var
    //Intent:JIntent;
    //userstr:string;
begin

   form2.show;
   {
  userstr:= edit1.text;
  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString(userstr)));
  Intent.setPackage(StringToJString('com.android.browser')); //设置包名；
  TAndroidHelper.Activity.startActivity(Intent);
  }
  {
  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString(BWLstr)));
  Intent.setPackage(StringToJString('com.example.android.notepad')); //设置包名；
  TAndroidHelper.Activity.startActivity(Intent);
  }


end;

procedure TToolsForm.ComboBox1Change(Sender: TObject);
begin
  edit1.text:=combobox1.items[combobox1.itemindex];
end;

procedure TToolsForm.FormCreate(Sender: TObject);
{var
  cursor: JCursor;  //读浏览器书签用
  ContentResolver:JContentResolver; }

begin


{$IFDEF ANDROID}
  FPermissionReadExternalStorage := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
  FPermissionWriteExternalStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
{$ENDIF}
PermissionsService.RequestPermissions([FPermissionReadExternalStorage, FPermissionWriteExternalStorage], TakePicturePermissionRequestResult, DisplayRationale);

//ContentResolver :=TAndroidHelper.Activity.getContentResolver();
//cursor := ContentResolver.query(StrToJURI('Browser.BOOKMARKS_URI'), Browser.HISTORY_PROJECTION, whereClause, null, orderBy);

end;
procedure TToolsForm.FormShow(Sender: TObject);
var
  favoritefile:string;
begin
  favoritefile:=System.IOUtils.Tpath.GetSharedDocumentsPath +'/myfavorite/myfavorite.txt';
  combobox1.items.loadfromfile(favoritefile);  //从文件读取收藏网址列表
end;

procedure RequestPermissionsResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin

end;
procedure TToolsForm.TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin

 // 申请的2个权限: READ_EXTERNAL_STORAGE and WRITE_EXTERNAL_STORAGE
  if (Length(AGrantResults) = 2) and (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted)  then
  begin
    //权限被用户允许的代码
  end
  else
    //权限被用户禁止的代码
    ShowMessage('权限受限，程序不能正常运行！')

end;
procedure TToolsForm.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
var
  I: Integer;
  RationaleMsg: string;
begin
  for I := 0 to High(APermissions) do
  begin
    if APermissions[I] = FPermissionReadExternalStorage then
      RationaleMsg := RationaleMsg + '应用需要读文件' + SLineBreak + SLineBreak
    else if APermissions[I] = FPermissionWriteExternalStorage then
      RationaleMsg := RationaleMsg + '应用需要写文件';
  end;

  ShowMessage(RationaleMsg)

end;


end.