delphi - 使用项目中的波形文件

Question

我目前只能通过将波形文件放在已编译的 exe 旁边来播放背景声音。但我实际上想要一个带有波形文件的静态可执行文件。这在 Delphi XE2 中可能吗？

这是我的代码：

SndPlaySound('.\Raw.wav', SND_ASYNC or SND_LOOP);
#This will play the Raw.wav that is next to my program.

Answer 1

您可以添加SND_MEMORY标志，并将TResourceStream.Memory指针作为第一个参数传递。

首先，使用 XE2 的Project->Resources and Images菜单项添加新资源。给它你的 .wav 文件的路径和文件名，一个资源类型RC_DATA（它不在下拉列表中，但你可以手动输入它），以及一个你可以在运行时使用的资源名称来引用它。（在我的示例中，我使用C:\Microsoft Office\Office12\MEDIA\APPLAUSE.WAV，并给它一个资源名称APPLAUSE。）

procedure TForm2.Button1Click(Sender: TObject);
var
  Res: TResourceStream;
begin
  Res := TResourceStream.Create(HInstance, 'APPLAUSE', 'RC_DATA');
  try
    Res.Position := 0;
    SndPlaySound(Res.Memory, SND_MEMORY or SND_ASYNC or SND_LOOP);
  finally
    Res.Free;
  end;
end;

Answer 2

如果您使用PlaySound()而不是sndPlaySound()，您可以利用该SND_RESOURCE标志直接从其资源播放波形声音，而无需先将其加载到内存中。

Answer 3

刚刚测试过，它适用于我的：

var
  hFind, hRes: THandle;
  Song       : PChar;
begin
  hFind := FindResource(HInstance, 'BATTERY', 'WAV');
  if (hFind <> 0) then
  begin
    hRes := LoadResource(HInstance, hFind);
    if (hRes <> 0) then
    begin
      Song := LockResource(hRes);
      if Assigned(Song) then
      begin
        SndPlaySound(Song, snd_ASync or snd_Memory);
      end;
      UnlockResource(hRes);
    end;
    FreeResource(hFind);
  end;

Answer 4

在资源编辑器（Delphi 10、项目、资源和图像）中导入 wav 文件时，键入“WAVE”作为资源类型，然后简单地使用

   PlaySound(resourceIndentifierName, 0, SND_RESOURCE or SND_ASYNC);

不再需要 PS 大写