[mischel1981]

Низноуровневое программирование с использование 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 отдельно проверят поток такого нет