main.pas

vcd播放器

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, MPlayer, StdCtrls, RzLabel, sTrackBar,
  RzStatus, sPanel, sStatusBar, OleCtnrs, Buttons, jpeg;

type
  TFrm_main = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    OleContainer1: TOleContainer;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    sStatusBar1: TsStatusBar;
    RzClockStatus1: TRzClockStatus;
    RzStatusPane1: TRzStatusPane;
    sTrackBar1: TsTrackBar;
    RzLabel1: TRzLabel;
    Image1: TImage;
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main: TFrm_main;

implementation

{$R *.dfm}

procedure TFrm_main.BitBtn9Click(Sender: TObject);
begin
mediaplayer1.Close;
close;
end;

procedure TFrm_main.BitBtn8Click(Sender: TObject);
begin
mediaplayer1.Close;
mediaplayer1.FileName:='';
if opendialog1.Execute then
 begin
 mediaplayer1.FileName:=opendialog1.FileName;
 rzlabel1.Caption:='现在播放的文件是：'+opendialog1.FileName;
 mediaplayer1.Open;
 bitbtn1.Enabled:=true;
 bitbtn2.Enabled:=false;
 end;
end;

procedure TFrm_main.BitBtn1Click(Sender: TObject);
begin
mediaplayer1.Play;
mediaplayer1.TimeFormat:=tfmilliseconds;
strackbar1.Min:=0;
strackbar1.Max:=mediaplayer1.Length div 1000;
rzstatuspane1.Caption:='文件总长度：'+inttostr(strackbar1.Max);
bitbtn2.Enabled:=true;
end;

procedure TFrm_main.BitBtn2Click(Sender: TObject);
begin
mediaplayer1.Pause;
end;

procedure TFrm_main.BitBtn3Click(Sender: TObject);
begin
mediaplayer1.Stop;
end;

procedure TFrm_main.BitBtn6Click(Sender: TObject);
begin
mediaplayer1.Step;
end;

procedure TFrm_main.BitBtn4Click(Sender: TObject);
begin
mediaplayer1.Next;
end;

procedure TFrm_main.BitBtn5Click(Sender: TObject);
begin
mediaplayer1.Previous;
end;

procedure TFrm_main.BitBtn7Click(Sender: TObject);
begin
mediaplayer1.Back;
end;

procedure TFrm_main.Timer1Timer(Sender: TObject);
begin
strackbar1.Position:=mediaplayer1.Position div 1000;
end;

end.