如何使用 Delphi 和 API 在 Android 中发出提示音？

Question

看了 Androidapi.JNI.Media.pas 之后，我编写了以下程序：

uses
  Androidapi.JNIBridge,
  AndroidApi.JNI.Media;

procedure Sound(ADuration: Integer);

implementation

procedure Sound(ADuration: Integer);
var
  Volume: Integer;
  StreamType: Integer;
  ToneType: Integer;
  ToneGenerator: JToneGenerator;
begin

  Volume := TJToneGenerator.JavaClass.MAX_VOLUME;

  StreamType := ?
  ToneType := TJToneGenerator.JavaClass.TONE_DTMF_0;

  ToneGenerator := TJToneGenerator.JavaClass.init(StreamType, Volume);
  ToneGenerator.startTone(ToneType, ADuration);

end;

但我不知道如何为 StreamType 设置值？谢谢

Answer 1

流类型标识必须在其上播放哔哔声的流。它是 0 到 4 之间的整数：

STREAM_VOICE_CALL (0)
STREAM_SYSTEM (1)
STREAM_RING (2)
STREAM_MUSIC(3)
STREAM_ALARM(4)

如何使用 Delphi 和 API 在 Android 中发出提示音？

How do I make a beep sound in Android using Delphi and the API?

android

firemonkey

delphi-xe7