yongMediaPlayer控件播放MP3,能不能把这些声音文件直接打包在可执行文件里?怎么弄?(200分)

  • 主题发起人 主题发起人 峻祁连
  • 开始时间 开始时间

峻祁连

Unregistered / Unconfirmed
GUEST, unregistred user!
是作为资源文件吗?怎么弄,请指教,偶不知道的说。
 
1)编写.RC文件,格式如:
SOUND1 mp3 SOUND.mp3
2)编译它
在DOS的提示符下打 BRCC32 SOUND.RC

3)制作程序
{$R SOUND.RES}
 
那样的话我用mediapalayer怎么读取这个资源文件里的mp声音文件呢?
 
1:编辑一个resource.rc文件,里面类似如下:
hookdll RC_Dll YourHookDllFileName.Dll
2:然后用Brcc32.exe编译:
brcc32 resource.rc
结果生成resource.res文件
3:修改窗体Pas或者Dpr文件,添加下面的代码:
{$R *.res}
{$R resource.res}
4:关键的代码:
在窗体初始化或者工程的开头部分添加代码:
var
res:tresourcestream;
....
res:=tresourcestream.create(instance,'hookdll','RC_Dll');
res.SaveToFile('YourHookDllFileName.Dll');
res.Free;
5:你的程序退出的时候:
DeleteFile('YourHookDllFile.Dll');
6:End
 
感觉TMediaPlayer好像不能播放资源文件中的音频数据。
只能通过一个临时的文件来实现了。
 
res:=tresourcestream.create(instance,'hookdll','RC_Dll');
res.SaveToFile('YourHookDllFileName.Dll');
难道就是从资源中释放文件的句子吗?试试先。
 
不措不错,就是这样的。谢谢!
 
后退
顶部