Как изменить язык речи - PullRequest
Новая
       6

Как изменить язык речи

0 голосов
/ 21 ноября 2018

Попытка сделать русские языковые карточки с произношением, используя Delphi 2010. Я могу заставить его работать на английском.У меня установлен русский язык как язык Text2Speech на Win10, но я не знаю, как переключить язык.

Это говорит: SpVoice1.Speak('Hello, what's up', SVSFDefault); Это тихо: SpVoice1.Speak('Привет, как дела', SVSFDefault);

1 Ответ

0 голосов
/ 21 ноября 2018

Так как это было трудно найти, я отвечаю на свою ветку тем, что нашел, разбирая чужой код.Я добавил это в событие OnCreate, чтобы изменить голос: 

procedure TForm1.FormCreate(Sender: TObject);
var
  AllVoices: ISpeechObjectTokens;
begin
  AllVoices := SpVoice1.GetVoices('', '');
  SpVoice1.Voice := AllVoices.Item(2);
end;

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

...