Delphi IOS MusicPlayer 鎖屏運行學習

 [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;