Question

在Delphi 10.2 Tokyo中使用Androidapi.JNI.Media。

我正在尝试列出可用的铃声，并播放与当前默认铃声不同的铃声。

初始化JAudioManager和JRingtoneManager似乎可以，因为我可以播放默认铃声。

但是，当我尝试使用RingtoneManager来设置Type或获得Cursor时，程序会以系统弹出窗口终止，并显示“应用程序（名称）已被中断-重新启动应用程序”。

procedure TAudioPlayBackForm.Button2Click(Sender: TObject);
var
  AudioObj: JObject;
  AudioMgr: JAudioManager;
  RingtoneMgr: JRingtoneManager; 
  aUri: Jnet_Uri;
  cur: JCursor;
  ringt: JRingtone;
begin
  AudioObj := TAndroidHelper.Activity.getSystemService(TJContext.JavaClass.AUDIO_SERVICE );
  RingtoneMgr := TJRingtoneManager.Wrap((AudioObj as ILocalObject).GetObjectID);
  Log.d('TJRingtoneManager wrap ok');

  aUri := TJRingtoneManager.JavaClass.getActualDefaultRingtoneUri(SharedActivityContext, TJRingtoneManager.JavaClass.TYPE_NOTIFICATION);
  Log.d('getActualDefaultRingtoneUri = '+ JStringToString(aUri.toString) );                                                        

  ringt := TJRingtoneManager.JavaClass.getRingtone(SharedActivityContext, aUri);
  Log.d('getRingtone uri ok = '+ JStringToString( ringt.getTitle(SharedActivityContext) ));

  ringt.play;  // OK !

  RingtoneMgr.setType( 4 );   // <-- CRASH !
  Log.d('RingtoneMgr setType ok');

  cur := RingtoneMgr.getCursor;   // <-- CRASH !
  Log.d('RingtoneMgr getCursor ok = '+ intToStr(cur.getColumnCount));
end;

有什么主意吗？我忘了初始化吗？

我以this documentation作为参考。

Answer 1

您错误地创建了RingtoneManager实例。应该是：

// Forget about obtaining AudioObj - it's not relevant
RingtoneMgr := TJRingtoneManager.JavaClass.init(TAndroidHelper.Activity);

这需要Androidapi.Helpers单元

如何在Delphi中使用RingtoneManager.setType（）

1 个答案: