Перейти к содержанию
Fire Monkey от А до Я

Psolao

Пользователи
  • Постов

    2
  • Зарегистрирован

  • Посещение

Достижения Psolao

  1. Только не спешить с Release, дать проиграть, а то вместо звука будет ЧПОК.
  2. Не нужно каждый раз делать новый генератор. Выносим в форму 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;
×
×
  • Создать...