怎样在windows media player中截取歌曲中的一段

MP3 Splitter & Joiner V303 build 3 绿色汉化版

>

1、按住键盘的“Win+R”快捷组合键，调出“运行”对话框

2、在运行对话窗口中的打开栏输入“Servicesmsc”命令，然后点击“确定”按钮

3、在d出的服务对话窗口中找到服务项“Shell Hardware Detection

4、鼠标双击此服务项，调出“Shell Hardware Detection”服务的属性对话框

5、在Shell Hardware Detection属性对话窗口中，将“启动类型”设置为“禁用

6、设置好以后，然后依次点击“应用”---“确定”按钮。再重新启动计算机即可

   Mp3size:=MediaPlayer1Length div 1000;

   minutesMax:=Trunc(Mp3size/60);  //分

   SecondMax:= Mp3size mod 60;     //秒

length 获取的是毫秒。

利用axWindowsMediaPlayer（Windows Media Player）制作MP3播放器 2

在制作mp3播放器之前，我们需要了解axWindowsMediaPlayer 媒体主要方法属性：

属性/方法名： 说明：

[基本属性]

URL:String; 指定媒体位置，本机或网络地址

uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible

playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪

enableContextMenu:Boolean; 启用/禁用右键菜单

fullScreen:boolean; 是否全屏显示

//播放器基本控制

Ctlcontrolsplay; 播放

Ctlcontrolspause; 暂停

Ctlcontrolsstop; 停止

CtlcontrolscurrentPosition:double; 当前进度

CtlcontrolscurrentPositionString:string; 当前进度，字符串格式。如“00:23”

CtlcontrolsfastForward; 快进

CtlcontrolsfastReverse; 快退

Ctlcontrolsnext; 下一曲

Ctlcontrolsprevious; 上一曲

[settings] wmpsettings //播放器基本设置

settingsvolume:integer; 音量，0-100

settingsautoStart:Boolean; 是否自动播放

settingsmute:Boolean; 是否静音

settingsplayCount:integer; 播放次数

[currentMedia] wmpcurrentMedia //当前媒体属性

currentMediaduration:double; 媒体总长度

currentMediadurationString:string; 媒体总长度，字符串格式。如“03:24”

currentMediagetItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述， "Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址

currentMediasetItemInfo(const string); 通过属性名设置媒体信息

currentMedianame:string; 同 currentMediagetItemInfo("Title")

[currentPlaylist] wmpcurrentPlaylist //当前播放列表属性

currentPlaylistcount:integer; 当前播放列表所包含媒体数

currentPlaylistItem[integer]; 获取或设置指定项目媒体信息，其子属性同wmpcurrentMedia

axWindowsMediaPlayer1currentMediasourceURL; //获取正在播放的媒体文件的路径

axWindowsMediaPlayer1currentMedianame; //获取正在播放的媒体文件的名称

axWindowsMediaPlayer1CtlcontrolsPlay播放

axWindowsMediaPlayer1CtlcontrolsStop停止

axWindowsMediaPlayer1CtlcontrolsPause　 暂停

axWindowsMediaPlayer1CtlcontrolsPlayCount文件播放次数

axWindowsMediaPlayer1CtlcontrolsAutoRewind　是否循环播放

axWindowsMediaPlayer1CtlcontrolsBalance　声道

axWindowsMediaPlayer1CtlcontrolsVolume　音量

axWindowsMediaPlayer1CtlcontrolsMute静音

axWindowsMediaPlayer1CtlcontrolsEnableContextMenu是否允许在控件上点击鼠标右键时d出快捷菜单

axWindowsMediaPlayer1CtlcontrolsAnimationAtStart是否在播放前先播放动画

axWindowsMediaPlayer1CtlcontrolsShowControls是否显示控件工具栏

axWindowsMediaPlayer1CtlcontrolsShowAudioControls是否显示声音控制按钮

axWindowsMediaPlayer1CtlcontrolsShowDisplay　是否显示数据文件的相关信息

axWindowsMediaPlayer1CtlcontrolsShowGotoBar　是否显示Goto栏

axWindowsMediaPlayer1CtlcontrolsShowPositionControls是否显示位置调节按钮

axWindowsMediaPlayer1CtlcontrolsShowStatusBar是否显示状态栏

axWindowsMediaPlayer1CtlcontrolsShowTracker　是否显示进度条

axWindowsMediaPlayer1CtlcontrolsFastForward　快进

axWindowsMediaPlayer1CtlcontrolsFastReverse　快退

axWindowsMediaPlayer1CtlcontrolsRate快进／快退速率

axWindowsMediaPlayer1AllowChangeDisplaySize　是否允许自由设置播放图象大小

axWindowsMediaPlayer1DisplaySize　设置播放图象大小

1-MpDefaultSize　原始大小

2-MpHalfSize 原始大小的一半

3-MpDoubleSize　 原始大小的两倍

4-MpFullScreen　 全屏

5-MpOneSixteenthScreen　 屏幕大小的1/16

6-MpOneFourthScreen　屏幕大小的1/4

7-MpOneHalfScreen屏幕大小的1/2

axWindowsMediaPlayer1ClickToPlay　是否允许单击播放窗口启动Media Player

在视频播放之后,可以通过如下方式读取源视频的宽度和高度,然后设置其还原为原始的大小

private void ResizeOriginal()

{

int intWidth = axWindowsMediaPlayer1currentMediaimageSourceWidth;

int intHeight = axWindowsMediaPlayer1currentMediaimageSourceHeight;

axWindowsMediaPlayer1Width = intWidth + 2;

axWindowsMediaPlayer1Height = intHeight + 2;

}

打开媒体文件并播放:

Dim filePath As String

With MeOpenFileDialog1

Title = "打开语音文件"

CheckPathExists = True

CheckFileExists = True

Multiselect = False

Filter = "mp3文件(mp3)|mp3|所有文件()|"

If ShowDialog = DialogResultCancel Then

Exit Sub

End If

filePath = FileName

End With

MeText = "PC复读机-文件 " & filePath

AxWindowsMediaPlayer1URL = filePath

Try

MeAxWindowsMediaPlayer1Ctlcontrolsplay()

Catch ex As Exception

MsgBox("对不起，不能播放此格式语音文件", MsgBoxStyleOKOnly, "PC复读机")

Exit Sub

End Try

注意:

AxWindowsMediaPlayer1URL 中URL是表示要播放的文件名,取消了原来的Name属性

AxWindowsMediaPlayer1Ctlcontrolsplay()播放,同样还有Pause,Stop等其他属性

AxWindowsMediaPlayer1settingsbalance表示媒体播放的声道设置,0表示均衡,-1和1表示左右声道

AxWindowsMediaPlayer1currentMediaduration 表示要播放的文件的时间长度可用它获取文件长度

AxWindowsMediaPlayer1CtlcontrolscurrentPosition表示正在播放的文件的当前播放位置,可用这个属性来对媒体文件进行前进后退等设置如

AxWindowsMediaPlayer1CtlcontrolscurrentPosition+1 表示前进1个时间单位

AxWindowsMediaPlayer1settingsrate播放速率,一般乘以16后再显示kbps单位

注意:在上面程序中,如果在后面加上一个：

msgbox(AxWindowsMediaPlayer1currentMediadurationToString )

则显示结果很可能为0，因此，这时候很可能获取不到文件的播放时间长度，容易出错。所以在利用的时候可以加一个timer控件：

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As SystemEventArgs) Handles Timer1Tick

EndPoint = AxWindowsMediaPlayer1currentMediaduration

If EndPoint = 0 Then Exit Sub '可能因为媒体文件的打开需要一定时间，这里等待媒体文件的打开

msgbox(AxWindowsMediaPlayer1currentMediadurationToString )

End Sub

此时msgbox便会显示文件播放长度。

2 Ctlcontrols属性

Ctlcontrols属性是AxWindowsMediaPlayer的一个重要属性， 此控件中有许多常用成员。

(1) 方法play

用于播放多媒体文件，其格式为：

窗体名控件名Ctlcontrolsplay()

如： AxWindowsMediaPlayer1Ctlcontrolsplay() ‘此处缺省窗体名是Me

(2) 方法pause

用于暂停正在播放的多媒体文件，其格式为：

窗体名控件名Ctlcontrolspause()

如： AxWindowsMediaPlayer1Ctlcontrolspause()

(3) 方法stop

用于停止正在播放的多媒体文件，其格式为：

窗体名控件名Ctlcontrolsstop()

如： AxWindowsMediaPlayer1Ctlcontrolsstop()

(4) 方法fastforward

用于将正在播放的多媒体文件快进，其格式为：

窗体名控件名Ctlcontrolsfastforward()

如： AxWindowsMediaPlayer1Ctlcontrolsforward()

(5) 方法fastreverse

窗体名控件名Ctlcontrolsfastreverse()

如： AxWindowsMediaPlayer1Ctlcontrolsfastreverse()

6 属性CurrentPosition

用于获取多媒体文件当前的播放进度，其值是数值类型，使用格式为：

窗体名控件名CtlcontrolscurrentPosition

d1 =AxWindowsMediaPlayer1CtlcontrolscurrentPosition

其中d1 是一个整型变量。

7 属性Duration

用于获取当前多媒体文件的播放的总时间，其值为数值类型，其使用格式为：

窗体名控件名currentMediaduration

如：d2 =AxWindowsMediaPlayer1currentMediaduration

其中d2是一个整型变量。

给你参考，希望你能成功！

WindowsMediaPlayercontrolscurrentPosition

double类型，显示当前进度

WindowsMediaPlayercontrolscurrentPositionString

string类型，显示当前进度，字符串格式。如“00:23”

label1caption=WindowsMediaPlayercontrolscurrentPositionString

不过要把这个代码放到timer控件里才能实时显示时间

要显示毫秒的用这个，写到Timer里面，但是Timer的Interval属性值要小一点，不然没什么效果

Private Sub Timer1_Timer()

If InStr(WindowsMediaPlayer1ControlscurrentPosition, "") Then

Label1Caption = WindowsMediaPlayer1ControlscurrentPosition \ 60 & ":" & Format(WindowsMediaPlayer1ControlscurrentPosition Mod 60, "00") & "" & Left(Split(WindowsMediaPlayer1ControlscurrentPosition, "")(1), 3)

Else

Label1Caption = WindowsMediaPlayer1ControlscurrentPosition \ 60 & ":" & Format(WindowsMediaPlayer1ControlscurrentPosition Mod 60, "00") & "000"

End If

End Sub

以上就是关于怎样在windows media player中截取歌曲中的一段全部的内容，包括:怎样在windows media player中截取歌曲中的一段、java程序读取mp3文件的播放时间时间！、Windows Media Player翻录CD，如何读取CD信息等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！