Delphi xe7 up1 调用android振动功能
Delphixe7up1调用android振动功能
振动用到以下4个单元:
Androidapi.JNI.App,Androidapi.JNIBridge,Androidapi.JNI.Os,Androidapi.Helpers
使用方法:
var
LVibrator:JVibrator;
begin
LVibrator:=TJVibrator.Wrap
((SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE)
asILocalObject).GetObjectID);//调用振动
ifnotLVibrator.hasVibratorthen
begin
ShowMessage('手机不支持震动');
Exit;
end;
LVibrator.vibrate(500);//振动500毫秒
最后在ProjectOptions中设置UsesPermissions将Vibrate设为true
详细程序如下:
unitUnit6;
interface
uses
System.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,Androidapi.JNI.App,
FMX.Types,FMX.Controls,FMX.Forms,FMX.Graphics,FMX.Dialogs,FMX.StdCtrls,
Androidapi.JNIBridge,Androidapi.JNI.Os,Androidapi.Helpers;
type
TForm6=class(TForm)
Button1:TButton;
procedureButton1Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form6:TForm6;
implementation
{$R*.fmx}
procedureTForm6.Button1Click(Sender:TObject);
var
LVibrator:JVibrator;
begin
LVibrator:=TJVibrator.Wrap
((SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE)
asILocalObject).GetObjectID);//调用振动
ifnotLVibrator.hasVibratorthen
begin
ShowMessage('手机不支持震动');
Exit;
end;
LVibrator.vibrate(500);//振动500毫秒
end;
end.
更多相关文章
- Android发送短信功能代码
- Android之——实现应用卸载功能
- android获得手机的电量
- 智能手机软件平台 Android VS iPhone OS: 技术先进性分析 (3/4)
- 智能手机软件平台 Android VS iPhone OS: 商业模式分析 (2/4)
- Android中实现Launcher功能之一 ----- 添加快捷方式
- 智能手机软件平台 Android VS iPhone OS: 平台对比分析 (1/4)
- Android手机开发:将按钮置于底部
- Android基于特征码查杀手机病毒