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;
    Action2: TAction;
    Action3: TAction;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ToolBar1: TToolBar;
    SpeedButton3: TSpeedButton;
    Timer1: TTimer;
    ToolBar2: TToolBar;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    StatusBar1: TStatusBar;
    procedure Action1Execute(Sender: TObject);
    procedure ListView1ItemClick(const Sender: TObject;
      const AItem: TListViewItem);
    procedure Action2Execute(Sender: TObject);
    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);
  private
    { private ���� }
  public
    { public ���� }
    th: TThread;
    procedure PlayMusic(Number: integer);
  end;

var
  Form1: TForm1;

implementation

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

uses Unit2, Unit3, Unit4;

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.Action2Execute(Sender: TObject);
var
  s: TStringList;
  t: TListViewItem;
begin
  s := TStringList.Create;
  try
    for t in ListView1.Items do
      s.Add(t.Detail);
    s.SaveToFile(TPath.GetHomePath + TPath.DirectorySeparatorChar + 'Path.txt');
  finally
    s.Free;
  end;
end;

procedure TForm1.Action3Execute(Sender: TObject);
var
  s: TStringList;
  t: string;
begin
  ListView1.ClearItems;
  s := TStringList.Create;
  try
    s.LoadFromFile(TPath.GetHomePath + TPath.DirectorySeparatorChar +
      'Path.txt');
    for t in s do
      if FileExists(t) = true then
        with ListView1.Items.Add do
        begin
          Detail := t;
          Text := ExtractFileName(t);
        end;
  finally
    s.Free;
  end;
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.Play;
    end;
    MediaPlayer1.Play;
    Action4.Text := 'Stop';
  end;
end;

procedure TForm1.Action5Execute(Sender: TObject);
begin
  if MediaPlayer1.CurrentTime < MediaTimeScale div 10000 then
    if ListView1.ItemCount > 0 then
      PlayMusic(ListView1.ItemIndex - 1)
    else
    begin
      MediaPlayer1.Stop;
      MediaPlayer1.CurrentTime := 0;
      TrackBar2.Value := 0;
      Action4.Text := '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.FormDestroy(Sender: TObject);
begin
  Action2Execute(Sender);
  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.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
  with MediaPlayer1 do
  begin
    if State = TMediaState.Playing then
      Stop;
    Clear;
    if FileExists(AItem.Detail) = true then
      FileName := AItem.Detail
    else
    begin
      Action1Execute(Sender);
      Exit;
    end;
    PlayMusic(ListView1.ItemIndex);
  end;
end;

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

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (ListView1.ItemIndex > -1) and
    (Trunc(10000 * MediaPlayer1.Duration / MediaTimeScale) <=
    Ceil(10000 * MediaPlayer1.CurrentTime / MediaTimeScale)) then
  begin
    if ListView1.ItemIndex < ListView1.Items.Count - 1 then
    begin
      ListView1.ItemIndex := ListView1.ItemIndex + 1;
      with MediaPlayer1 do
      begin
        Stop;
        Clear;
        FileName := ListView1.Items[ListView1.ItemIndex].Detail;
        Volume := TrackBar1.Value;
        Play;
      end;
    end;
  end;
  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 (TrackBar2.Value < MediaPlayer1.CurrentTime) or
    (TrackBar2.Value > MediaPlayer1.CurrentTime + MediaTimeScale div 800) then
    MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
end;

end.