bmpform.pas

精彩编程百例75～100 其中有媒体播放器 SQL语言编辑器 ADO方法连接多个数据库 用户密码验证系统 获取Man地址 信史服务 ping命令等待

unit bmpform;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    OpenDialog1: TOpenDialog;
    Timer1: TTimer;
    Label1: TLabel;
    Panel1: TPanel;
    Bevel1: TBevel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure wmnchittest(var msg:twmnchittest);
    message wm_nchittest;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  endposition:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  opendialog1.FileName:='*.avi'; //确定打开文件格式
  if opendialog1.Execute then
    begin  //打开媒体文件
      mediaplayer1.Close;
      mediaplayer1.filename:=opendialog1.filename;
      label1.caption:='当前播放：'+Extractfilename(opendialog1.filename);//显示播放列表
      mediaplayer1.open;
      mediaplayer1.next;
      endposition:=mediaplayer1.position;
      mediaplayer1.rewind;
      button2.enabled:=true; //控制各个按钮的激活性
      button3.enabled:=false;
      button4.enabled:=false;
    end;
end;

procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if mediaplayer1.mode=mppaused then
  begin
    mediaplayer1.Resume; //当处于暂停时，重新播放
  end
  else
  begin
    mediaplayer1.play; //播放
  end;
  button2.enabled:=false;//控制各按钮的激活性
  button3.enabled:=true;
  button4.enabled:=true;
  button5.Enabled:=false;
  timer1.Enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  mediaplayer1.Pause; //暂停播放
  button1.enabled:=true; //控制各按钮的激活性
  button2.enabled:=true;
  button3.enabled:=false;
  button4.enabled:=true;
  button5.enabled:=true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  mediaplayer1.Rewind; //重新播放
  mediaplayer1.Play;
  button2.enabled:=false; //控制各按钮的激活性
  button3.enabled:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  mediaplayer1.close; //关闭媒体文件
  close;              //退出程序
end;

procedure TForm1.Timer1Timer(Sender: TObject);//实现循环播放功能
begin
  if mediaplayer1.position=endposition then
  begin
    mediaplayer1.rewind;
    mediaplayer1.play;
  end;
end;

end.