DELPHI ГОЛОС В ТЕКСТ

Delphi предоставляет возможность использовать голосовой ввод с помощью Windows Speech API. Для использования голоса в тексте создайте приложение, которое будет определять и преобразовывать голосовой текст в текстовый формат. Для этого необходимо использовать библиотеку System.Speech.

Для использования данной библиотеки в Delphi необходимо выполнить следующую последовательность действий:

uses System.Speech; procedure TForm1.Button1Click(Sender: TObject);var recognizer: TSpeechRecognizer;begin recognizer := TSpeechRecognizer.Create; try recognizer.Enabled := True; Memo1.Lines.Add(recognizer.Listen.ToString); finally recognizer.Free; end;end;

После запуска данного кода, приложение начнет прослушивать голосовой ввод, который пользователь произносит в микрофон.

Далее необходимо обработать полученный голосовой текст. Для этого можно использовать функции SpeechToText и Recognize.

Пример обработки голосового текста:

uses System.Speech; function SpeechToText(ASpeech: string): string; var recognizer: TSpeechRecognizer; begin recognizer := TSpeechRecognizer.Create; try recognizer.Enabled := true; recognizer.DictationSetState(TSpeechDictationState.dsOn); recognizer.DictationAction(ASpeech, TSpeechDictationAction.daProcess); Result := recognizer.DictationTopic(ASpeech); finally recognizer.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(SpeechToText(Recognizer.Listen.ToString)); end;

Запись речи в текст. НОВИНКА от GOOGLE 👍

Программирование в Delphi Урок 3 2 Работа с текстом, строковые функции Length, Pos и другие

САМОЕ БЫСТРОЕ РАСПОЗНАВАНИЕ РЕЧИ БЕЗ ИНТЕРНЕТА НА PYTHON

Как преобразовать речь в текст

Преобразование речи в текст на Python

Транскрибация аудио и видео в текст онлайн за 5 минут. Преобразование видео и аудио в текст