[Kek]

В рамках темы
http://www.delphisources.ru/forum/sh...ad.php?t=24587
появилась одна задача.
Для обучения системы распознавания речи необходимо формировать звучание слов.
Делать это через микрофон не хочется, поэтому был установлен SAPI5 и в Delphi сделана прога, которая произносит через динамики любые слова, которые написаны текстом. Набор этих слов в текстовом виде в конечном итоге можно сделать из базы по случайной выборке.
Но есть вопрос. Можно ли сделать так, чтобы звучание текстового слова через SAPI5 превратилось в файл WAV?

[Alegun]

Вот пример, вместо Алёнки можно записать и другой голосок

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

... var SpFileStream: TSpFileStream; SpVoice: TSpVoice; Voices:ISpeechObjectTokens; i:integer; begin SpFileStream := TSpFilestream.Create(nil); SpVoice := TSpVoice.Create(nil); try SpFileStream.Format.type_ := SAFT11kHz8BitMono; SpFileStream.Open('test.wav', SSFMCreateForWrite, FALSE); SpVoice.AudioOutputStream := SPFileStream.DefaultInterface; Voices:=SpVoice.GetVoices('', ''); for i := 0 to Voices.Count - 1 do if Pos('Alyona', Voices.Item(i).GetAttribute('Name')) = 1 then begin SpVoice.Voice := Voices.Item(i); Break; end; SpVoice.SynchronousSpeakTimeout := 1000; SpVoice.Speak('Привет!', SVSFlagsAsync); SpVoice.WaitUntilDone(3000); finally SpVoice.Free;; SpFileStream.Free; end; end; ...

извнт, не могу это проверить экспериментально, нет голосовых движков в данный момент на борту вообще, но говорят что работает, и даже что если покопаться в посылаемых на SAPI флажках (в справке они присутствуют), то можно напр. 20-ти минутную "говорильню" без воспроизведения на динамик записать за 5 мин, быстрее значит раза в четыре

[Kek]

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

Вот пример, вместо Алёнки можно записать и другой голосок[code]...

Вот, спасибо за оперативность. Все получилось.
Вот пример. Там выбираются голосовые движки, если их несколько и запись производится либо в динамики, либо в файл.
Но вот вопрос. Если я назначаю запись в файл, то как вернуться обратно в динамик?

[Alegun]

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

...Если я назначаю запись в файл, то как вернуться обратно в динамик?

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

[Kek]

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

если правильно помню, даже паузы в этой системе не предусмотрено, пробелом она вроде организуется. Надо справку смотреть

Речь идет о несколько ином сценарии. Не во время потока переключать, а после завершения. Смотрел модули, черт ногу сломит...

[Alegun]

Вот такой вариант нашёл у себя сорцехранке, старинный но рабочий, посмотрите пжлст