Спасибо.может быть приведение к widestring даже лишнее
Нет не лишнее.
Найдено 9 результатов
- 06.01.2012 15:14:23
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Re: Lazarus и русские TTS движки.
Это действительно работает Спасибо.
Нет не лишнее.
Спасибо.Нет не лишнее.
- 06.01.2012 14:48:46
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
- 06.01.2012 14:38:07
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Re: Lazarus и русские TTS движки.
Sergei I. Gorelkin писал(а): вначале добавить {$codepage utf8}
Вот оно, спасибо.
Правда если написатьКод: Выделить всё
SpVoice.speak(edit1.Text,0)то возвращаюсь обратно в начало.
- 06.01.2012 11:46:43
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Re: Lazarus и русские TTS движки.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public ...
- 05.01.2012 20:17:22
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Re: Lazarus и русские TTS движки.
"Голоса" установлены. Испытывал на SpeechCube Николае, RHVoice, InfovoxDesktop Алёне, Loquendo Ольге и RealSpeak Катерине. Да и на старике Delphi данный код работает вполне корректно.
- 05.01.2012 12:42:21
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Re: Lazarus и русские TTS движки.
Нет пробовал на 2.4.4 и 2.5.1
- 03.01.2012 23:54:47
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Re: Lazarus и русские TTS движки.
Sergei I. Gorelkin писал(а):Widestring('привет') ?
Увы без изменений.
- 03.01.2012 22:40:18
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Re: Lazarus и русские TTS движки.
Odyssey писал(а):А если попробовать Utf8Decode('привет')?
Error: Type is not automatable: "UnicodeString"
- 29.12.2011 23:05:32
- Форум: Lazarus
- Тема: Lazarus и русские TTS движки.
- Ответы: 16
- Просмотры: 10457
Lazarus и русские TTS движки.
Собственно простой пример
Но после компиляции русские SAPI5 движки начинают произносить либо бред либо коды символов. Пробовал Utf8toAnsi результат тот же.
Код: Выделить всё
var
SpVoice : Variant;
begin
SpVoice := CreateOleObject('SAPI.SpVoice');
SpVoice.speak('Привет',0)
end;
Но после компиляции русские SAPI5 движки начинают произносить либо бред либо коды символов. Пробовал Utf8toAnsi результат тот же.