Звук и вибра при нажатии на кнопку

[Pavel M]

Как проиграть стандартный звук системы "кнооцк" при нажатии на кнопку?

Про вибрацию вроде уже нашел:

uses
  FMX.Helpers.Android, Androidapi.JNI.JavaTypes, Androidapi.JNI.Os,
  Androidapi.JNI.App, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText;

implementation
 
{$R *.fmx}
 
uses
  FMX.Helpers.Android, Androidapi.JNI.JavaTypes, Androidapi.JNI.Os,
  Androidapi.JNI.App, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText;


procedure TForm1.Button1Click(Sender: TObject);
var
  VibratorObj: JObject;
  Vibrator: JVibrator;
begin
  VibratorObj := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE);
  Vibrator := TJVibrator.Wrap((VibratorObj as ILocalObject).GetObjectID);
  Vibrator.vibrate(StrToInt(ClearingEdit1.Text));
end;

 

[Rusland]

uses 
  AndroidApi.JNI.Media;

procedure MakeSound(ADuration: Integer);
var
  Volume: Integer;
  StreamType: Integer;
  ToneType: Integer;
  ToneGenerator: JToneGenerator;
begin
  Volume := TJToneGenerator.JavaClass.MAX_VOLUME; // задаем громкость
  StreamType := TJAudioManager.JavaClass.STREAM_ALARM; 
  ToneType := TJToneGenerator.JavaClass.TONE_DTMF_0; // тип звука
  ToneGenerator := TJToneGenerator.JavaClass.init(StreamType, Volume);
  ToneGenerator.startTone(ToneType, ADuration);
end;

Типы звука можно посмотреть здесь 

Изменено 29 марта, 2016 пользователем Rusland

[Pavel M]

Спасибо, звук воспроизводиться.

Однако при частом многократном обращении (поставил событие на клик по кнопке и покликал) появляются ошибки:

java.lang.RuntimeExceprion: Init failed

И я не нашел стандартного звука "чпок" , как будто все звуки только для работы с телефонией.

Изменено 30 марта, 2016 пользователем pvmmpv

[Rusland]

Тогда попробуйте найти этот звук "чпок" в mp3 и проиграйте его через MediaPlayer

[Pavel M]

я так и сделал, но полагаю это костыль.

Неужели нет API для применения. 

Интересна так же причина возникающих ошибок у предложенного вами варианта после 30 кликов

[Rusland]

16 часов назад, pvmmpv сказал:

Интересна так же причина возникающих ошибок у предложенного вами варианта после 30 кликов

К сожалению, не знаю ответа 

[okil]

Самый удобный вариант это самому сделать-создать звук из коллекции мр3  и потом взят отрывок обрезать .

[x11]

В 29.03.2016 в 08:39, Rusland сказал:

Volume := TJToneGenerator.JavaClass.MAX_VOLUME; // задаем громкость

 

А как использовать значение по умолчанию?

[Psolao]

Не нужно каждый раз делать новый генератор.

Выносим в форму

 ToneGenerator: JToneGenerator;

procedure TForm1.FormShow(Sender: TObject);
begin
  inherited;
  {$IFDEF ANDROID}
  ToneGenerator:=nil;
  {$ENDIF}
end;

 

procedure TForm1.beep;
var
  Volume: Integer;
  StreamType: Integer;
  ToneType: Integer;
begin
  {$IFDEF ANDROID}
  if not assigned(ToneGenerator) then
  begin
    Volume := TJToneGenerator.JavaClass.MAX_VOLUME; // задаем громкость
    StreamType := TJAudioManager.JavaClass.STREAM_NOTIFICATION;
    ToneType := TJToneGenerator.JavaClass.TONE_CDMA_SOFT_ERROR_LITE; // тип звука
    ToneGenerator := TJToneGenerator.JavaClass.init(StreamType, Volume);
  end;
  ToneGenerator.startTone(ToneType,1000);
  {$ENDIF}
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  {$IFDEF ANDROID}
  if assigned(ToneGenerator) then
    ToneGenerator.release;
  {$ENDIF}
end;

 

 

[Hevard]

Деплоим в assets\internal\ файл звука (мр3 или ogg), размещаем на Форме компонент MediaPlayer1 и используем:

procedure TMainForm.MakeSound;
begin
  {$IFDEF ANDROID}
   MediaPlayer1.FileName := TPath.Combine(TPath.GetDocumentsPath, 'Button.ogg');
   MediaPlayer1.Play;
  {$ENDIF}
end;

К примеру:

procedure TMainForm.Button2Click(Sender: TObject);
begin
//====================
...

...
  MakeSound;
//======================
end;

 

Изменено 19 января пользователем Hevard

[Hevard]

В 29.03.2016 в 21:09, Pavel M сказал:

как будто все звуки только для работы с телефонией.

Всё верно. В этом примере используются тоновые звуки стандарта CDMA