Советы по Delphi. Версия 1.4.3 от 1.1.2001

При нажатии на кнопку в буфер SecondarySoundBuffer загружается звук 'xhe4.wav'. Это звук работающего винта вертолета, его длина (звука) ровно 3.99 с (а размер буфера ровно 4 с). Далее происходит микширование из вторичного буфера в первичный с флагом DSBPLAY_LOOPING, что позволяет сделать многократно повторяющийся звук; время в 0.01 с ухом практически не улавливается и получается непрерывный звук летящего вертолета. После этого запускется таймер (поле INTERVAL в Инспекторе Оъектов установлено в 1). Разумеется, Вам совсем необязательно делать именно так, это просто пример. В процедуре Timer1Timer просто меняется координата X с шагом 0.1.

В итоге получаем летящий вертолет слева направо. Заодно можете проверить, правильно ли у вас расположены колонки.

PS. Если есть вопросы, постараюсь на них ответить.

unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs, DSound, MMSystem, StdCtrls, ExtCtrls;

type TForm1 = class(TForm)
 Button1: TButton;
 Timer1: TTimer;
 procedure FormCreate(Sender: TObject);
 procedure FormDestroy(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 procedure Timer1Timer(Sender: TObject);
private
 DirectSound: IDirectSound;
 DirectSoundBuffer: IDirectSoundBuffer;
 SecondarySoundBuffer: IDirectSoundBuffer;
 SecondarySound3DBuffer: IDirectSound3DBuffer;
 procedure AppCreateWritePrimaryBuffer;
 procedure AppCreateWriteSecondary3DBuffer(var Buffer: IDirectSoundBuffer; SamplesPerSec: Integer; Bits: Word; isStereo: Boolean; Time: Integer);
 procedure AppSetSecondary3DBuffer(var Buffer: IDirectSoundBuffer; var _3DBuffer: IDirectSound3DBuffer);
 procedure AppWriteDataToBuffer(Buffer: IDirectSoundBuffer; OffSet: DWord; var SoundData; SoundBytes: DWord);
 procedure CopyWAVToBuffer(Name: PChar; var Buffer: IDirectSoundBuffer);
 { Private declarations }
public
 { Public declarations }
end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var Result : HResult;
begin
 if DirectSoundCreate(nil, DirectSound, nil) <> DS_OK then Raise Exception.Create('Failed to create IDirectSound object');
 AppCreateWritePrimaryBuffer;
 AppCreateWriteSecondary3DBuffer(SecondarySoundBuffer, 22050, 8, False, 4);
 AppSetSecondary3DBuffer(SecondarySoundBuffer, SecondarySound3DBuffer);Timer1.Enabled:=False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var i: ShortInt;
begin
 if Assigned(DirectSoundBuffer) then DirectSoundBuffer.Release;
 if Assigned(SecondarySound3DBuffer) then SecondarySound3DBuffer.Release;
 if Assigned(SecondarySoundBuffer) then SecondarySoundBuffer.Release;
 if Assigned(DirectSound) then DirectSound.Release;
end;

procedure TForm1.AppCreateWritePrimaryBuffer;
var
 BufferDesc : DSBUFFERDESC;
 Caps : DSBCaps;
 PCM : TWaveFormatEx;
begin
 FillChar(BufferDesc, SizeOf(DSBUFFERDESC),0);
 FillChar(PCM, SizeOf(TWaveFormatEx), 0);
 with BufferDesc do begin
 PCM.wFormatTag:=WAVE_FORMAT_PCM;
 PCM.nChannels:=2;
 PCM.nSamplesPerSec:=22050;
 PCM.nBlockAlign:=4;
 PCM.nAvgBytesPerSec:=PCM.nSamplesPerSec * PCM.nBlockAlign;
 PCM.wBitsPerSample:=16;
 PCM.cbSize:=0;
 dwSize:=SizeOf(DSBUFFERDESC);
 dwFlags:=DSBCAPS_PRIMARYBUFFER;
 dwBufferBytes:=0;
 lpwfxFormat:=nil;
 end;
 if DirectSound.SetCooperativeLevel(Handle, DSSCL_WRITEPRIMARY) <> DS_OK then Raise Exception.Create('Unable to set Cooperative Level');
 if DirectSound.CreateSoundBuffer(BufferDesc, DirectSoundBuffer, nil) <> DS_OK then Raise Exception.Create('Create Sound Buffer failed');
 if DirectSoundBuffer.SetFormat(PCM) <> DS_OK then Raise Exception.Create('Unable to Set Format ');
 if DirectSound.SetCooperativeLevel(Handle, DSSCL_NORMAL) <> DS_OK then Raise Exception.Create('Unable to set Cooperative Level');