TＡｇｅｎｔで初期設定するには？ (ID:17708)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

にしのさんどうもありがとうございました。

＞音声指示エンジンの女性の声は、
＞{A778E060-A936-11d1-B17B-0020AFED142E}
＞だと思いますが、こちらで試しましたか？
すみません、出てきた音声で勘違い（思い込み？）してしまいました。

＞Set_TTSModeIDの直後、少し間を置くとよいかもしれません。
＞SpeakやPlayは、非同期で動いているようです。
初期設定を Form1.Create の中で行って
ボタンを押して、Speak するように変更しました。

現在は以下の状態でテストしています。
Character.Set_TTSModeID において

Ｄｅｌｐｈｉ６でコンパイルリンクして動作させると
{A778E060-A936-・・・} {A778E061-A936-・・・}のどちらにしても
男性の声らしき低い同じ声しか出てきません（）

Ｄｅｌｐｈｉ７でコンパイルリンクして動作させると
[アドレス FFFFFFFF でアドレス FFFFFFFF に対する読込違反がおきました。]
と、表示されます

Character.Set_TTSModeID が正常に動作しないのでは
ないでしょうか？
それとも、Ｄ６，Ｄ７の両方をインストールして
使用しているのが原因なのでしょうか？
すみません、よろしくお願いします。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Agent.Characters.Load('MyChara', 
                        'C:\WINDOWS\MSAGENT\CHARS\Peedy.acs');
  Character := Agent.Characters.Character('MyChara') 
                as IAgentCtlCharacterEx;
  Character.Set_TTSModeID('{A778E060-A936-11d1-B17B-0020AFED142E}'));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Character.Show(False);
  try
    Character.Speak('こんにちは', '');
    Character.Speak('こんにちは', '');
  finally
    Character.Hide(False);
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る