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

end;

procedure TForm1.AppCreateWriteSecondary3DBuffer;
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 or DSBCAPS_CTRL3D;
 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.AppWriteDataToBuffer;
var
 AudioPtr1, AudioPtr2: Pointer;
 AudioBytes1, AudioBytes2: DWord;
 h: HResult;
 Temp: Pointer;
begin
 H:=Buffer.Lock(OffSet, SoundBytes, AudioPtr1, AudioBytes1, AudioPtr2, AudioBytes2, 0);
 if H = DSERR_BUFFERLOST then begin
 Buffer.Restore;
 if Buffer.Lock(OffSet, SoundBytes, AudioPtr1, AudioBytes1, AudioPtr2, AudioBytes2, 0) <> DS_OK then Raise Exception.Create('Unable to Lock Sound Buffer');
 end
 else if H <> DS_OK then Raise Exception.Create('Unable to Lock Sound Buffer');
 Temp:=@SoundData;
 Move(Temp^, AudioPtr1^, AudioBytes1);
 if AudioPtr2 <> nil then begin
 Temp:=@SoundData;
 Inc(Integer(Temp), AudioBytes1);
 Move(Temp^, AudioPtr2^, AudioBytes2);
 end;
 if Buffer.UnLock(AudioPtr1, AudioBytes1, AudioPtr2, AudioBytes2) <> DS_OK then Raise Exception.Create('Unable to UnLock Sound Buffer');
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;

var Pos : Single = -25;

procedure TForm1.AppSetSecondary3DBuffer;
begin
 if Buffer.QueryInterface(IID_IDirectSound3DBuffer, _3DBuffer) <> DS_OK then Raise Exception.Create('Failed to create IDirectSound3D object');
 if _3DBuffer.SetPosition(Pos, 1, 1, 0) <> DS_OK then Raise Exception.Create('Failed to set IDirectSound3D Position');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CopyWAVToBuffer('xhe4.wav',SecondarySoundBuffer);
 if SecondarySoundBuffer.Play(0, 0, DSBPLAY_LOOPING) <> DS_OK then ShowMessage('Can''t play the Sound');
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SecondarySound3DBuffer.SetPosition(Pos,1,1,0);
 Pos:=Pos + 0.1;
end;

end.

Аппаратное обеспечение