Ver Mensaje Individual
  #1  
Antiguo 06-02-2014
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Reputación: 18
kurono Va por buen camino
Uso del Vibrador en Delphi Xe5

la amigos les cuento que encontre un codigo en una pagina japonesa que suspuestamente hace vibrar el celular pero a mi no me funciona incluso dandole permiso de vibrar en la optciones del proyecto el error que me lanza es ACCESS VIOLATION AT ADDRESS 80B3F6C8,ACCESSING ADDRESS 00000C aqui les muestro el codigo
Código Delphi [-]
uses
  Androidapi.JNIBridge, // ILocalObject
  Androidapi.JNI.App, // TJActivity
  Androidapi.JNI.Os, // JVibrator
  Androidapi.JNI.JavaTypes, // JObject
  FMX.Helpers.Android; // SharedActivity

var
  VibratorObj: JObject;
  Vibrator: JVibrator;
begin
  VibratorObj := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE);
  Vibrator    := TJVibrator.Wrap((VibratorObj as ILocalObject).GetObjectID);
  Vibrator.vibrate(1000); //1000 milesegundo
end;

mi sistema es un android 2.3.6 en un HUAWEI Y220
Responder Con Cita