Delphi调用android振动功能
测试环境
- Delphi xe7 up1
- Win7旗舰版
- 小米5s
参考代码
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