社区
GAME,图形处理/多媒体
帖子详情
高分求:用 Tmediaplayer连续播放!!
boatzm
2003-10-19 09:53:31
怎样用Tmediaplayer 实现连续播放!?
就是一个文件播放完了过后,会产生什么事件或消息?!!
急求!大哥们救我!!!
...全文
50
5
打赏
收藏
高分求:用 Tmediaplayer连续播放!!
怎样用Tmediaplayer 实现连续播放!? 就是一个文件播放完了过后,会产生什么事件或消息?!! 急求!大哥们救我!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
boatzm
2003-10-21
打赏
举报
回复
谢了,已经解决了。
ps:我也不知道是怎么的,第一次不行,(可能敲错了):(
YYQQ
2003-10-21
打赏
举报
回复
要么你看看你uses 里有没有加MPlayer这个单元 , 在我这里行啊
YYQQ
2003-10-21
打赏
举报
回复
to boatzm(小舟):
不会吧,在你那里运行不了吗?
nvSuccessful 是VCL定义了的枚举常量, 不用管的, 在MPlayer.pas里
boatzm
2003-10-20
打赏
举报
回复
YYQQ(阿鱼) :
这句就有问题。
if MediaPlayer1.NotifyValue = nvSuccessful then //播完了, 做其它的事
提示:nvSuccessful 是啥子类哦,反正不匹配!
YYQQ
2003-10-20
打赏
举报
回复
//播放结束时触发OnNotify事件, 根据NotifyValue值判断
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then
ShowMessage('end');
end;
Delphi-T
MediaPlayer
和TTrackBar的使用
T
MediaPlayer
和TTrackBar的使用实例
自制MP3
播放
器 (T
MediaPlayer
/BmpShape)
一个自制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.
Delphi使用
MediaPlayer
控件
播放
音乐的小demo,检索下载的文件夹,添加目录中的mp3格式文件。可双击listbox
播放
音乐,也可以单击
播放
音乐
Delphi开发技巧之-多媒体
不使用T
MediaPlayer
播放
声音文件 从AVI文件取出一帧 使用操纵杆 取CD当前音轨和时间 取Wav文件信息 取WAV文件的位率 取声音长度 取所有MIDI输出设备名称 取所有音频输出设备名称 在Exe文件中包含WAV文件 打开和关闭光驱 捕获CDROM弹出或进入消息 控制音量 改变声卡音量 显示声音属性对话框 检查CDROM是否打开 检查Macromedia Flash 插件是否安装 检查T
MediaPlayer
是否停止
播放
检查声卡是否安装 激活、取消CD自动
播放
激活取消系统beep 确定CDROM内为AudioCD 设置T
Mediaplayer
音量 调整音频设备音量 通过PC喇叭
播放
声音
Android实例之
MediaPlayer
播放
音乐和视频
2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用!
GAME,图形处理/多媒体
1,183
社区成员
14,336
社区内容
发帖
与我相关
我的任务
GAME,图形处理/多媒体
Delphi GAME,图形处理/多媒体
复制链接
扫一扫
分享
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章