2Pascal-新时代的Pascal

标题: Delphi 10, 10.1下,android调用振动函数闪退乐视手机 [打印本页]

作者: fghydx 时间: 2016-5-11 14:46
标题: Delphi 10, 10.1下,android调用振动函数闪退乐视手机
本帖最后由 fghydx 于 2016-5-11 16:04 编辑

写了个函数,想调用这个函数执行振动.但无论是在CallInUIThread中还是直接写,都会在 LJO := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE);这一句闪退Delphi 10 也闪退  乐视手机

procedure Vibrator(Long: integer);
var
  LVibrator: JVibrator;
  LJO: JObject;
begin
  CallInUIThread(
procedure
begin
   try
      LJO := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE);       //在执行这一句时闪退
      if Assigned(LJO) then
      begin
      LVibrator := TJVibrator.Wrap((LJO as ILocalObject).GetObjectID);
      if LVibrator.hasVibrator then
      begin
         LVibrator.vibrate(Long);
      end
      else
      begin
         ShowToast('你的手机不支持振动！', ShortToast);
      end;
      end;
   except
      ShowToast(Exception(ExceptObject).Message, TToastLength.ShortToast);
   end;
end);
end;

LJO := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE);       //这一句错了,应该是
LJO := SharedActivity.getSystemService(TJContext.JavaClass.VIBRATOR_SERVICE);

作者: wang_80919 时间: 2016-5-11 15:17
关于调用 JNI JAR java 的说明和注意事项，调用第靠写不下了
http://www.2pascal.com/thread-1384-1-1.html
本帖内部可能有答案。
你自己找找吧。

欢迎光临 2Pascal-新时代的Pascal (http://2pascal.com/)