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

 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');

end;

procedure TForm1.AppCreateWriteSecondary3DBuffer;

var

 BufferDesc  : DSBUFFERDESC;

 Caps        : DSBCaps;