Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Uses
- {$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}
- //In your Application
- 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement