Низноуровневое программирование с использование waveout код такой:
Код:
....
repeat
e := waveOutWrite(hwo, Addr(BufHead[0]), sizeof(BufHead[0]));
//SendText('waveOutWrite='+IntToStr(e));
WaitForSingleObject(hEvent, INFINITE);
e := waveOutWrite(hwo, Addr(BufHead[1]), sizeof(BufHead[1]));
//SendText('waveOutWrite='+IntToStr(e));
WaitForSingleObject(hEvent, INFINITE);
until not Execution;
....
глюк такой при вставке строк SendText('wav.... вместо //SendText('wav в нескольких частях программы программа работает выводит звук а если закоментить строки //SendText('wav... то событие переполнение от драйвера не приходит и поток останавливается и ждет бесконечно почему причем только в паре с другим потоком wavein отдельно проверят поток такого нет