|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Зацикливание двух и более звуков играющих одновременно
Здравствуйте. Помогите пожалуйста чайнику с дипломной.
Проблема состоит в том что нужно зациклить два или более звуков играющих одновременно. Пробовал SendMciCommand - он может проигрывать одновременно несколько звуков, но не может зациклить. Также пробовал PlaySound, который может зацикливать, но не может проигрывать несколько звуков одновременно.. что делать? Заранее спасибо. |
#2
|
||||
|
||||
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#4
|
|||
|
|||
Цитата:
Цитата:
|
#5
|
||||
|
||||
Цитата:
да, я не слепой, но ты уверен что всё использовал на что способен этот модуль? потому что я точно помню как миксовал звуки, просто совмещая буферы сэмплов. Цитата:
про Waveform (MMSystem) почитай здесь, здесь ещё много статей хороших есть TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#6
|
|||
|
|||
я уже перечитал много длинных статей.. и эти, и похожие на них и мне они непонятны как "плохоразберающимусявэтом".. В моей программе использованы простые команды типа
SendMCICommand('play "sounds/01.wav"'); или sndplaysound('sounds/hard.wav', SND_ASYNC or SND_LOOP); и канешно такие запутанные многофункциональные команды в статьях мне не станут понятными после прочтения... Когда я заходил сюда я расчитывал что мне кто-то просто поможет с кодом или разъяснит как можно сделать... А гуглить я и сам умею, просто если б с этого мне был толк, я бы не писал сюда.. Тем не менее спасибо за ответы. Буду искать дальше |
#7
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#8
|
||||
|
||||
Цитата:
*на правах оффтопа* Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#9
|
|||
|
|||
спасибо чуваки. всетаки разобрался в bass и все заработало
|