Delphi FireMonkey 振动手机

最新推荐文章于 2024-10-10 08:54:41 发布

原创

最新推荐文章于 2024-10-10 08:54:41 发布 · 292 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ios

这篇博客介绍了如何在D10.4社区版的FireMonkey应用中，通过XE8为iOS和Android设备添加振动功能。在Android端，需要在项目设置中添加Vibrate权限，并使用JVibrator接口实现振动；在iOS端，通过AudioToolbox框架的AudioServicesPlaySystemSound函数来播放系统振动声音。

参考链接：

How to vibrate iOS and Android phones using FireMonkey and XE8 (embarcadero.com)

实测以下代码在 D10.4 社区版，OPPO 手机上运行成功。

前提：安卓系统，需要设置工程文件里面的用户权限：

需要 Vibrate 权限，在 Project - Options - UserPermissions 里面，找到 Vibrate ，勾选。

以下是全部测试代码：

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls
  {$IFDEF ANDROID}
  ,Androidapi.JNI.Os,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.Helpers,
  Androidapi.JNIBridge
{$ENDIF}
{$IFDEF IOS}
  ,IOSapi.MediaPlayer,  IOSapi.CoreGraphics,  FMX.Platform,  FMX.Platform.IOS,  IOSapi.UIKit,  Macapi.ObjCRunti