If FCurrentIndex = Length(FPlaylist) - 1 thenįPlayBackState := TMPPlaybackState.Paused If CurrentIndex = Length(FPlaylist) - 1 then Result := Result / (MainActivity.getSystemService(_SERVICE) as JAudioManager).getStreamMaxVolume(_MUSIC) Result :=(MainActivity.getSystemService(_SERVICE) as JAudioManager).getStreamVolume(_MUSIC) Result := FMusicPlayer.getCurrentPosition JStringToString(TJAudio_) + ' = " ' + AName + '" ') Selection := StringToJString(JStringToString(TJAudio_MUSIC) + ' != 0 and ' + Artist, FPlaylist.Title]) įunction TMusicPlayer.GetSongsInAlbum(AName: string): TArray TJAudio_CONTENT_URI,įPlaylist := TMPSong.FromCursor(cursor) Projection.Items := StringToJString( '_data ') Projection.Items := StringToJString( 'title ') Projection := TJavaObjectArray.Create( 5) Selection := StringToJString(JStringToString(TJAudio_MUSIC) + ' != 0 ') Name įunction TMusicPlayer.GetDuration: Single įunction TMusicPlayer.GetPlaybackState: TMPPlaybackState įunction TMusicPlayer.GetRepeatMode: TMPRepeatMode įunction TMusicPlayer.GetShuffleMode: Boolean If TFile.Exists(JStringToString(uri.getPath)) thenįAlbums.Artwork := TBitmap.CreateFromFile(JStringToString(uri.getPath))įAlbums.Artwork := FDefaultAlbumImage Name := JStringToString(cursor.getString( 0)) įAlbums.Artist := JStringToString(cursor.getString( 1)) įAlbums.Album_ID := cursor.getInt( 2) TJAudio_CONTENT_URI,įAlbums := TMPAlbum.AllMusicAlbum įAlbums. Projection.Items := StringToJString( '_id ') Īrt_uri := TJnet_(StringToJString( 'content://media/external/audio/albumart ')) Ĭursor := ( Projection := TJavaObjectArray.Create( 3) Procedure TMusicPlayer.DoOnProcessPlay(newPos: Single) TThread.Queue(TThread.CurrentThread, procedure Procedure TMusicPlayer.DoOnSongChange(newIndex: Integer) TProcessThread.Create(True,self,DoOnProcessPlay).Start Ĭlass function TMusicPlayer.DefaultPlayer: TMusicPlayer Property OnProcessPlay: TOnProcessPlayEvent read FOnProcessPlay write FOnProcessPlay įunction GetSongsInAlbum(AName: string): TArray Ĭonstructor TMusicPlayer.Create(AType: TMPControllerType) įPlayBackState := TMPPlaybackState.Stopped įDefaultAlbumImage := TBitmap.CreateFromFile(TPath.Combine(TPath.GetDocumentsPath, 'MusicNote.png ')) Property OnSongChange: TOnSongChangeEvent read FOnSongChange write FOnSongChange Property DefaultAlbumImage: TBitmap read FDefaultAlbumImage write FDefaultAlbumImage Property Playlist: TArray read FPlaylist Property RepeatMode: TMPRepeatMode read GetRepeatMode write SetRepeatMode Property ShuffleMode: Boolean read GetShuffleMode write SetShuffleMode Property PlaybackState: TMPPlaybackState read GetPlaybackState Property Duration: Single read GetDuration Property Time: Single read GetTime write SetTime Property Volume: Single read GetVolume write SetVolume Property CurrentIndex: Cardinal read FCurrentIndex Procedure SetShuffleMode( const Value: Boolean) įunction GetPlaybackState: TMPPlaybackState Ĭlass procedure SetPlayerType(AType: TMPControllerType) Ĭlass function DefaultPlayer: TMusicPlayer Procedure SetRepeatMode( const Value: TMPRepeatMode) Procedure SetVolume( const Value: Single) Procedure DoOnProcessPlay(newPos: Single) Procedure DoOnSongChange(newIndex: Integer) System.IoUtils, System.SysUtils, System.Classes,Īndroidapi.JNIBridge,, ,Ī,, Androidapi.Helpers, Ĭonstructor Create(CreateSuspended: Boolean AMusicPlayer: TMusicPlayer processHandler: TOnProcessPlayEvent) Ĭonstructor Create(AType: TMPControllerType = TMPControllerType.App) and is subject to that software license agreement. the software license agreement that comes with the Embarcadero Products This software is considered a Redistributable as defined under of Delphi, C++Builder or RAD Studio (Embarcadero Products). You may only use this software if you are an authorized licensee This software is Copyright (c) 2013 Embarcadero Technologies, Inc.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |