Delphi XE5 Android Phone vibrate (through Jobject test support vibration)

The source code is as follows:

[Delphi]View PlainCopy

2. Uses
4. Androidapi. JNI. Os,
6. Androidapi.  Jnibridge;
10. function Getvibratorarray (const Aintarr: array of Int64): tjavaarray<int64>;
12. Var
14. Lindex:integer;
16. Begin
18. Result: = Tjavaarray<int64>. Create (Length (Aintarr));
20. For LIndex: = Low (Aintarr) to High (Aintarr) does
22. Result.  Items[lindex]: = Aintarr[lindex];
24. End
28. Procedure Vibratortest;
30. Var
32. Lvibratorobj:jobject;
34. Lvibrator:jvibrator;
36. ljavaarray:tjavaarray<int64>;
38. Begin
40. {Vibrator Summary:
42. Cancel (): Off vibration
44. Hasvibrator (): Check if hardware is supported
46. Vibrate (long milliseconds): vibration milliseconds ms
48. Vibrate (long[] pattern, int repeat): Vibrate by given array}
52. {You need to turn on vibrator permissions}
54. //<del>lvibrator: = tjvibrator.create as jvibrator;</del>
56. {Create 2014-5-8 update using the official recommended method}
58. Lvibratorobj: = Sharedactivity. Getsystemservice (
60. Tjcontext. Javaclass.    Vibrator_service);
62. Lvibrator: = Tjvibrator. Wrap ((lvibratorobj as ilocalobject).  Getobjectid);
66. {Test whether the phone supports vibration}
68. if not lvibrator. Hasvibrator Then
70. begin
72. ShowMessage (' mobile phone does not support vibration ');
74. Exit;
76. end;
80. {Test procedure vibrate (milliseconds:int64); cdecl; overload;}
84. {Effect A: immediate vibration 800 milliseconds}
86. Lvibrator.vibrate (800);
90. {Test procedure vibrate (pattern:tjavaarray<int64>; repeat_: Integer); cdecl; overload;
92. Pattern: For vibrating array parameters, even for waiting time (ms), odd for vibration duration (ms)
94. Repeat_:-1: Shake only once; >-1: Start repeating vibrations from the position of index Repeat_}
98. {Create Test array}
100. Ljavaarray: = Getvibratorarray ([3000, +, + ]);
104. {effect B: Wait 500 milliseconds, vibration 1 seconds, wait 2 seconds, shake 3 seconds}
106. Lvibrator.vibrate (Ljavaarray,-1);
110. {effect c: effect B repeats vibration}
112. Lvibrator.vibrate (Ljavaarray, 0);
116. {Cancel vibrate (automatically cancels when the phone is in a dark screen or lock screen)}
118. Lvibrator.cancel;
122. {effect D: (wait 500 milliseconds, vibration 1 seconds, wait for 2 seconds, shake 3 seconds) (shake first in the original order)
124. then loop [1000, 2000, 3000]
126. (Wait 1 seconds, shake 2 seconds-> Wait 3 seconds)
128. ->[wait 1 seconds--wait 2 seconds ...]
130. This sounds like (wait 4 seconds, shake 2 seconds)}
132. //Lvibrator.vibrate (Ljavaarray, 1);
136. {effect E: (Executed once in the original order), then no vibration (even waiting time)}
138. Lvibrator.vibrate (Ljavaarray, 3);
142. {effect F: Of course, Report indexoutbounds exception}
144. Lvibrator.vibrate (Ljavaarray, {!!!} 4);
148. End

http://blog.csdn.net/flcop/article/details/13290779

Delphi XE5 Android Phone vibrate (through Jobject test support vibration)