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

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 Coopeative 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 Coopeative Level');
end;

procedure TForm1.AppCreateWriteSecondaryBuffer;
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;
 if isStereo then PCM.nChannels:=2
 else PCM.nChannels:=1;
 PCM.nSamplesPerSec:=SamplesPerSec;
 PCM.nBlockAlign:=(Bits div 8)*PCM.nChannels;
 PCM.nAvgBytesPerSec:=PCM.nSamplesPerSec * PCM.nBlockAlign;
 PCM.wBitsPerSample:=Bits;
 PCM.cbSize:=0;
 dwSize:=SizeOf(DSBUFFERDESC);
 dwFlags:=DSBCAPS_STATIC;
 dwBufferBytes:=Time*PCM.nAvgBytesPerSec;
 lpwfxFormat:=@PCM;
 end;
 if DirectSound.CreateSoundBuffer(BufferDesc, Buffer, nil) <> DS_OK then Raise Exception.Create('Create Sound Buffer failed');
end;

procedure TForm1.CopyWAVToBuffer;
var
 Data: PChar;
 FName: TFileStream;
 DataSize: DWord;
 Chunk: String[4];
 Pos: Integer;
begin
 FName:=TFileStream.Create(Name,fmOpenRead);
 Pos:=24;
 SetLength(Chunk,4);
 repeat
 FName.Seek(Pos, soFromBeginning);
 FName.Read(Chunk[1],4);
 Inc(Pos);
 until Chunk = 'data';
 FName.Seek(Pos+3, soFromBeginning);
 FName.Read(DataSize, SizeOf(DWord));
 GetMem(Data, DataSize);
 FName.Read(Data^, DataSize);
 FName.Free;
 AppWriteDataToBuffer(Buffer, 0, Data^, DataSize);
 FreeMem(Data, DataSize);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CopyWAVToBuffer('1.wav', SecondarySoundBuffer[0]);
 CopyWAVToBuffer('flip.wav', SecondarySoundBuffer[1]);
 if SecondarySoundBuffer[0].Play(0, 0, 0) <> DS_OK then ShowMessage('Can''t play the Sound');
 if SecondarySoundBuffer[1].Play(0, 0, 0) <> DS_OK then ShowMessage('Can''t play the Sound');
end;
end.

Пример 2

Представляю вашему вниманию очередной пример работы с DirectSound на Delphi. В этом примере показан принцип работы с 3D буфером. Итак, процедуры AppCreateWritePrimaryBuffer, AppWriteDataToBuffer, CopyWAVToBuffer я оставил без изменения (см. письма с до этого). Процедура AppCreateWriteSecondary3DBuffer является полным аналогом процедуры AppCreateWriteSecondaryBuffer, за исключением флага DSBCAPS_CTRL3D, который указывает на то, что со статическим вторичным буфером будет связан еще один буфер – SecondarySound3DBuffer. Чтобы его инициализировать, а также установить некоторые начальные значения (положение в пространстве, скорость и .т.д.) вызывается процедура AppSetSecondary3DBuffer, в качестве параметров которой передаются сам SecondarySoundBuffer и связанный с ним SecondarySound3DBuffer. В этой процедуре SecondarySound3DBuffer инициализируется с помощью метода QueryInterface c соответствующим флагом. Кроме того, здесь же устанавливается положение источника звука в пространстве: SetPosition(Pos,1{X},1{Y},0{Z}).

Таким образом в начальный момент времени источник находится на высоте 1 м (ось Y направлена вертикально вверх, а ось Z – «в экран»). Если смотреть сверху :

 ↑ Z
 |
 А |
 |
 O----------------> X

Точка O (фактически вы) имеет координаты (0,0), источник звука А(-25,1). Разумеется понятие «метр» весьма условно.