您的位置：首页 > 编程语言 > Delphi

delphi 手机振动 IOS Android

2015-10-14 16:35 756 查看
delphi手机振动IOSAndroid振动
https://community.embarcadero.com/blogs/entry/how-to-vibrate-ios-and-android-phones-using-firemonkey-and-xe8http://blogs.embarcadero.com/davidi/2015/07/06/43894/
IOS方法

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

SystemSoundIDsoundID;
kSystemSoundID_Vibrate是常量[code]$FFF
AudioServicesPlaySystemSound(kSystemSoundID_Vibrate);[/code]

delphi方法

unitUmain;

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
{$IFDEFANDROID}
,Androidapi.JNI.Os,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.Helpers,
Androidapi.JNIBridge
{$ENDIF}
{$IFDEFIOS}
,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}
;

{$IFDEFIOS}
Const
libAudioToolbox='/System/Library/Frameworks/AudioToolbox.framework/AudioToolbox';
kSystemSoundID_vibrate=$FFF;

ProcedureAudioServicesPlaySystemSound(inSystemSoundID:integer);Cdecl;ExternallibAudioToolboxName_PU+'AudioServicesPlaySystemSound';
{$ENDIF}

type
TForm1=class(TForm)
Button1:TButton;
procedureButton1Click(Sender:TObject);
private
{Déclarationsprivées}
public
{Déclarationspubliques}
end;

var
Form1:TForm1;

implementation

{$R*.fmx}

procedureTForm1.Button1Click(Sender:TObject);
{$IFDEFANDROID}
Var
Vibrator:JVibrator;
{$ENDIF}
begin
{$IFDEFANDROID}
Vibrator:=TJVibrator.Wrap((SharedActivityContext.getSystemService(TJContext.JavaClass.VIBRATOR_SERVICE)asILocalObject).GetObjectID);
//Vibratefor500milliseconds
Vibrator.vibrate(500);
{$ENDIF}
{$IFDEFIOS}
AudioServicesPlaySystemSound(kSystemSoundID_vibrate);
{$ENDIF}
end;

end.


　　

iosmustAddPath

Pathonremotemachine:$(SDKROOT)/System/Library/Frameworks

Filemask:AudioToolbox

Pathtype:

Includesubdirectories:

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

                                        

                        
                        内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息 
                    

                    

                    

                        

                         标签： 
                                                

                        

                    


                

            


            

                
相关文章推荐

                

                

                    
                

            

        

        

            

            
            

                

                    
新的分享

                    

                        
                    

                

            


            

                

                    
章节导航