[Kek]

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

[Alegun]

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

Код:

...
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]

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