delphi 手機震動 IOS Android

標籤：inter   core   lsp   roo   err   directory   content   info   tools   

delphi 手機震動 IOS Android

delphi  手機震動 IOS Android 震動

https://community.embarcadero.com/blogs/entry/how-to-vibrate-ios-and-android-phones-using-firemonkey-and-xe8

http://blogs.embarcadero.com/davidi/2015/07/06/43894/

IOS方法

#import <AudioToolbox/AudioToolbox.h>
調用方法

SystemSoundID soundID;
kSystemSoundID_Vibrate是常量$FFF

AudioServicesPlaySystemSound(kSystemSoundID_Vibrate);

delphi 方法

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263

unit Umain; 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.ObjCRuntime,  Macapi.ObjectiveC,  iOSapi.Cocoatypes,  Macapi.CoreFoundation,  iOSapi.Foundation,  iOSapi.CoreImage,  iOSapi.QuartzCore,  iOSapi.CoreData{$ENDIF}  ; {$IFDEF IOS}Const  libAudioToolbox        = ‘/System/Library/Frameworks/AudioToolbox.framework/AudioToolbox‘;  kSystemSoundID_vibrate = $FFF; Procedure AudioServicesPlaySystemSound( inSystemSoundID: integer ); Cdecl; External libAudioToolbox Name _PU + ‘AudioServicesPlaySystemSound‘;{$ENDIF}  type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Déclarations privées }  public    { Déclarations publiques }  end; var  Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject);{$IFDEF ANDROID}Var  Vibrator:JVibrator;{$ENDIF}begin{$IFDEF ANDROID}  Vibrator:=TJVibrator.Wrap((SharedActivityContext.getSystemService(TJContext.JavaClass.VIBRATOR_SERVICE) as ILocalObject).GetObjectID);  // Vibrate for 500 milliseconds  Vibrator.vibrate(500);{$ENDIF}{$IFDEF IOS}  AudioServicesPlaySystemSound( kSystemSoundID_vibrate );{$ENDIF}end; end.

 

添加庫方法　　

ios must Add Path

RAD IDE>Tools>Options>SDK Manager>IOS 系統SDK

點擊 右側按鈕>Add a new path item.

Path on remote machine:$(SDKROOT)/System/Library/Frameworks

File mask:AudioToolbox

Path type:Other Path

Include subdirectories:

 點 OK>Update Local File Cache

windows系統電腦能看到更新到的AudioToolbox功能檔案。

D:\Users\Administrator\Documents\Embarcadero\Studio\SDKs\iPhoneOS9.1.sdk\System\Library\Frameworks\AudioToolbox.framework\Headers

 

參考

http://blog.csdn.net/tht2009/article/details/50183721

 

報錯

[DCC Error] E2597 ld: warning: directory not found for option 
‘-FE:\Users\Administrator\Documents\Embarcadero\Studio\SDKs\iPhoneOS9.3.sdk\System\Library\PrivateFrameworks‘
  ld: file not found: /System/Library/Frameworks/AudioToolbox.framework/AudioToolbox

解決方案：

1、收到建立目錄PrivateFrameworks

2、刪除windows目錄E:\Users\Administrator\Documents\Embarcadero\Studio\SDKs\iPhoneOS9.3.sdk。

    然後關閉IDE，刪除IDE裡3個SDK。然後重新下載，先下載ios32位，添加AudioToolbox庫，更新緩衝，再依次更新64位。

delphi 手機震動 IOS Android