Советы по 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}).