Разработка кода приложения

Подключаем модули и библиотеки, которые будут использованы в программе (листинг 1).

unit Unit1; //название модуля.

interface //определяет внешний интерфейс модуля.

uses //определяет список модулей или библиотек, которые используются текущим модулем.

System.SysUtils, System. Types, System. UITypes,.

System.Classes, System. Variants, FMX. Types, FMX. Controls, FMX. Forms, FMX. Graphics, FMX. Dialogs, FMX. TabControl,.

FMX.StdCtrls, FMX.ListView.Types, FMX. ListView, FMX. Layouts, FMX. Media, FMX. Objects;

Листинг 1 — начало программы Список объектов Формы создается автоматически после добавления этого объекта. Объявляем названия процедур для объектов формы (см. приложение 2). Процедура для объединения действий пользователя и программы, объявление переменных (листинг 3).

var Key: Word; var KeyChar: Char; //определние переменных.

Shift: TShiftState);

procedure ImageRepeatClick (Sender: TObject);

Листинг 3 — процедура для объединения действий пользователя и программы Объявление процедуры для возвращения программы в исходное состояние.

Объявление процедуры для чтения тегов (листинг 4).

public.

procedure StopClear ();

procedure ID3tags ();

end;

Листинг 4 — объявление основных процедур Подключение основной библиотеки. Подключение библиотек для чтения тегов (листинг 5).

uses.

System.IOUtils, ID3v1Library, ID3v2Library;

Листинг 5 — подключение библиотек Объявление переменных. Переменным тегов присвоена константа Nil — значение не присвоенного указателя (листинг 6).

var.

PauseTime: integer = 0; // пауза.

ID3v1Tag: TID3v1Tag = nil;

ID3v2Tag: TID3v2Tag = nil;

Листинг 6 — объявление переменных Процедура для поиска файлов в файловой системе (листинг 17).

procedure TForm1. FormCreate (Sender: TObject);

var.

LList: TStringDynArray; // внутренний список файлов.

LItem: TListViewItem; // список треков в ListView1.

path: string; // папка в которой будет идти поиск файлов.

i: Integer;

begin //начало блока операторов.

{ // определение папки для поиска }.

if TDirectory. Exists ('/storage/') then.

path := '/storage/'.

else path := '/sdcard/';

Листинг 17 — процедура для поиска файлов Функция для поиска только mp3-файлов и вывода при их отсутствии (листинг 18).

{ // поиск mp3 файлов }.

try //начало блока инструкция для перехвата ошибок.

LList:=TDirectory.GetFiles (path,'*.mp3', TSearchOption. soAllDirectories);

except.

ShowMessage ('Нет файлов mp3!');

Exit;

end;

Листинг 18 — поиск mp3-файлов Отображение названий файлов в объекте ListView1 (листинг 19).

{ // обновление списка треков }.

ListView1.BeginUpdate;

try.

for i := 0 to Length (LList) — 1 do.

begin.

LItem := ListView1.Items.Add;

// удаления расширения файла из списка LItem. Text:=TPath.GetFileNameWithoutExtension (LList[I]);

// полный путь в Detail.

LItem.Detail := LList[I];

end;

finally.

ListView1.EndUpdate;

end;

Листинг 19 — отображение названий файлов Процедура для обработки действий пользователя (листинг 20).

procedure TForm1. FormKeyUp (Sender: TObject; var Key: Word; var KeyChar: Char;

Shift: TShiftState);

begin.

if Key = vkHardwareBack then.

begin.

if TabControl1. ActiveTab = TabItem2 then.

begin.

TabControl1.ActiveTab := TabItem1;

Key := 0;

end;

end;

end;

Листинг 20 — процедура для обработки действий пользователя Процедура для чтения тегов ID3v2 и отображения их в TabItem2 (см. приложение 2).

Процедура для чтения тегов ID3v1 и отображения их в TabItem2 (см. приложение 3).

Процедура для отображения треков и их выбора (листинг 23).

procedure TForm1. ListView1Change (Sender: TObject);

begin.

PlayClick (Self);

end;

Листинг 23 — выбор трека Процедура для обработки кнопки «Пауза». Остановка таймера на текущем времени воспроизведения, остановка трека (листинг 24).

procedure TForm1. PauseClick (Sender: TObject);

begin.

if (MediaPlayer1.State = TMediaState. Playing) then.

begin.

// текущее время воспроизведения трека.

PauseTime := MediaPlayer1.Media.CurrentTime;

// остановка проигрывания.

MediaPlayer1.Stop;

end;

end;

Листинг 24 — кнопка «Пауза» .

Процедура для обработки кнопки «Play». Начало проигрывания трека, остановка таймера, перезапуск трекбара для перемотки, проверка на паузу, чтение тегов, запуск таймера, включение кнопок (см. приложение 4).

Процедура для обработки кнопки «Следующий трек». Если за проигрываемым треком есть еще один трек, команда передается следующему блоку операторов. Если не активирована кнопка «Случайное воспроизведение», то начинает проигрываться следующий трек, иначе включается случайный трек.

Если активирована кнопка «Повторное воспроизведение» (отдельно или вместе с кнопкой «Случайное воспроизведение»), но при нажатии на «Следующий трек», текущий трек начинает проигрываться сначала (см. приложение 5).

Процедура для обработки кнопки «Предыдущий трек». Если перед проигрываемым треком есть еще треки, то команда передается следующему блоку операторов. Иначе кнопки становятся неактивными. Они активируются только при выборе трека в ListView1 (листинг 27).

procedure TForm1. PlayPrevClick (Sender: TObject);

begin.

if (ListView1.ItemIndex-1) AND ListView1. ItemIndex > 0) then.

begin.

ListView1.ItemIndex := ListView1. ItemIndex — 1;

PauseTime := 0;

PlayClick (Self);

end.

else begin.

StopClear;

end;

end;

Листинг 27 — кнопка «Предыдущий трек» .

Вспомогательная процедура для повторной активации элементов программы (листинг 28).

procedure TForm1. StopClear;

begin.

MediaPlayer1.Stop;

Timer1.Enabled := False;

ListView1.ItemIndex := -1;

TrackBar1.Value := 0;

TrackBar1.Enabled := False;

PauseTime := 0;

//включение кнопок.

PlayPrev.Enabled := False;

Play.Enabled := False;

Pause.Enabled := False;

Stop.Enabled := False;

PlayNext.Enabled := False;

end;

Листинг 29 — вспомогательная процедура Процедура для обработки кнопки «Стоп» (листинг 30).

procedure TForm1. StopClick (Sender: TObject);

begin.

if (MediaPlayer1.State = TMediaState. Playing) then.

begin.

StopClear;

end;

end;

Листинг 30 — кнопка «Стоп» .

Процедура для обработки трекбара. Смена позиции трекбара на текущую позицию воспроизведения. Обработка времени проигрывания. При завершении проигрывания трека, начинается следующий (см. приложение 6).

Вспомогательная процедура для обработки ошибок при воспроизведении (листинг 32).

procedure TForm1. TrackBar1Change (Sender: TObject);

begin.

// свойство Tag используется как флаг, чтобы избежать одновременное обновление.

// трекбара и MediaPlayer1. CurrentTime при воспроизведении.

if TrackBar1. Tag = 0 then.

begin.

// проверка на Паузу.

if (MediaPlayer1.State = TMediaState. Stopped) AND (PauseTime 0) then.

begin.

PauseTime := Round (TrackBar1.Value);

end.

else.

begin.

MediaPlayer1.CurrentTime:= Round (TrackBar1.Value);

end;

end;

end;

end.