Дата регистрации 19 Март 2026
0 ПродажDelphi XE5 muhitida android operatsion tizimi uchun dasturlar ishlab chiqish
![TProcessThread = class (TThread) private
[weak] FMusicPlayer: TMusicPlayer; FOnProcessPlay:
TOnProcessPlayEvent; procedure DoProcessPlay; public constructor
Create(CreateSuspended: Boolean; AMusicPlayer:
TMusicPlayer; processHandler: TOnProcessPlayEvent); destructor
Destroy; override; procedure Execute; override; end; protected class
var FInstance: TMusicPlayer; private
FCurrentIndex: Cardinal;
FPlaylist: TArray<TMPSong>;
FAlbums: TArray<TMPAlbum>;
FMusicPlayer: JMediaPlayer;
FPlayBackState: TMPPlaybackState;
FRepeatMode: TMPRepeatMode;
FShuffleMode: Boolean;
FDefaultAlbumImage: TBitmap;
FOnSongChange: TOnSongChangeEvent;
FOnProcessPlay: TOnProcessPlayEvent;
constructor Create(AType: TMPControllerType
TMPControllerType.App); procedure DoOnSongChange(newIndex:
Integer); procedure DoOnProcessPlay(newPos: Single); procedure
SetVolume(const Value: Single); procedure SetTime(const Value: Single);
procedure SetRepeatMode(const Value: TMPRepeatMode); procedure
SetShuffleMode(const Value: Boolean); function GetVolume: Single;
function GetTime: Single; function GetRepeatMode: TMPRepeatMode;
function GetDuration: Single; function GetPlaybackState:
TMPPlaybackState; function GetShuffleMode: Boolean; public
destructor Destroy; override; class procedure SetPlayerType(AType:
TMPControllerType); class function DefaultPlayer: TMusicPlayer;
property CurrentIndex: Cardinal read FCurrentIndex; property Volume:
Single read GetVolume write SetVolume; property Time: Single read
56](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_56.png?v=1)
![GetTime write SetTime; property Duration: Single read GetDuration;
property PlaybackState: TMPPlaybackState read GetPlaybackState; property
ShuffleMode: Boolean read GetShuffleMode write
SetShuffleMode; property RepeatMode: TMPRepeatMode read
GetRepeatMode write
SetRepeatMode; property Playlist: TArray<TMPSong> read FPlaylist;
property Albums: TArray<TMPAlbum> read FAlbums;
property DefaultAlbumImage: TBitmap read FDefaultAlbumImage write
FDefaultAlbumImage; property OnSongChange: TOnSongChangeEvent
read FOnSongChange
write FOnSongChange; property OnProcessPlay: TOnProcessPlayEvent
read FOnProcessPlay write
FOnProcessPlay; function GetAlbums: TArray<string>; function
GetSongs: TArray<string>; function GetSongsInAlbum(AName: string):
TArray<string>; function IsPlaying: Boolean; function CanSkipBack:
Boolean; function CanSkipForward: Boolean; procedure PlaySong(path:
string); procedure PlayByIndex(Index: Cardinal); procedure Play;
procedure Stop; procedure Pause; procedure Next; procedure Previous;
end; var
NoArtBitmap: TBitmap;
{$ENDIF} implementation {$IFDEF ANDROID}
{ TMusicPlayer } function TMusicPlayer.CanSkipBack: Boolean; begin
Result := (Length(FPlaylist) > 0) and (FCurrentIndex > 0) and
(FPlayBackState in [TMPPlaybackState.Playing,
TMPPlaybackState.Paused]); end; function TMusicPlayer.CanSkipForward:
Boolean; begin
Result := False;
if (Length(FPlaylist) = 0) or not (FPlayBackState
57](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_57.png?v=1)
![[TMPPlaybackState.Playing, TMPPlaybackState.Paused]) then
Exit(Result); case RepeatMode of TMPRepeatMode.One:
Result := FCurrentIndex in [Low(FPlaylist) .. High(FPlaylist)] ;
TMPRepeatMode.Default, TMPRepeatMode.None:
Result := FCurrentIndex in [Low(FPlaylist) .. High(FPlaylist)-1] ;
TMPRepeatMode.All:
Result := True; end; end; constructor TMusicPlayer.Create(AType:
TMPControllerType); begin
MainActivity.setVolumeControlStream(TJAudioManager.JavaClass.STREA
M_M
USIC);
FMusicPlayer := TJMediaPlayer.Create;
FPlayBackState := TMPPlaybackState.Stopped;
FRepeatMode := TMPRepeatMode.All;
FShuffleMode := False;
FDefaultAlbumImage:=TBitmap.CreateFromFile(TPath.Combine(TPath.Get
DocumentsPath,'MusicNote.png'));
TProcessThread.Create(True,self,DoOnProcessPlay).Start; end; class
function TMusicPlayer.DefaultPlayer: TMusicPlayer; begin
if not Assigned(FInstance) then FInstance := TMusicPlayer.Create;
Result := FInstance; end; destructor TMusicPlayer.Destroy; begin
FMusicPlayer.release; end; procedure
TMusicPlayer.DoOnSongChange(newIndex: Integer); begin
if Assigned(FOnSongChange) then
TThread.Queue(TThread.CurrentThread, procedure begin
FOnSongChange(newIndex);
end); end; procedure TMusicPlayer.DoOnProcessPlay(newPos: Single);
begin
if Assigned(FOnProcessPlay) then
58](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_58.png?v=1)
![TThread.Queue(TThread.CurrentThread, procedure begin
FOnProcessPlay(newPos);
end);
end; function TMusicPlayer.GetAlbums: TArray<string>; var projection:
TJavaObjectArray<JString>; cursor: JCursor; art_uri, uri: Jnet_Uri; begin
projection := TJavaObjectArray<JString>.Create(3); projection.Items[0] :=
TJAudio_AlbumColumns.JavaClass.ALBUM; projection.Items[1] :=
TJAudio_AlbumColumns.JavaClass.ARTIST;
projection.Items[2]:=StringToJString('_id');
art_uri:=TJnet_Uri.JavaClass.parse(StringToJString('content://media/
external/audi o/albumart')); cursor :=
MainActivity.getContentResolver.query(
TJAudio_Albums.JavaClass.EXTERNAL_CONTENT_URI,
projection,nil,nil, nil);
SetLength(Result, cursor.getCount);
SetLength(FAlbums, cursor.getCount + 1);
FAlbums[cursor.getCount] := TMPAlbum.AllMusicAlbum; while
(cursor.moveToNext) do begin
FAlbums[cursor.getPosition].Name:= JStringToString(cursor.getString(0));
FAlbums[cursor.getPosition].Artist:= JStringToString(cursor.getString(1));
FAlbums[cursor.getPosition].Album_ID := cursor.getInt(2);
uri:=TJContentUris.JavaClass.withAppendedId(art_uri,
FAlbums[cursor.getPosition].Album_ID); if
TFile.Exists(JStringToString(uri.getPath)) then
FAlbums[cursor.getPosition].Artwork :=
TBitmap.CreateFromFile(JStringToString(uri.getPath))
else
59](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_59.png?v=1)
![FAlbums[cursor.getPosition].Artwork := FDefaultAlbumImage;
Result[cursor.getPosition] := FAlbums[cursor.getPosition].Name; end;
cursor.close; end; function TMusicPlayer.GetDuration: Single; begin
Result := FMusicPlayer.getDuration; end; function
TMusicPlayer.GetPlaybackState: TMPPlaybackState; begin
Result := FPlayBackState; end; function TMusicPlayer.GetRepeatMode:
TMPRepeatMode; begin
Result := FRepeatMode; end; function TMusicPlayer.GetShuffleMode:
Boolean; begin
Result := FShuffleMode; end; function TMusicPlayer.GetSongs:
TArray<string>; var projection: TJavaObjectArray<JString>;
cursor: JCursor; selection: JString; begin
selection
StringToJString(JStringToString(TJAudio_AudioColumns.JavaClass.IS_MU
SIC)
+ ' != 0'); projection := TJavaObjectArray<JString>.Create(5);
projection.Items[0] := TJAudio_AudioColumns.JavaClass.ARTIST;
projection.Items[1] := StringToJString('title'); projection.Items[2] :=
StringToJString('_data'); projection.Items[3] :=
TJAudio_AudioColumns.JavaClass.ALBUM; projection.Items[4] :=
TJAudio_AudioColumns.JavaClass.DURATION;
cursor := MainActivity.getContentResolver.query(
TJAudio_Media.JavaClass.EXTERNAL_CONTENT_URI,
projection,selection,nil, nil);
SetLength(Result,cursor.getCount); SetLength(FPlaylist, cursor.getCount);
while (cursor.moveToNext) do begin
FPlaylist[cursor.getPosition] := TMPSong.FromCursor(cursor);
Result[cursor.getPosition] := Format('[%s]-[%s]',
60](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_60.png?v=1)
![[FPlaylist[cursor.getPosition].Artist, FPlaylist[cursor.getPosition].Title]);
end; cursor.close; end; function TMusicPlayer.GetSongsInAlbum(AName:
string): TArray<string>; var projection: TJavaObjectArray<JString>;
cursor: JCursor; selection: JString; begin if AName =
TMPAlbum.AllMusicAlbum.Name then begin
Result := GetSongs; Exit; end;
selection
StringToJString(JStringToString(TJAudio_AudioColumns.JavaClass.IS_MU
SIC)
+ ' != 0 and ' +
JStringToString(TJAudio_AudioColumns.JavaClass.ALBUM) + ' = "' +
AName + '"'); projection := TJavaObjectArray<JString>.Create(5);
projection.Items[0] := TJAudio_AudioColumns.JavaClass.ARTIST;
projection.Items[1] := StringToJString('title'); projection.Items[2] :=
StringToJString('_data'); projection.Items[3] :=
TJAudio_AudioColumns.JavaClass.ALBUM; projection.Items[4] :=
TJAudio_AudioColumns.JavaClass.DURATION; cursor :=
MainActivity.getContentResolver.query(
TJAudio_Media.JavaClass.EXTERNAL_CONTENT_URI,
projection,selection, nil,nil); SetLength(Result,cursor.getCount);
SetLength(FPlaylist, cursor.getCount); while (cursor.moveToNext) do begin
FPlaylist[cursor.getPosition] := TMPSong.FromCursor(cursor);
Result[cursor.getPosition] := Format('[%s]-[%s]',
[FPlaylist[cursor.getPosition].Artist, FPlaylist[cursor.getPosition].Title]); end;
cursor.close;
end; function TMusicPlayer.GetTime: Single; begin
Result := FMusicPlayer.getCurrentPosition; end; function
TMusicPlayer.GetVolume: Single; var
AudioManager: JAudioManager; begin
61](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_61.png?v=1)
![FPlayBackState := TMPPlaybackState.Paused; end; procedure
TMusicPlayer.Play; begin
if FPlayBackState = TMPPlaybackState.Stopped then
FMusicPlayer.prepare;
FMusicPlayer.start;
FPlayBackState := TMPPlaybackState.Playing; end; procedure
TMusicPlayer.PlayByIndex(Index: Cardinal); begin
FCurrentIndex := Index;
PlaySong(FPlaylist[FCurrentIndex].Path); end; function
TMusicPlayer.IsPlaying: Boolean; begin
Result := FMusicPlayer.isPlaying; end; procedure
TMusicPlayer.PlaySong(path: string); begin
Stop;
FMusicPlayer.reset;
FMusicPlayer.setDataSource(StringToJString(path)); Play; end; procedure
TMusicPlayer.Previous; begin if (FCurrentIndex > 0) and (FCurrentIndex <
Length(FPlaylist)) then begin
PlayByIndex(FCurrentIndex -1); DoOnSongChange(FCurrentIndex);
end; end;
class procedure TMusicPlayer.SetPlayerType(AType: TMPControllerType);
begin
// Do nothing end; procedure TMusicPlayer.SetRepeatMode(const Value:
TMPRepeatMode); begin
FRepeatMode := Value; end; procedure
TMusicPlayer.SetShuffleMode(const Value: Boolean); begin
FShuffleMode := Value; end; procedure TMusicPlayer.SetTime(const
Value: Single); begin
FMusicPlayer.seekTo(Trunc(Value)); end; procedure
TMusicPlayer.SetVolume(const Value: Single); var
63](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_63.png?v=1)
![AudioManager: JAudioManager; begin
AudioManager
TJAudioManager.Wrap(MainActivity.getSystemService(TJContext.JavaClass
.AU
DIO_SERVICE));
AudioManager.setStreamVolume(TJAudioManager.JavaClass.STREAM_M
USIC,
Round(AudioManager.getStreamMaxVolume(TJAudioManager.JavaClass.S
TREAM_MUSIC) * Value), 0);
end; procedure TMusicPlayer.Stop; begin
if FPlayBackState in [TMPPlaybackState.Playing,
TMPPlaybackState.Paused] then
FMusicPlayer.seekTo(0);
FPlayBackState := TMPPlaybackState.Stopped; FMusicPlayer.stop; while
FMusicPlayer.isPlaying do sleep(10);
DoOnProcessPlay(0); end;
{ TMusicPlayer.TProcessThread } constructor
TMusicPlayer.TProcessThread.Create(CreateSuspended:
Boolean;
AMusicPlayer: TMusicPlayer; processHandler: TOnProcessPlayEvent);
begin
inherited Create(CreateSuspended); FOnProcessPlay := processHandler;
FMusicPlayer := AMusicPlayer; end; destructor
TMusicPlayer.TProcessThread.Destroy; begin
FMusicPlayer := nil; inherited; end; procedure
TMusicPlayer.TProcessThread.Execute; begin inherited; while
Assigned(FMusicPlayer) do begin
case FMusicPlayer.PlaybackState of
Playing: DoProcessPlay;
64](https://docx.uz/documents/2736b71e-d984-4bba-b7ff-1e7f596cbcdd/page_64.png?v=1)
-
Похожие документы
- Android tizimli telefonlar uchun skaner ilovasini yaratish
- Web 2.0 servislar orqali oʻquv jarayonini tashkil etish
- Elektron jadvalning vazifalari va imkoniyatlari mavzusini multimedia asosida o‘qitish
- Adobe Muse dasturi yordamida A.Oripov hayoti va ijodi mavzusida multimediali elektron resurs yaratish
- Informatika fanini o‘qitishda innovatsion ishlanmalar yaratish texnologiyasi