Склеивание звуков

[mutabor]

Вы случайно не путаете? Вам один текущий звук надо остановить или вообще чтение текста? Звуки ведь короткие, озвучивание цифры, зачем его останавливать если он не больше секунды длиной?

NULL это не то же самое что nil, в Дельфи вместо NULL подставляйте ноль.

Я уже плохо помню, но кажется вызов PlaySound я сделал синхронно, так нужно было. Чтобы иметь возможность остановить, запускать PlaySound нужно асинхронно, но тогда придется паузу делать перед запуском следующего звука.

Вы с английским как? дружите?

SND_ASYNC The sound is played asynchronously and PlaySound returns immediately after beginning the sound. To terminate an asynchronously played waveform sound, call PlaySound with pszSound set to NULL.

SND_SYNC The sound is played synchronously, and PlaySound returns after the sound event completes. This is the default behavior.

[varvara16]

Я не могу прервать процесс чтения. После нажатия кнопки play, пока процесс не закончится, нельзя нажать ни на какую кнопку. Как это можно устранить? Подскажите, пожалуйста. Спасибо.

[mutabor]

Сообщение от varvara16

Я не могу прервать процесс чтения. После нажатия кнопки play, пока процесс не закончится, нельзя нажать ни на какую кнопку. Как это можно устранить? Подскажите, пожалуйста. Спасибо.

Это потому что функция запущена синхронно (то есть возвращает управление (и результат) после окончания своей работы), чтобы иметь возможность остановить нужно запускать асинхронно, с параметром SND_ASYNC, тогда функция вернет управление сразу, и выполнение программы пойдет дальше, и тогда вы сможете когда нужно остановить воспроизведение PlaySound(0,0,0);

[varvara16]

Я добавила асинхронность, но все равно процесс не удается прервать

function PlaySnd(i: integer; mode: TPlayMode): boolean;
begin
case mode of
  pmMediaPlayer:
    begin
     end;
  pmPlaySound:
    begin
    try
//      result:=PlaySound(PChar(path+sounds[i]), 0, SND_FILENAME or SND_ASYNC);
      result:=PlaySound(PChar(path+sounds[i]), 0, SND_ASYNC);
      Sleep(700);
      except
      end;
    end;
  end;
end;

[mutabor]

Sleep не нужен. Программа стоит на месте, прервать не получится. Чтобы прервать нужно чтобы управление дошло до вызова функции прерывания, а так программа 700 мс стоит на месте. Если нужна задержка используйте лучше таймер.