Delphi调用android振动功能
测试环境
- Delphi xe7 up1
- Win7旗舰版
- 小米5s
参考代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
uses Androidapi.JNI.App, Androidapi.JNIBridge, Androidapi.JNI.Os, Androidapi.Helpers; var LVibrator: JVibrator; begin LVibrator := TJVibrator.Wrap ((SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE) as ILocalObject).GetObjectID); // 调用振动 if not LVibrator.hasVibrator then begin ShowMessage('手机不支持震动'); Exit; end; LVibrator.vibrate(500); // 振动500毫秒 end; |
权限
在Project Options中设置Uses Permissions将Vibrate设为true
除特别注明外，本站所有文章均为阿明工作室原创，转载请注明出处来自https://www.amingstudio.com/delphi/222.html
