vwplay2.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Vwplay2;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Timer1: TTimer;
    Panel1: TPanel;
    MediaPlayer2: TMediaPlayer;
    BitBtn1: TBitBtn;
    OpenDialog2: TOpenDialog;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
    close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    OpenDialog1.Execute;
    MediaPlayer1.Stop;
    MediaPlayer1.FileName:=OpenDialog1.FileName;
    MediaPlayer1.Display:=Panel1;
    MediaPlayer1.Open;
    ProgressBar1.Min:=0;
    ProgressBar1.Max:=MediaPlayer1.Length;
    MediaPlayer1.Play;
    Timer1.Enabled :=True;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    MediaPlayer1.Stop;
    MediaPlayer1.Close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ProgressBar1.Position:=MediaPlayer1.Position;
end;

procedure TForm1.FormCreate(Sender: TObject);
 Var
    Curdir:string;
begin
    GetDir(0,CurDir);
    MediaPlayer1.FileName :=Curdir+'\1.AVI';
    MediaPlayer1.Display :=Panel1;
    MediaPlayer1.Open;
    ProgressBar1.Min:=0;
    ProgressBar1.Max:=MediaPlayer1.Length;
    Timer1.Enabled :=True;
    OpenDialog1.InitialDir :=CurDir;
    mediaplayer1.Play   ;
    mediaplayer2.Notify :=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   opendialog1.Execute ;

   if (length(Opendialog2.FileName)<>0) then
     begin
        mediaplayer2.Close ;
        mediaplayer2.FileName :=opendialog2.FileName ;
        mediaplayer2.Open ;
        mediaplayer2.Play ;
     end;

end;

end.