如何将Wav文件做到EXE文件里

Question

如何将Wav文件做到EXE文件里

Answer 1

使用过C++的朋友们都知道,资源在Windows编程里非常重要,合理地运用资源以使程序更加灵活。其实在Delphi里,同样也可以制作资源,只不过Delphi本对可视的编程强调很多,对资源的制作就没有多加解释,也没有象Borland C++ 里提供了资源制作工具Resource WorkShop,这些都没有关系,下面我就通过将WAV文件做成资源,从而编译进EXE文件来介绍一下如何利用Delphi本身提供的工具制作资源。 
    16位的Delphi 1.0和32位的Delphi2.0、3.0都提供了资源编译工具,其中 Delphi 1.0的资源编译器叫BRCC.EXE,Delphi 2.0的资源编译器叫BRCC32.EXE 用来编译32位资源,所有资源编译器都只提供了命令行版本, 没有提供Windows 版本。制作一个资源一般要通过以下几个步骤: 
1)编写.RC文件 
    ..RC文件是资源的源文件,编译器也就编译这个文件,生成.RES的资源文件首先在我们的项目子目录中建立一个纯文本文件,起名叫Sound.rc,文件中有一行,内容为:
    SOUND1 WAV SOUND.WAV 
    其中SOUND.WAV为一个Windows下普通的声音文件 
2)编译它 
    在DOS的提示符下打 BRCC SOUND.RC 硬盘哗啦啦转一会儿后,就编译完了
3)制作程序 
    这也是最复杂,最灵活的一步,首先启动Windows, 再启动Delphi, 并且将项目中的文件保存到我们的项目中的子目录中。在Unit1.pas中找这么一行
{$R *.DFM}
     把我们的资源文件就声明在后面
{$R SOUND.RES} 
    然后,在Form1中声明两个全局变量
PtrSound : PChar; 
hRes : THandle; {handle to the loaded resource if 0 indicates nothing playing} 
再在Form1的Create事件中写下如下代码 
procedure TForm1.FormCreate(Sender: TObject); 
var hResInfo : THandle; 
begin 
hResInfo := FindResource(HInstance, 'SOUND1', 'WAVE'); 
hRes := LoadResource(HInstance, hResInfo); 
if hRes > 32 then {its a good load} 
begin {lock the resource} 
ptrSound:=LockResource(hRes); 
end; 
end; 
    然后在Form1中放一个按钮Button1,写如下代码: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
sndplaysound(ptrSound,snd_async or snd_Memory); 
end; 
    这时候就可以运行了,当然,这只是一个例子,只是提供了调用资源的一种方法,距离实际应用还有一段距离。

Answer 2

在Delphi项目中，通常有一个与项目名称主文件名相同的.RES文件，该文件用于保存应用程序图标等资源，对应于此文件，在项目文件中一定含有编译指示“{$R *.res}”，告诉编译器编译时需要包含与项目主文件名相同的.RES文件。同样，如果需要在应用程序中以资源形式包含任何文件类型，也可以利用.RES文件。本文将告诉你如何利用RES文件在Delphi程序内部包含文件。一创建.RES文件
这里以一组音频文件为例。首先用记事本等任何文本编辑器编写文件“MyMusic.RC”。文件的格式及内容如下：
SRC1 FILE1 OnlyYou.mp3
SRC2 FILE2 YesterdayOnceMore.mp3
SRC3 FILE3 MoonRiver.mp3
 其中，每一行表示声明一项资源，每一项资源的声明包含三个参数定义，第一个参数是资源的名称，第二个参数是资源的类型描述（本例定义了三类），第三个参数是文件名。参数之间必须由空格隔开。
编写完成“MyMusic.RC”文件后，将其与上述三个.MP3文件放置在同一文件夹中（为了避免由设置路径带来的麻烦）。然后以下面的命令行运行应用程序brcc32.exe（位于..\Delphi6\Bin）：brcc32 mymusic.rc需要注意的是，该命令只能在命令行方式下执行。如果系统的PATH环境变量中不包含Delphi的运行路径，那么你还需要将brcc32.exe与MyMusic.RC、三个.MP3文件放置在同一路径中进行。运行上述命令行后，将在同一路径中得到文件“MyMusic.RES”，这就是一个独立完整的资源文件，其格式是遵循Windows 标准的，因此可以在诸如VB、VC、CBuilder等多种开发环境中使用。二在程序中声明包含.RES文件
你只需要在项目中的某个单元中（最好是你需要利用这些资源的单元，这样会使你的应用程序更具有可读性）加入如下编译指示：
$R MyMusic.RES}
{ 尽管该编译指示可以位于单元的任何位置，但为了使你的源代码结构合理，最好还是将其并列位于编译指示“{$R *.dfm}”（每个含有窗体文件的单元中都含有该行编译指示）。这里的编译指示就明确告诉编译器，在编译应用程序时需要将资源文件“MyMusic.RES”包含到应用程序中。三在运行时获取资源
上述两步工作仅仅是基础（但一定是必要的），利用资源才是根本目的。下面的过程将告诉你如何将应用程序中包含的资源（文件）重新还原。
procedure MusicResToFile(const ResName, ResType,FileName: string);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
Res.SaveToFile(FileName); //将资源保存为文件，即还原文件
//你还可以进行其它的流操作，在内存中实现对资源利用而不必另存为文件
Res.Free;
end;
 调用该过程的示例如：
MusicResToFile('SRC2', 'FILE2', 'TheSecondMusic.MP3'); 值得一提的是，利用此方法，你完全可以制作自己的安装程序，该安装程序仅包含一个可执行文件，在该可执行文件中以资源的形式包含所有将要安装的内容（文件）。此外，如果在你的应用程序中需要播放外部音频文件（如背景音乐、声音提示等），也可通过此方法将这些外部文件包含到应用程序中，从而避免用户误删这些音频文件导致应用程序的不完整。