掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
エージェントについて・・ (ID:17906)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
おかしいですね、イベント発生しないですか・・ どうも、フォームが2つ以上あるみたいなので、お手数ですが いったん新しくプロジェクトを作成して試してみてください。 フォームに、ボタンとTAgentだけを貼り付けて、 グローバルにFFlg:booleanを作って、以下のコードで。 procedure TForm1.Button1Click(Sender: TObject); begin Agent.Characters.Load('MyChara','C:\WINDOWS\MSAGENT\CHARS\Genie.acs');//ここは環境にあわせて Character := Agent.Characters.Character('MyChara')as IAgentCtlCharacterEx; Character.Show(False); FFlg := True; Character.Speak('こんにちは', ''); while FFlg do Application.ProcessMessages; Character.Speak('こんにちは', ''); Character.Hide(False); end; procedure TForm1.AgentRequestComplete(ASender: TObject; const Request: IDispatch); begin FFlg := False; Button1.Caption := datetimetostr(now);//反映されたか確認を end; procedure TForm1.AgentRequestStart(ASender: TObject; const Request: IDispatch); begin FFlg := True; end; xpでDel7と2005しかないですが、こっちでは発生します。。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.