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;

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

Delphi调用android振动功能

测试环境

参考代码

权限

用Delphi创建桌面快捷方式及win7锁定任务栏等功能

Delphi7中ZEOSDBO控件使用

参与评论

快速导航

Delphi调用android振动功能

测试环境

参考代码

权限

分享本文封面

相关文章

参与评论

登录

快速导航