掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MS Agent で LanguageID を設定するには？ (ID：8809)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして。 最近 MS Agent をいじっているのですが、LanguageID の設定がDelphi でうまくできません。 VBでは簡単にできるんですけど・・・。 VBのコードはこんな感じで正常に動作します。 Private Sub Form_Load() Dim marlin As IAgentCtlCharacterEx Agent1.Characters.Load "marlin", "C:\WINDOWS\msagent\chars\merlin.acs" Set marlin = Agent1.Characters("marlin") marlin.LanguageID = &H409' American English marlin.Show marlin.Speak "apple" End Sub 一方、Delphi はこんな感じで作りましたが、うまく動作しません。 procedure TForm1.FormCreate(Sender: TObject); begin Agent1.Characters.Load('MyAgent','C:\WINDOWS\msagent\chars\merlin.acs'); AgentChar:=Agent1.Characters.Character('MyAgent') as IAgentCtlCharacterEx; AgentChar.LanguageID:=$409;// ここでエラーが出ます AgentChar.Show(0); AgentChar.Speak('apple', ''); end; どなたか、MS Agent に詳しい方はおられませんか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.