Tips (1541)

Tip Bewertung (19):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, ComCtrls, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    Timer1: TTimer;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Label2: TLabel;
    Timer3: TTimer;
    ProgressBar2: TProgressBar;
    Timer4: TTimer;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  PlayerX: string;
  PlayerXXX: string;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := trunc(mediaplayer1.Position / mediaplayer1.Length * 100);
  if mediaplayer1.Position = mediaplayer1.Length then
    timer1.Enabled := False;


  if ProgressBar1.Position = 100 then    /// para quando acaba o mp3 iniciar outro mp3
  begin
    MediaPlayer1.Close;
    PlayerXXX      := Label1.Caption;
    label2.Caption := PlayerXXX;
    MediaPlayer2.FileName := PlayerXXX;
    Mediaplayer2.TimeFormat := tfMilliSeconds;
    MediaPlayer2.Open;
    MediaPlayer2.play;

    button2.Enabled := False;
    button3.Enabled := False;

    timer3.Interval := 100;
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
    /// abre o dialogo
    if Execute then 
    begin
      PlayerX        := OpenDialog1.FileName;
      Label1.Caption := PlayerX;


      with MediaPlayer1 do 
      begin
        MediaPlayer1.FileName   := PlayerX;
        Mediaplayer1.TimeFormat := tfMilliSeconds;
        MediaPlayer1.Open;
      end;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Mediaplayer1.play;
  timer1.Interval := 100;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Mediaplayer1.pause;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  ProgressBar2.Position := trunc(mediaplayer2.Position / mediaplayer2.Length * 100);
  if mediaplayer2.Position = mediaplayer2.Length then
    timer3.Enabled := False;
end;

end.