在 Windows 10 上使用 Delphi 和 DirectX 没有声音答案

【问题标题】：No sound using Delphi and DirectX on Windows 10在 Windows 10 上使用 Delphi 和 DirectX 没有声音
【发布时间】：2022-09-25 23:37:17
【问题描述】：

我在 Windows 10 上使用 DirectX (DirectSound) 时遇到问题。我正在更改一些使用 DirectX（我认为是 DirectX 9）并在 Windows XP 上运行的旧代码。

在 Windows XP 上一切正常，但在 Windows 10 上却听不到声音。

该应用程序使用这些文件：DXUTIL.PAS（由 Boris V. 制作的原始 ObjectPascal 转换）、lzexpand.pas（作者：Vadim Bodrov）和 DirectSound.pas（由 Alexey Barkovoy 改编的 DirectX 9.0 Delphi / FreePascal）。

procedure TForm1.Button1Click(Sender: TObject);
var
sndgwait : PSound;
begin
InitSB(Handle);
LoadWave(sndgwait,   \'D:\\game\\EXP01.wav\', 1);
StartSound(sndgwait, false);
end;

function LoadWave(var Sound: PSound; fn : string; conc : integer) : boolean;
var
cbData, cbdata1 : DWORD;
pd1 : pointer;
hfile : longint;
vreopenbuff : TOFStruct;
begin
hfile := LZOpenFile(PAnsiChar(fn), vreopenbuff, OF_READ);
if hfile < 0 then begin result := false; exit; end;
cbdata := LZSeek(hfile, 0, 2);  // file size
LZSeek(hfile, 0, 0);            //back to the start of the wav
getmem(pd1, cbdata);
LZRead(hfile,  pd1, cbdata);
LZClose(hfile);
if conc < 1 then conc := 1;
result := ParseWaveData(Sound, conc, cbdata, pd1);
end;

function ParseWaveData(var Sound : PSound; conc : integer; cbdata : dword; pd1 : pointer) :  boolean;
var
pWaveHeader: PWAVEFORMATEX;
pDSB: IDirectSoundBuffer;
dsBD: TDSBUFFERDESC;
rr : longint;
begin
if lpDS = nil then begin
result := false;
exit;
end;
Sound := PSNDOBJ(LocalAlloc(LPTR, SizeOf(TSNDOBJ) + (conc-1) * SizeOf(IDirectSoundBuffer)));
Sound^.iAlloc := conc;
Sound^.cbWaveSize := 0;
Sound^.pbWaveData := nil;
pwaveHeader := nil;
Sound^.pbData := pd1;
Sound^.cbSize := cbdata;
if DSParseWaveResource(pd1, pWaveHeader, Sound^.pbWaveData, Sound^.cbWaveSize) then begin
ZeroMemory(@dsBD, SizeOf(dsBD));
dsBD.dwSize := SizeOf(dsBD);
dsBD.dwFlags := DSBCAPS_STATIC or DSBCAPS_GETCURRENTPOSITION2 or DSBCAPS_CTRLFREQUENCY orDSBCAPS_CTRLPAN or DSBCAPS_CTRLVOLUME;//DSBCAPS_CTRLDEFAULT or
dsBD.lpwfxFormat := pWaveHeader;
dsBD.dwBufferBytes := Sound^.cbWaveSize;

if lpDS.CreateSoundBuffer(dsBD, pDSB, nil) = DS_OK then begin
if not DSFillSoundBuffer(pDSB, Sound^.pbWaveData, dsBD.dwBufferBytes) then begin
pDSB._Release;
pDSB := nil;
end;
Sound^.Buffers[0] := pDSB;
for rr := 1 to conc - 1 do begin
lpDS.DuplicateSoundBuffer(Sound^.Buffers[0], Sound^.Buffers[rr]);
end;
end else begin
pDSB := nil;
SndObjDestroy(Sound);
Sound := nil;
end;

end;
Result := Sound <> nil;
end;

function StartSound(Sound: PSound; Loop: boolean = false; waitforend: boolean = false): boolean;
begin
if Loop then
StartSound := SndObjPlay(Sound, DSBPLAY_LOOPING)
else
 StartSound := SndObjPlay(Sound, 0);
if waitforend and not loop then
while SoundPlaying(Sound) do Application.ProcessMessages;
  
end;

function SndObjPlay(pSO: PSNDOBJ; dwPlayFlags: DWORD): Boolean;
var
pDSB: IDirectSoundBuffer;
begin
Result := FALSE;
if pSO = nil then
begin
exit;
end;
if ((dwPlayFlags and DSBPLAY_LOOPING) = 0) or (pSO^.iAlloc = 1) then
begin
pDSB := SndObjGetFreeBuffer(pSO);
if (pDSB <> nil) then
Result := SUCCEEDED(pDSB.Play(0, 0, dwPlayFlags));
end else
Result:= FALSE;
end;

我认为 ParseWaveData 调用中的所有值都是正确的（没有 nil 值）。

我没有得到任何错误。只是没有声音。

这里有什么问题？

或者还有其他方法可以在 Windows 10 上的这个旧应用程序中使用 DirectX 获取声音吗？任何例子都会很棒。

谢谢....

标签： delphi audio directx

【解决方案1】：

虽然我不能保证这是解决方法，但我也不能仅仅发表评论，因为我没有 50 个代表，值得一试。我对 Windows 10 的声音有很多问题，通常看起来是随机的！切换应用程序会禁用后台应用程序的声音，游戏编程不会发出声音，甚至播放音乐以查看我是否使用 CD 刻录软件播放正确的曲目被破坏，Netflix 在我重新启动之前破坏声音，无线耳机无法正常工作或音量太低的。真气。由于 2018 年 4 月的 W10 更改，您可能无法控制当前优先级，只是没有遇到我遇到的问题。

无论如何，这值得一试：

右键单击任务栏右下角的声音图标。点击播放或音频设备。右键单击出现的扬声器图标在设置屏幕中。从弹出菜单中单击属性。点击扬声器属性屏幕上的高级选项卡。取消选中复选框允许应用程序进行独占控制并给予独占模式应用程序优先级。

【讨论】：

我试图检查这些东西，但没有运气。谢谢。

【解决方案2】：

我已经解决了这个问题。最后，它与 DirectX 无关。

hfile := LZOpenFile(PAnsiChar(fn), vreopenbuff, OF_READ);

输入到程序的参数“fn”（字符串）错误。有什么乱七八糟的。文件名不正确，所以应该播放的文件是空的。与 DirectX 无关。我已将上述命令替换为：

hfile := LZOpenFile(PAnsiChar(AnsiString(fn)), vreopenbuff, OF_READ);

现在它正在工作。

谢谢...

【讨论】：