/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Speech.pas
32 строки
623 B
Sun Serega
fix index
14 авг 2023, 08:37
14 авг 2023, 08:37
3e48c33
Код
Авторство
О чём код?
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt) // This code is distributed under the GNU LGPL (for details please see \doc\license.txt) {$reference System.Speech.dll} unit Speech; interface procedure Speak(s: string); procedure SpeakAsync(s: string); implementation uses System.Speech.Synthesis; var ss: SpeechSynthesizer; procedure Speak(s: string); begin ss.Speak(s) end; procedure SpeakAsync(s: string); begin ss.SpeakAsync(s) end; begin ss := new SpeechSynthesizer; var voices := ss.GetInstalledVoices; ss.SelectVoice(voices[0].VoiceInfo.Name) end.