Android实例-手机震动(XE8+小米2)-白红宇

Android实例-手机震动(XE8+小米2)

阅读量：6984 次

发布时间：2019-06-27

本文共 3167 字，大约阅读时间需要 10 分钟。

相关资料：http://blog.csdn.net/laorenshen/article/details/41148843

结果：

1.打开Vibrate权限为True。

2.规律震动我没感觉出来，有了解情况的请联系我。多谢了。

实例代码：

1 unit Unit1;  2   3 interface  4   5 uses  6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,  8   Androidapi.Helpers,//  9   FMX.Helpers.Android,// 10   Androidapi.JNI.App,// 11   Androidapi.JNI.Os,// 12   Androidapi.JNIBridge,// 13   FMX.StdCtrls, FMX.Controls.Presentation;// 14 type 15   TForm1 = class(TForm) 16     Button1: TButton; 17     Button2: TButton; 18     Button3: TButton; 19     Button4: TButton; 20     Label1: TLabel; 21     procedure Button1Click(Sender: TObject); 22     procedure Button2Click(Sender: TObject); 23     procedure Button3Click(Sender: TObject); 24     procedure Button4Click(Sender: TObject); 25   private 26     {
     Private declarations } 27   public 28     {
     Public declarations } 29   end; 30  31 var 32   Form1: TForm1; 33  34 implementation 35  36 {
    $R *.fmx} 37 {
    $R *.NmXhdpiPh.fmx ANDROID} 38  39 function GetVibratorArray(const AintArr:array of Int64):TJavaArray
     
      ;//震动规律函数 40 var 41   Lindex: Integer; 42 begin 43   Result:=TJavaArray
      
       .Create(Length(AintArr)); 44   for Lindex:=Low(AintArr) to High(AintArr) do 45     Result.Items[Lindex] := AintArr[Lindex]; 46 end; 47  48 procedure TForm1.Button1Click(Sender: TObject); 49 var 50   LVibrator: JVibrator; 51 begin 52   LVibrator := TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE) as iLocalObject).GetObjectID);//引用震动 53   if not LVibrator.hasVibrator then 54   begin 55     Showmessage('手机不支持震动'); 56     Exit; 57   end; 58   LVibrator.vibrate(200);//震动200ms 59 end; 60  61 procedure TForm1.Button2Click(Sender: TObject); 62 var 63   LVibrator:JVibrator; 64   LJavaArray:TJavaArray
       
        ; 65 begin 66   LVibrator := TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE) as iLocalObject).GetObjectID);//调用震动 67   LVibrator.cancel;//停止震动 68 end; 69  70 procedure TForm1.Button3Click(Sender: TObject); 71 var 72   LVibrator:JVibrator; 73   LJavaArray:TJavaArray
        
         ; 74 begin 75   LVibrator := TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE) as iLocalObject).GetObjectID); 76   if not LVibrator.hasVibrator  then 77   begin 78     Showmessage('手机不支持震动'); 79     Exit; 80   end; 81   LJavaArray := GetVibratorArray([200, 1000, 3000, 5000]);//调用震动规律//我没感觉出来，如果你们能感觉出来，给我说一下。 82   LVibrator.vibrate(LJavaArray, -1);//震动一遍 83 end; 84  85 procedure TForm1.Button4Click(Sender: TObject); 86 var 87   LVibrator:JVibrator; 88   LJavaArray:TJavaArray
         
          ; 89 begin 90   LVibrator:=TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE) as iLocalObject).GetObjectID); 91   if not LVibrator.hasVibrator  then 92   begin 93     Showmessage('手机不支持震动'); 94     Exit; 95   end; 96   LJavaArray := GetVibratorArray([200, 1000, 3000, 5000]);//调用震动规律 97   LVibrator.vibrate(LJavaArray, 0);//重复  //-1:震动一遍  0:重复   >0:指定震动遍数 98 end; 99 100 end.