我用TMediaPlayer控件不能播放mp3是怎么回事啊？

shizuniao 2003-10-11 09:37:17

如题：
大家帮帮忙！

...全文

32 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

shizuniao 2003-10-12

打赏
举报

http://7438.net/non-cgi/usr/1/1_156.rar
这个是我的程序，大家帮忙看看，mp3 怎么不能播放

shizuniao 2003-10-12

打赏
举报

我用的时候也没有提示出错，就是程序执行后我一打开一个mp3文件，程序就自动关闭。

shizuniao 2003-10-11

打赏
举报

begin
if OpenDialog1.Execute then
begin
mediaPlayer1.FileName:=Opendialog1.FileName;
MediaPlayer1.open;
end ;
end;
就这么点东西！

liufuyahong 2003-10-11

打赏
举报

将源代码贴出来看看！

mixterQ 2003-10-11

打赏
举报

不是吧?可以的啊!

liufuyahong 2003-10-11

打赏
举报

将MediaPlayer1.AutoOpen属性设为True，再试试看。

if OpenDialog1.Execute then
begin
mediaPlayer1.FileName:=Opendialog1.FileName;
mediaplayer1.AutoOpen:=true;
MediaPlayer1.open;
end

一个自制MP3播放器(含原代码)这个程序的关键是BmpShape的应用。unit BmpShape;{2002/08/22 by ultrared根据BMP文件创建窗口注意：1. BMP文件最左上的一个点颜色作为背景色2. BmpShape控件只能用在TForm容器上3. BMP文件可以是256色或者24位色4。大块背景色必须和背景色绝对相等才能获得正常效果}interfaceuses Forms,Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,Graphics;type TBmpShape = class(TImage) private { Private declarations } BackColor:TColor;//背景颜色 FColorDither:boolean;//是否允许背景颜色有一定的抖动 function GetRegion:HRGN;//前景图片的区域 procedure setColorDither(cd:Boolean); protected { Protected declarations } public { Public declarations } constructor Create(AOwner:TComponent);override; procedure Apply;//使用效果 published { Published declarations } property Dither:Boolean read FColorDither write setColorDither; end;procedure Register;implementationprocedure Register;begin RegisterComponents('Samples', [TBmpShape]);end;procedure TBmpShape.setColorDither(cd:Boolean);begin if cd<>FColorDither then FColorDither:=cd;end;constructor TBmpShape.Create(AOwner:TComponent);begin inherited Create(AOwner); BackColor:=RGB(0,0,0); FColorDither:=FALSE;end;//核心子程序，获得BMP图片的前景区域function TBmpShape.GetRegion:HRGN;var i,j:integer; rgn1,rgn2:HRGN; StartY:integer; r,g,b,r1,g1,b1:BYTE; cc:TColor;begin if Picture.Bitmap<>nil then begin BackColor:=Picture.Bitmap.Canvas.Pixels[0,0]; rgn1:=CreateRectRgn(0,0,0,0); for i:=0 to Picture.Bitmap.Width-1 do begin StartY:=-1; for j:=0 to Picture.Bitmap.Height-1 do begin cc:=Picture.Bitmap.Canvas.Pixels[i,j]; if FColorDither then begin //允许和背景有一定的色差 r:=(cc and $FF0000) shr 16; g:=(cc and $FF00) shr 8; b:=cc and $FF; r1:=(BackColor and $FF0000) shr 16; g1:=(BackColor and $FF00) shr 8; b1:=BackColor and $FF; if (abs(r-r1)<10) and (abs(g-g1)<10) and (abs(b-b1)<10) then begin if (StartY>=0) and (j>=StartY) then begin rgn2:=CreateRectRgn(i,StartY,i+1,j); CombineRgn(rgn1,rgn1,rgn2,RGN_OR); StartY:=-1; end; end else begin if Starty<0 then StartY:=j else if j=(Picture.Bitmap.Height-1) then //最下面一个点 begin rgn2:=CreateRectRgn(i,StartY,i+1,j); CombineRgn(rgn1,rgn1,rgn2,RGN_OR); end; end; end else //不允许色差 begin if cc=BackColor then begin if (StartY>=0) and (j>=StartY) then begin rgn2:=CreateRectRgn(i,StartY,i+1,j); CombineRgn(rgn1,rgn1,rgn2,RGN_OR); StartY:=-1; end; end else begin if Starty<0 then StartY:=j else if j=(Picture.Bitmap.Height-1) then //最下面一个点 begin rgn2:=CreateRectRgn(i,StartY,i+1,j); CombineRgn(rgn1,rgn1,rgn2,RGN_OR); end; end; end; end; end; result:=rgn1; end else result:=0;end;procedure TBmpShape.Apply;begin if Parent is TForm then begin Left:=0; Top:=0; Width:=Picture.Bitmap.Width; Height:=Picture.Bitmap.Height; with (Parent as Tform) do begin BorderStyle:=bsNone; Width:=Self.Width; Height:=Self.Height; end; SetWindowRgn(Parent.Handle,GetRegion,FALSE); end;end;end.

播放音乐的小demo，检索下载的文件夹，添加目录中的mp3格式文件。可双击listbox播放音乐，也可以单击播放音乐

CBuilder的媒体播放器控件是能够播放音频、视频等多种多媒体文件的控件，它的VCL封装类为TMediaPlayer。媒体播放器控件的工作原理是通过Windows的MCI接口来控制多媒体播放设备，它支持的媒体数据种类很多，如WAV文件、AVI文件、CD-ROM音乐、MIDI音乐，以及MP3音乐等等。

适合Delphi初学者。所用控件包括：TDriveComboBoxTDirectoryListBoxTFilterComboBoxTFileListBoxTMediaPlayerTeditTTrackBar

使用Delphi中System中的MediaPlayer控件。因为我主要是需要使用播放声频文件中的片断，比如 21000ms ~35000ms。在Delphi中可以使用MediaPlayer的StartPos和EndPos来实现。在编程过程中主要遇到的问题是：当播放wav格式时，利用设置StartPos和EndPos可以播放任意位置的片断，但是当播放mp3时，StartPo

Delphi

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章