delphi怎么用mediaplayer播放资源?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi怎么用mediaplayer播放资源?相关的知识,希望对你有一定的参考价值。

编了个snd.res内含WAV1的WAVE资源
怎么用MediaPlayer控件播出来呢?

参考技术A 来自: datasoft, 时间: 2001-08-27 17:26:00, ID: 607525
把wav文件编译到可执行文件中

第一步:建立一个rc文件.
例如:my.rc,内容如下:
mymusic wave music.wav
其中mymusic为资源名称,wave为资源类型,music.wav为一个存在的wav文件名.
第二步:编译这个文件.
>BRCC32 my.rc
BRCC32.exe在.../borland/delphi5/bin/目录下,
编译后生成一个资源文件my.res
第三步:加到程序中去.
在$R *.res后加上$R SOUND.RES
最后怎样调用这个资源呢?看:

uses mmsystem;

var FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle:=FindResource(HInstance, 'mymusic', 'wave');//找到这个资源的句柄.
if FindHandle<>0 then begin
ResHandle:=LoadResource(HInstance, FindHandle);//获得资源所在内存的句柄
if ResHandle<>0 then begin
ResPtr:=LockResource(ResHandle);//锁定资源.
if ResPtr<>Nil then
SndPlaySound(PChar(ResPtr), snd_ASync or snd_ASync );//播放这个音乐.
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;本回答被提问者和网友采纳

以上是关于delphi怎么用mediaplayer播放资源?的主要内容,如果未能解决你的问题,请参考以下文章

用Delphi制作录音程序

Delphi中MediaPlayer简单使用--播放视频

mediaplayer不能播放视频怎么办

如何用delphi编写音乐播放器

delphi中如何播放一个声音文件??急用,谢谢~~~

怎样在android中实现播放MP4资源文件?代码可行简洁的,不用按钮控制,我就是想做一闪屏