Lazarus и русские TTS движки.

[Skina12]

Собственно простой пример

Код: Выделить всё

var
SpVoice : Variant;
begin
SpVoice := CreateOleObject('SAPI.SpVoice');
SpVoice.speak('Привет',0)
end;


Но после компиляции русские SAPI5 движки начинают произносить либо бред либо коды символов. Пробовал Utf8toAnsi результат тот же.

[Odyssey]

А если попробовать Utf8Decode('привет')? Сам проверить не могу, т.к. сижу под Linux.

[Skina12]

А если попробовать Utf8Decode('привет')?

Error: Type is not automatable: "UnicodeString"

[Sergei I. Gorelkin]

может быть, Widestring('привет') ?

[Skina12]

Widestring('привет') ?

Увы без изменений.

[Максим]

Версия компилятора какая? Не 2.7.1 случаем?

[Skina12]

Нет пробовал на 2.4.4 и 2.5.1

[Sergei I. Gorelkin]

Так оно вообще по-русски говорит? В смысле, можно ли добиться нужного поведения, если не использовать FPC и написать вышеприведенный кусок кода, например, на jscript.
А то я попробовал, оказалось, русская винда просто так по-русски не разговаривает, нужно доустанавливать "голоса".

[Skina12]

"Голоса" установлены. Испытывал на SpeechCube Николае, RHVoice, InfovoxDesktop Алёне, Loquendo Ольге и RealSpeak Катерине. Да и на старике Delphi данный код работает вполне корректно.

[Максим]

Тогда нужен полный компилируемый пример, демонстрирующий проблему. Также не мешало бы узнать версию Винды, её разрядность и язык.

[Skina12]

Код: Выделить всё

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 declarations }
  end;

var
  Form1: TForm1;

implementation

uses ComObj;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
SpVoice : Variant;
begin
SpVoice := CreateOleObject('SAPI.SpVoice');
SpVoice.speak('привет',0)
end;

end.


Также не мешало бы узнать версию Винды, её разрядность и язык.

Русские, 32 разрядные Win 7 и Win XP.

[Sergei I. Gorelkin]

Да вон вверху вполне компилируемый пример.
С 2.7.1 (или 2.6.0) нужно сохранить файл в кодировке utf8 и вначале добавить {$codepage utf8}. При этом вызов метода выглядит так, как нужно. Если и при этом не заговорит, то я даже не знаю, к чему еще придраться.

[Skina12]

вначале добавить {$codepage utf8}

Вот оно, спасибо. Правда если написать

Код: Выделить всё

SpVoice.speak(edit1.Text,0)

то возвращаюсь обратно в начало.

[GrayEddy]

Код: Выделить всё

SpVoice.speak(AnsiToUtf8(edit1.Text),0)

?

[Skina12]

Увы нет