delphi 使用windowsmediaplayer播放视频

前言

delphi7中原本自带的一个Tmediaplayer控件，但是发现有不少视频是无法播放的，于是就想到了用windowsmediaplayer来进行播放。

安装

在Delphi7中选择“Component   ——Import   ActiveX   Control...”菜单，会弹出“Import   ActiveX0”窗口。在列表中选择“Windows   Media   Player(Version   1.0)”，再点击“Install”

注意上面有两个Windows Media Player，我们要选择那个为wmp.dll的其中Class names里面有三项，另一个是系统里自带的TMediaPlayer，我们不装。

Windows Media Player基本属性

URL:string                                 可以指定媒体位置 
enableContextMenu:Boolean    显示/不显示播放位置的右键菜单 
fullScreen:boolean                    全屏显示 
stretchToFit:boolean                 非全屏状态时是否伸展到最佳大小 
uMode:string                             播放器的模式，full：有下面的控制条;  

                                                  none：只有播放部份没有控制条 
playState:integer                       当前控件状态，下面是三种基本状态： 
                                                  3：正在播放 
                                                  2：暂停 
                                                  1：已停止 
                                                   状态变化时会触发OnStatusChange事件 
WindowsMediaPlayer.controls对播放器进行控制并取得相关的信息： 
  controls.play;                                     播放 
  controls.stop;                                     停止 
  controls.pause;                                  暂停 
  controls.currentPosition：Double      当前播放进度 
  controls.currentPositionString：string   时间格式的字符串   "0:32 " 

WindowsMediaPlayer.currentMedia取得当前媒体的信息 
  currentMedia.duration     Double             总长度 
  currentMedia.durationString                    时间格式的字符串   "4:34 " 

WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等
settings.volume:integer                             音量   （0-100） 
settings.balance:integer                            声道，通过它应该可以进行立体声、

                                                                  左声道、右声道的控制。但对应的取

                                                                  值尚不清楚。

窗口大小问题

在DELPHI中使用微软的WindowsMediaPlayer ActiveX控件的时候，如果想让控件随窗口大小一起改变，
最常用的方法就是设置控件的Align属性，但是你会发现，对于ActiveX控件，会出现问题，下面把解决
办法贴出来。

解决办法是：
1、先在窗口里定义一个类型：
      TLocOleCtrl = Class (TOleControl);
2、在窗口的OnResize事件里加上：
     TLocOleCtrl (WindowsMediaPlayer1).OnPosRectChange (Rect (0, 0, ClientWidth, ClientHeight));

---

代码方法

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;

    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Timer1: TTimer;
    Button4: TButton;
    Button5: TButton;
    Panel1: TPanel;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TLocOleCtrl = Class (TOleControl);
var
  Form1: TForm1;

implementation

{$R *.dfm}
var
starttime,endtime:extended;
procedure TForm1.Button1Click(Sender: TObject);
begin
    WindowsMediaPlayer1.controls.stop;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    WindowsMediaPlayer1.controls.play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    edit2.Text:=WindowsMediaPlayer1.controls.currentPositionString;
    //edit2.Text:=floattostr(WindowsMediaPlayer1.controls.currentPosition);

    if (starttime>0) and (endtime>0) and (endtime>starttime) and (Check     Box1.Checked=true) then
       if WindowsMediaPlayer1.controls.currentPosition>endtime then
          WindowsMediaPlayer1.controls.currentPosition :=starttime;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    starttime:=WindowsMediaPlayer1.controls.currentPosition;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
    endtime:=WindowsMediaPlayer1.controls.currentPosition;
end;

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

procedure TForm1.FormResize(Sender: TObject);
begin
    TLocOleCtrl (WindowsMediaPlayer1).OnPosRectChange (Rect (0, 0, Panel2.Width, Panel2.Height));
end;

end.

---

-END-

长按下方二维码关注微卡智享