怎么用mmtools播放mp3?(300分)

  • 主题发起人 主题发起人 夜
  • 开始时间 开始时间
夜

夜

Unregistered / Unconfirmed
GUEST, unregistred user!
参考了Demo了，发现有的地方要TMMAudioFile，而这个类找在mmtools中找不到，在互联网上也找不到。研究了Demo中的一个例子后发现播放mp3，结果声音尽是噪声。谁有代码，发来参考一下。
 
看是不是最新版本,mp3格式变化的比较多,老版本不能播放新mp3格式,特别是采样频率 128khz的
 
我设置了，如果是其它采样频率的，也是噪音的。
 
学习。我是菜鸟
 
学习,多媒体比较有意思
 
本身不是有自带的么?挺好用的.了
 
用API播放吧.....控件控制起来太麻烦了.....

如果没太多要求，可以看看我用MCI封装的这个播放器，自我感觉挺好用的^_^
http://www.delphibbs.com/keylife/iblog_show.asp?xid=30112
 
Delphizhou,自带的是哪个控件？指示一下，谢谢。
 
可以用bass.dll 来播放mp3，效果好，操作简单。
 
真的是牛人阿
 
我的要求就是要用mmtools来播放的，如果可以用其它的手段，那还可以使用Mediaplay或者Dspack的。
 
“控件党”真是长江后浪推前浪啊...
就播放 mp3 这么一点芝麻大的事，还要用什么捞什子 mmtools！Delphi 的 MMSystem.pas 单元就封装了播放多媒体的函数，为啥视而不见涅：
uses MMSystem;
//把长文件名转换成 8.3 格式
function GetShortFileName(const FileName: string): string;
var
l: DWORD;
lp, sp: PChar;
begin

l := Length(FileName);
if l > MAX_PATH then
l := MAX_PATH;
lp := AllocMem(l + 1);
Move(PChar(FileName)^, lp^, l);
sp := AllocMem(l + 1);
GetShortPathName(lp, sp, l);
Result := sp;
FreeMem(sp);
FreeMem(lp);
end;

//播放 MP3 文件的过程
procedure PlayMP3(const FileName: string);
begin

mciSendString(PChar('open ' + GetShortFileName(FileName) +
' type MPEGVideo Alias mp3'), nil, 0, 0);
mciSendString('play mp3', nil, 0, 0);
mciSendString('close Animation', '', 0, 0);
end;
 
不是不会播放mp3的，而是在讨论mmtool播放mp3的方法。
 
To 夜：
1、您对 Delphizhou 所说的“Delphi 自带的控件”很敢兴趣，而我给您的方法更是简单到只引用一个 MMSystem 单元而不用控件，可是您却选择性失明了...
2、您非要用 mmtools，我也没办法啦。我不知道也不想知道 mmtools 的用法，所以帮不上您的忙了...
 
不好意思，他说自带的，我还以为是mmtools自带的，所以感兴趣。
 
To 夜：
你把 mmtools 发到我邮箱吧，我可以帮您看一看：
zh5430@yahoo.com.cn
 
To 夜：
貌似这个虾米 mmtools 还保密？我邮箱都给您了您连个控件都懒得发啊？
既然我主动想帮助您您都拒绝了，我还是不要做这个好人了！
拜拜了您呐！
 
用dspack或直接用directShow更好...
 
找mmtools2.0以下版本
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
关于做mp3播放器的问题(50分)
回复
4
查看
225
beta
B
T
我正在用mmtools编写mp3播放器，但不知道该如何编写播放列表？？（100分）(100分)
回复
6
查看
234
superaj
S
P
怎样实现用Delphi 慢速播放mp3文件(在线等待) (10分)
回复
14
查看
337
ptfjy
P
P
关于mp3文件双击即开始播放的问题(8分)
回复
14
查看
245
plzw
P
后退
顶部