svn/view/Unit1.pas

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants, System.IOUtils, System.Math,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media,
  System.Actions, FMX.ActnList, FMX.Layouts, FMX.ListBox, FMX.StdCtrls,
  FMX.ListView.Types, FMX.ListView;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    ActionList1: TActionList;
    Action1: TAction;
    ListView1: TListView;
    Action3: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    procedure Action1Execute(Sender: TObject);
    procedure ListView1ItemClick(const Sender: TObject;
      const AItem: TListViewItem);
    procedure Action3Execute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private ���� }
  public
    { public ���� }
    th: TThread;
    list: TStringList;
    procedure PlayMusic(Number: integer);
    procedure Id3Tag;
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}
{$R *.LgXhdpiTb.fmx ANDROID}

uses Unit2, Unit3, Unit4, Mp3FileUtils;

procedure TForm1.Action1Execute(Sender: TObject);
begin
  if MediaPlayer1.State = TMediaState.Playing then
    MediaPlayer1.Stop;
  ListView1.ClearItems;
  Form3.Show;
  if th <> nil then
  begin
    th.Terminate;
    th.WaitFor;
    FreeAndNil(th);
  end;
  th := TSearchMP3.Create;
end;

procedure TForm1.Action3Execute(Sender: TObject);
var
  s: TStringList;
  t: string;
begin
  ListView1.ClearItems;
  list.LoadFromFile(TPath.GetHomePath + TPath.DirectorySeparatorChar +
    'Path.txt');
  Id3Tag;
end;

procedure TForm1.Action4Execute(Sender: TObject);
begin
  if MediaPlayer1.State = TMediaState.Playing then
  begin
    MediaPlayer1.Stop;
    Action4.Text := 'Play';
  end
  else if ListView1.ItemCount > 0 then
  begin
    if ListView1.ItemIndex = -1 then
      PlayMusic(0)
    else
    begin
      MediaPlayer1.FileName := ListView1.Items[ListView1.ItemIndex].Detail;
      TrackBar2.Max := MediaPlayer1.Duration;
      MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
      MediaPlayer1.Volume := TrackBar1.Value;
      MediaPlayer1.Play;
    end;
    MediaPlayer1.Play;
    Action4.Text := 'Stop';
  end;
end;

procedure TForm1.Action5Execute(Sender: TObject);
begin
  if MediaPlayer1.CurrentTime / (MediaTimeScale div 10000) < 5 then
  begin
    if ListView1.ItemIndex > 0 then
      PlayMusic(ListView1.ItemIndex - 1);
  end
  else
  begin
    MediaPlayer1.Stop;
    MediaPlayer1.CurrentTime := 0;
    TrackBar2.Value := 0;
    Action4.Text := 'Stop';
    MediaPlayer1.Play;
  end;
end;

procedure TForm1.Action6Execute(Sender: TObject);
var
  i: integer;
begin
  if ListView1.ItemIndex < ListView1.ItemCount - 1 then
  begin
    i := ListView1.ItemIndex + 1;
    ListView1.ItemIndex := i;
    PlayMusic(i);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  list := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: integer;
begin
  list.SaveToFile(TPath.GetHomePath + TPath.DirectorySeparatorChar +
    'Path.txt');
  list.Free;
  if th <> nil then
  begin
    th.Terminate;
    th.WaitFor;
    th.Free;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if FileExists(TPath.GetHomePath + TPath.DirectorySeparatorChar + 'Path.txt') = true
  then
    Action3Execute(Sender)
  else
    Action1Execute(Sender);
end;

procedure TForm1.Id3Tag;
var
  s: string;
  Id3v2Tag: TId3v2Tag;
  m: TMemoryStream;
begin
  for s in list do
  begin
    Id3v2Tag := TId3v2Tag.Create;
    m := TMemoryStream.Create;
    try
      Id3v2Tag.ReadFromFile(s);
      Id3v2Tag.GetPicture(m, '*');
      with ListView1.Items.Add do
      begin
        Bitmap.LoadFromStream(m);
        Text := Id3v2Tag.Title;
        Detail := s;
      end;
    finally
      Id3v2Tag.Free;
      m.Free;
    end;
  end;
  Form3.Hide;
  list.SaveToFile(TPath.GetHomePath + TPath.DirectorySeparatorChar +
    'Path.txt');
end;

procedure TForm1.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
  if FileExists(ListView1.Items[ListView1.ItemIndex].Detail) = true then
    PlayMusic(ListView1.ItemIndex)
  else
    Action1Execute(Sender);
end;

procedure TForm1.PlayMusic(Number: integer);
begin
  ListView1.ItemIndex := Number;
  MediaPlayer1.Stop;
  MediaPlayer1.Clear;
  MediaPlayer1.FileName := ListView1.Items[Number].Detail;
  TrackBar2.Max := MediaPlayer1.Duration;
  TrackBar2.Value := 0;
  Action4.Text := 'Stop';
  MediaPlayer1.Volume := TrackBar1.Value;
  MediaPlayer1.Play;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (ListView1.ItemIndex > -1) and
    ((MediaPlayer1.Duration - MediaPlayer1.CurrentTime) /
    (MediaTimeScale div 10000) < 1) then
  begin
    if ListView1.ItemIndex < ListView1.Items.Count - 1 then
      PlayMusic(ListView1.ItemIndex + 1);
  end
  else if MediaPlayer1.State = TMediaState.Playing then
    TrackBar2.Value := MediaPlayer1.CurrentTime;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  MediaPlayer1.Volume := TrackBar1.Value;
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  if Abs(TrackBar2.Value - MediaPlayer1.CurrentTime) > MediaTimeScale div 5000
  then
    MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
end;

end.