[weak] FMusicPlayer: TMusicPlayer;

 [weak]修饰, 编译器在处理这个变量的时候不会调用该变量内容的__ObjAddRef和__ObjRelease.，

 

procedure DoUpdateUI(newPos: Single);//更新进度条

procedure UpdateNowPlaying(newIndex: Integer);//当前播放歌曲名称等信息

procedure UpdateSongs;//添加歌曲列表

procedure SongChanged(newIndex: Integer);//切换歌曲

procedure StateChanged(state: TMPPlaybackState);//更新播放、暂停等几个按钮Enabled

 

procedure TFMXMusicPlayerFrm.DoUpdateUI(newPos: Single);var  handler: TNotifyEvent;begin  handler := tbProgress.OnChange;  tbProgress.OnChange := nil;  tbProgress.Value := newPos;  tbProgress.OnChange := handler;end;

 

MusicPlayer.Utils公共变量等方法定义。

TMusicPlayer.DefaultPlayer.OnProcessPlay := DoUpdateUI;

经过日志跟踪，DoUpdateUI在运行的时候不断的更新，但是进入后台DoUpdateUI也不执行了，中断执行了！

 

锁屏后上一首、下一首、停止，怎么不起作用了呢？

 

经过日志跟踪，锁屏后 上一首、下一首、停止这些按钮都不会 被触发，锁屏后的暂停、播放执行的是后台别的机制？

播放按钮的图标，也应该是系统的，修改了form上的播放图标，锁屏后依然是原来的图标。

 不用weak修饰变量也能锁屏播放，用了mediaplay.ios就可以啦。

播放

TMediaPlayer

afileName := Format('tt%d.caf', [self.mytplaysoundid]); afileName := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetDocumentsPath, afileName); aplayer.FileName := afileName; aplayer.Play;

 

delphi对IOS音乐功能的转换

17\source\rtl\ios\iOSapi.MediaPlayer.pas

AVAudioSession

playbackSessionID

function playbackSessionID: NSString; cdecl;

 procedure setUseApplicationAudioSession(useApplicationAudioSession: Boolean); cdecl;

function useApplicationAudioSession: Boolean; cdecl;