Фоновый звук при выполнении

[mactepmac]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   PlaySound('wav\1.wav', 0, SND_ASYNC);

   PlaySound('wav\2.wav', 0, SND_ASYNC);


end;

end.

Проблема в следующем. Сначала начинает воспроизводится 1.wav. После того как программа начинает воспроизводить 2.wav воспроизведение 1.wav прекращается. Нужно чтобы 1.wav все время звучал и последующие воспроизведения звуков не прекращали воспроизведение 1.wav

[mactepmac]

Неужели никто не знает как это сделать?

[volod3000]

Вам необходимо создать два (независимых) звуковых потока.
А, у Вас в коде один.
Поэтому все время будет звучать одна мелодия.

[Aliens_wolfs]

Проиграть 2 звука одновременно

uses
  MMSystem;

procedure SendMCICommand(Cmd: string);
var
  RetVal: Integer;
  ErrMsg: array[0..254] of char;
begin
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
  if RetVal <> 0 then
  begin
    mciGetErrorString(RetVal, ErrMsg, 255);
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMCICommand('open waveaudio shareable');
  SendMCICommand('play "wav\1.wav"');
  SendMCICommand('play "wav\2.wav"');
  SendMCICommand('close waveaudio');
end;

Либо сделай на Bass.dll

[volod3000]

Вот приблизительно так :


В принципе мой вариант очень похож на вариант Aliens_wolfs.

Лучше все таки Bass.dll (преимущество возможность проигрывать mp3 они меньше места занимают)

Вот почитайте для общего развития

[antonn]

Лучше все таки Bass.dll (преимущество возможность проигрывать mp3 они меньше места занимают)

куда большее преимущество его в том, что он может проиграть звук из Tstream, т.е. из памяти, а не с диска

[Aliens_wolfs]

Примеров по Bass в интернете много, да и на этом форуме тоже есть интересные примеры, воспользуйся поисковиком.

[mactepmac]

ок спс за инфу. про bass.dll пока не в теме. буду рыть

[ZuBy]

глобальные переменные

var 
  Chan1: dword = 0; // первый поток (1.wav)
  Chan2: Dword = 0; // второй поток (2.wav)

При креате формы

if not BASS_Init(-1, 44100, BASS_DEVICE_SPEAKERS, Handle, nil) then
begin
  ShowMessage('Bass not Init');
  Halt;
end;

При дестрое формы

bass_free;

в обработчике каком нить

{если файлы будут меняться то, нужно завершать потоки}
bass_streamfree(chan1);
bass_streamfree(chan2);

chan1:=bass_streamcreatefile(false, pchar('wav\1.wav'), 0,0, {$ifdef unicode} bass_unicode {$else} 0 {$endif} or bass_sample_loop {этот флаг означает что файл будет играть вечно});

chan2:=bass_streamcreatefile(false, pchar('wav\2.wav'), 0,0, {$ifdef unicode} bass_unicode {$else} 0 {$endif});

bass_channelplay(false, chan1);
bass_channelplay(false, chan2);

{если нужно регулировать громкость}
bass_channelsetattrib(chan1, bass_attrib_volume, 0.5); // 50% громкости

вот и весь код.

P.S. писал на форуме, так что могут быть ошибки

[Aliens_wolfs]

Сам компонент Bass можно скачать от сюда
http://www.delphiexpert.ru/view_download.php?id=90