PlaySound для 2 файлов

[JTG]

ДА спасибо нашел более менее понятно, но всётакии хотелось бы ещё и конкретный ответ

var streams: array[0..n] of HStream - массив звуков
...
BASS_Init(...)
...
streams[0] := BASS_StreamCreateFile(...)
streams[1] := BASS_StreamCreateFile(...)
...
BASS_ChannelPlay(streams[0]) / BASS_ChannelStop(streams[0]) 
BASS_ChannelPlay(streams[1]) / BASS_ChannelStop(streams[1]) 
...
BASS_Free()

Кстати, "всё уже украдено до нас"
http://www.delphiexpert.ru/load/Components/bass24.zip (с примерами на С, VB, MASM, Delphi)

[lacost]

Огромное спасибо за ответы

[lacost]

Нарисовалась ещё 2 вопроса по существу.

1) Мне необходимо воспроизводить мелодии с точночтью до милисекунд. Поэтому для остоновки проигрываемого потока следует использовать таймер (DXTimer я так понимаю подоидёт лучше всего) со щелчков 1 милисекундку и когда он счёлкнет n рас запустить BASS_ChannelStop.

Теперь собственно вопрос, самый ли рациональный это способ, и не вызовет ли большое кол- во таймеров "тормоза" а как следствие не соответствие во времени воспроизведения?

2) Визуализацию ресую следущим образом:

procedure TFormPlayer.TimerRenderTimer(Sender: TObject);
 var FFTFata : TFFTData; WaveData  : TWaveData;
begin

 
   
    BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024);
    Spectrum.Draw (PaintFrame.Canvas.Handle, FFTFata, TrackX.Position - 40, TrackY.Position - 60);
end;

ОТюда видно что визуализация ресуется для одного потока Channel...а как быть если не необходимо нарисовать её для массива потоков?