震動，是調用了 安卓api ?JNI 里面的 函數 ?，這些都是 調用java的 ，如下面的引用，

uses

FMX.Helpers.Android,

Androidapi.JNI.App,

Androidapi.JNI.Os,

Androidapi.JNIBridge, FMX.StdCtrls;

還是分幾步，

1 ?新建一個手機項目

打開xe6， file ?---- ?new ----FireMonkeyMobile Application-Delphi

2 ? ?選擇black application 點擊ok。

3 ? ?在打開的窗口中，放入幾個個Button控件.

4、點擊保存按鈕，將程序保存在你事先設定好的目錄中。

5、給Button按鈕寫的點擊事件寫點代碼：

procedure TForm1.Button2Click(Sender: TObject);

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(200);//震動200ms

end;

6 ?運行 看看， 手機上直接就出來了，呵呵

7 ?再加幾個按鈕，看看，停止震動按鈕

procedure TForm1.Button5Click(Sender: TObject);

var

LVibrator:JVibrator;

LJavaArray:TJavaArray;

begin

LVibrator:=TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE ) as iLocalObject).GetObjectID );//調用震動

LVibrator.cancel ;//立刻停止震動

end;

8 ?然后如果要想，有規律的震動，怎么弄呢？ 繼續添加2個按鈕和一個函數

function GetVibratorArray(const AintArr:array of int64):TJavaArray;//震動規律函數

var

Lindex:integer;

begin

Result:=TJavaArray.Create(Length(AintArr));

for Lindex:=Low(AintArr) to High(AintArr) do

Result.Items [Lindex]:= AintArr[Lindex];

end;

procedure TForm1.Button3Click(Sender: TObject);

var

LVibrator:JVibrator;

LJavaArray:TJavaArray;

begin

LVibrator:=TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE ) as iLocalObject).GetObjectID );

if not LVibrator.hasVibrator ?then

begin

showmessage(‘手機不支持震動‘);

exit;

end;

LJavaArray:=GetVibratorArray([200,1000,3000,5000]);//調用震動規律

LVibrator.vibrate(LJavaArray,-1);//不重復， ?震動一 次

end;

procedure TForm1.Button4Click(Sender: TObject);

var

LVibrator:JVibrator;

LJavaArray:TJavaArray;

begin

LVibrator:=TJVibrator.Wrap((SharedActivity.getSystemService(TJActivity.javaClass.VIBRATOR_SERVICE ) as iLocalObject).GetObjectID );

if not LVibrator.hasVibrator ?then

begin

showmessage(‘手機不支持震動‘);

exit;

end;

LJavaArray:=GetVibratorArray([200,1000,3000,5000]);//調用震動規律

LVibrator.vibrate(LJavaArray,0);//v不停重復，大于0的參數，可以指定震動次數

end;

注意： 運行的時候，手機別黑屏。

http://blog.csdn.net/laorenshen/article/details/41148843

原文：http://www.cnblogs.com/findumars/p/5830126.html

總結

以上是生活随笔為你收集整理的android xe 调用 java,Delphi XE6 for Android 让手机震动（调用Java的函数）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。