delphi 使用windowsmediaplayer播放视频-Windows系列-PHP中文网

delphi 使用windowsmediaplayer播放视频

看不見的法師

发布： 2025-10-01 10:12:26

原创

408人浏览过

在delphi7中，由于tmediaplayer控件无法播放某些视频，许多开发者转而使用windows media player来进行视频播放。以下是如何在delphi7中导入和使用windows media player控件的详细步骤和相关设置。

首先，通过Delphi7的“Component ——Import ActiveX Control...”菜单，弹出“Import ActiveX0”窗口。在列表中选择“Windows Media Player(Version 1.0)”，然后点击“Install”进行安装。

delphi 使用windowsmediaplayer播放视频

注意：在列表中会出现两个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可以获取当前媒体的信息，例如：

模力视频

模力视频 - AIGC视频制作平台 | AI剪辑 | 云剪辑 | 海量模板

查看详情

currentMedia.duration Double 获取总长度。
currentMedia.durationString 获取时间格式的总长度，例如 "4:34"。

通过WindowsMediaPlayer.settings可以对播放器进行设置，例如音量和声道：

settings.volume:integer 设置音量（0-100）。
settings.balance:integer 设置声道，通过它可以进行立体声、左声道、右声道的控制，但具体取值尚不清楚。

在使用微软的WindowsMediaPlayer ActiveX控件时，如果希望控件随窗口大小一起改变，最常用的方法是设置控件的Align属性，但对于ActiveX控件会出现问题。解决办法如下：

在窗口中定义一个类型：
```
TLocOleCtrl = Class (TOleControl);
```
登录后复制

在窗口的OnResize事件中添加以下代码：

TLocOleCtrl (WindowsMediaPlayer1).OnPosRectChange (Rect (0, 0, ClientWidth, ClientHeight));

登录后复制

以下是一个示例代码，展示了如何在Delphi7中使用Windows Media Player控件：

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;
  starttime, endtime: extended;

implementation
{$R *.dfm}

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 (CheckBox1.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.

登录后复制

通过上述步骤和代码示例，您可以成功地在Delphi7中使用Windows Media Player控件来播放视频，并进行相关的控制和设置。

以上就是delphi 使用windowsmediaplayer播放视频的详细内容，更多请关注php中文网其它相关文章！