Решение проблем с асинхронным и синхронным режимами компонента TSpVoice в Delphi

Delphi , Синтаксис , API реализация

Вопрос использования технологий синтеза речи в программировании на Delphi может быть довольно сложным из-за особенностей работы с компонентами COM. В данном случае, рассмотрим проблему, связанную с использованием компонента TSpVoice для синхронного и асинхронного воспроизведения речи в приложениях на Delphi.

Описание проблемы

Разработчик столкнулся с проблемой, при которой попытка использовать синхронный режим воспроизведения речи с помощью компонента TSpVoice приводила к исключению EZeroDivide. Также было замечено, что создание объекта TSpVoice динамически не приводило к ожидаемому результату. Это было связано с неопытностью в области COM и OLE-автоматизации.

Подробный разбор вопросов

Первый вопрос

По документации, для воспроизведения речи в синхронном режиме необходимо использовать параметр 0 в методе Speak. Однако, при использовании этого параметра возникает исключение EZeroDivide.

Второй вопрос

Разработчик хотел бы создавать объект TSpVoice динамически, чтобы не загружать сервис SAPI, если он не используется в данной сессии приложения. Попытка создания объекта через CreateOleObject не приводила к воспроизведению речи, и при использовании параметра 0 в методе Speak возникало исключение EZeroDivide.

Объяснение и решение проблемы

Обнаруженный баг

В видео, автором которого, судя по комментариям, является Франсуа, было обнаружено, что в SAPI/Windows присутствует некий баг, вызывающий исключение EZeroDivide.

Предложенное решение

Франсуа предложил изменить контрольное слово FPU, что позволило избежать возникновения исключения EZeroDivide. Пример кода на Object Pascal:

procedure TForm1.FormClick(Sender: TObject);
var
  SpVoice: variant;
  SavedCW: Word;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  SavedCW := Get8087CW;
  Set8087CW(SavedCW or $4);
  SpVoice.Speak('This is a text.');
  Set8087CW(SavedCW);
end;

Альтернативное решение

Разработчик, столкнувшийся с аналогичной проблемой в Delphi XE2, нашел, что предложенное решение с изменением контрольного слова FPU не работает. Вместо этого, он использовал функцию SetFPUExceptionMask для отключения всех плавающих точечных исключений перед воспроизведением речи:

SavedCW := Get8087CW;
SetFPUExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
SpVoice.Speak('All floating point exceptions disabled!', 0);
Set8087CW(SavedCW);

Дополнительные замечания

Если необходимо воспроизведение звука асинхронно, важно убедиться, что объект воспроизведения не выходит из области видимости до завершения воспроизведения.

Рекомендации

Для получения более подробной информации и "how-to" руководства, рекомендуется ознакомиться с сессией CodeRage 4 на тему "Speech Enabling Delphi Applications". Это поможет лучше понять, как работать с компонентом TSpVoice и избежать подобных проблем в будущем.

Эта статья представляет собой пересказ информации, найденной в контексте заданного вопроса, и предоставляет решения, подтвержденные сообществом разработчиков. Приведенные примеры кода на Object Pascal демонстрируют, как можно работать с компонентом TSpVoice для решения проблем с синхронным и асинхронным воспроизведением речи в приложениях на Delphi.

Создано по материалам из источника по ссылке.

Вопрос связан с решением проблем, возникающих при использовании компонента TSpVoice в Delphi для асинхронного и синхронного воспроизведения речи, включая ошибку EZeroDivide и особенности динамического создания объекта TSpVoice.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: API реализация ::