熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

從入門到精通:MSAgent經典用法

2013-11-11 21:04:21  來源: Delphi編程 
Microsoft Agent是微軟公司於月發布的一項代理軟件開發技術而後被集成到Internet Explorer Plus及更高版本中目前版本為支持簡體中文作為一種軟件代理工具Agent以其強大的交互功能鮮明的人性特點優美的操作界面和簡便統一的編程方法對由菜單按鈕提示框等組成的傳統人機交互方式產生了很大影響在多媒體創作Web應用教育軟件軟件幫助系統和輔助工具制作等方面具有廣闊的應用前景
  
  一 Microsoft Agent技術簡介
  Agent一詞的中文意思是代理故名思意這類代理軟件的主要作用是提供一種易於理解和使用的操作界面接受用戶的指令代替用戶完成某些復雜繁瑣的工作或為用戶提供幫助科學研究表明從人機工程的角度考慮賦予電腦或程序更多人性化色彩如支持語音合成輸出信息語音識別輸入指令智能提示動畫等能夠充分提高人機交互的有效性和易用性
  
  我們知道在Office 幫助系統中有一種叫作Office助手的代理軟件其中幽默風趣的動畫人物大眼夾能夠根據用戶的操作步驟智能化地提出一些建議或幫助信息與Office助手相比Agent功能更加豐富強大表現在
  
  Office助手沿用傳統的不透明矩形窗口窗口後面的背景被完全擋住Agent動畫人物本身是一個AlwaysOnTop窗口只有人物身體部分擋住背景其余部分透明
  
  Office助手只允許Office 的各個組件調用Agent動畫人物可由任何Windows程序調用
  
  Agent支持文字氣球和輸入提示條在輸出語音的同時把文字輸出至一個卡通式文字氣球中如果電腦系統中安裝有Agent語音識別引擎當用戶按住輸入鍵如Scroll Lock鍵在Agent人物下方出現一個輸入命令窗口表示它正在聆聽用戶的語音命令
  
  Agent提供GenieMerlinBobby和Peedy等動畫人物不僅具有優美诙諧的動作而且可以通過聲卡麥克風與用戶交談
  
  二 Microsoft Agent安裝方法
  Agent是一種ActiveX控件其服務器程序(C:\WINDOWS\MSAGENT\Agentsvrexe)運行在Win//NT操作平台上為其它調用Agent的客戶程序提供服務客戶程序可以是利用VBC++DelphiVFPPB等開發的應用軟件也可以是HTML文件中的Visual ScriptJava Script腳本語言代碼
  
  安裝Agent核心組件Msagentexe
  
  安裝Lernout & Hauspie TruVoice TexttoSpeech Engine(完成從文字合成語音的工作目前版本只支持英語)Cgramexe
  
  安裝Microsoft Command and Control Speech Engine(提供語音識別功能目前版本只支持英語)Actcncexe
  
  Agent動畫人物人物數據文件Agent支持單結構角色文件(acs角色數據與動畫數據存於同一個文件)也支持分離結構角色文件(acf角色數據存於acf中動畫數據存於aca中)基於本地硬盤和網絡的應用程序可采用acs文件基於Web頁面的HTML文件在浏覽器中訪問時會自動調用習慣上多使用acs文件
  
  上述文件可從 下載
  
  三 Microsoft Agent編程要點/b>
   在Delphi中添加Agent控件
  
  在Delphi IDE中選擇菜單ComponentImport ActiveX Control——在Import ActiveX下的列表框中選擇Microsoft Agent Control (Version 點擊按鈕Install——在Install對話框中點擊按鈕OK——在Confirm對話框中點擊按鈕Yes——在對話框中點擊按鈕OK至此Agent控件被添加到Delphi組件板ActiveX頁上
  
   在Delphi中調用Agent控件
  
  ⑴在Delphi IDE 中新建Project(包含Form在Form上放置Agent(Name屬性為MyAgent)Button
  
  ⑵定義變量
  
  Var Peedy: IagentCtlCharacterEx; RequestRequest: IagentCtlRequest;
  ⑶Agent主要屬性方法事件
  
  ①Characters屬性與LoadUnload方法初始化Agent加載動畫數據卸載動畫人物
  
  Request := MyAgentCharactersLoad( Peedy C:\Windows\System\Peedyacs );
  Peedy := MyAgentCharactersCharacter( Peedy );
  MyAgentCharactersUnload(Peedy);
  
  ②Show與Hide方法顯示隱藏Agent動畫人物參數Fast表示動畫人物顯示隱藏的速度Fast為表示Agent飛入飛出Fast為表示Agent直接出現消失沒有動畫過程
  
  PeedyShow();
  PeedyHide();
  
  ③StopAllStop方法停止所有動作
  PeedyStopAll();
  PeedyStop(Request);
  
  ④Connected屬性Agent是否與Microsoft Agent服務器連接
  MyAgentConnected := True;
  
  ⑤Get_HeightGet_WidthSet_HeightSet_Width方法獲得設置Agent動畫人物的高度寬度
  
  AgentHight := PeedyGet_Height; AgentWidth := PeedyGet_Width; PeedySet_Height(
  round(AgentHeight / )); PeedySet_Width( round( AgentWidth / ));
  ⑥MoveTo方法參數xy表示Agent動畫人物移動到的坐標參數Speed表示移動的速度
  
  PeedyMoveTo( (ScreenWidthPeedyGet_Width) Div (ScreenHeightPeedyGet_Height) Div );
  
  ⑦Interrupt方法中斷指定角色的動畫在幾十種動畫動作中有一類後綴名為ing 的動作比較特殊processingsearchingreadingwriting一旦執行就必須通過調用另外一個動畫人物的Interrupt方法才能中斷 角色不能中斷自身的動作否則會導致異常
  
   Request :=
  RobbyPlay(reading); PeedyInterrupt(Request);
  ⑧Wait方法在多個不同動畫人物之間協調動畫動作如等待sRobby的當前動作執行完畢後Peedy做另外一個動作
  
  Request := RobbyPlay(read); PeedyWait(Request); PeedyPlay(search);
  ⑨Play方法執行指定的動畫動作參數Animation為一常量表示動畫類型Agent提供了幾十種預定義動作開發軟件時只需直接調用這些常量即可下面簡要介紹其中常用的一些常量僅供編程參考
  
  動作類型 中文含意 動作類型 中文含意 動作類型 中文含意
  
  Acknowledge 承認
  LookDown 向下看 Sad 悲傷 Alert 警告 LookDownBlink 向下看眨眼 Search 尋找Announce 聲明 LookUp 向上看 StartListening 開始聆聽 Blink 眨眼 LookUpBlink向下看眨眼 StopListening 停止聆聽 Confused 迷惑 LookLeft 向左看 Suggest建議 Congratulate 祝賀 LookLeftBlink 向左看眨眼 Surprised 吃驚 Decline 拒絕LookRight 向右看 Think 思考 DontRecognize 不承認 LookRightBlink 向右看眨眼Wave 揮動 Explain 解釋 MoveDown 向下移動 Write 書寫 GestureDown 向下姿勢MoveUp 向上移動 Processing 計算…… GestureUp 向上姿勢 MoveRight 向右移動Reading 閱讀…… GestureLeft 向左姿勢 MoveLeft 向左移動 Searching 尋找……GestureRight 向右姿勢 Pleased 高興 Writing 書寫…… GetAttention 獲得注意Read 閱讀 Greet 問候 RestPose 恢復初始狀態 Request := peedyPlay(search);
  ⑩Speak方法Agent通過調用語音合成引擎支持英語的語音合成輸出功能只需輸入英文字符串Agent就能通過聲卡音箱說話Agent的當前版本尚不具備支持中文語音合成功能所以只能以wav文件的形式播放中文使用時可以將想要說的中文句子預先錄好wav形式存儲在程序中調用即可參數Text表示文字氣球中顯示的文字參數url表示wav文件的路徑
  
  Peedyspeak(朋友們你們好現在由我為您提供幫助!C:\新建文件夾\Helpwav);
  
  PeedySpeak( Do you like my help? If so Please send me an email! Thank you! );
  
  ⑾CommandsAdd方法在ButtonClick事件中為Agent添加自定義語音識別命令參數const Name表示語音命令的標識參數Caption表示該命令在輸入命令窗口中的顯示標題參數Voice表示該命令對應的語句當用戶通過麥克風向動畫人物發出語音命令時觸發Agent的Command事件因此我們可以另外編寫一個過程完成語音識別功能
  
  procedure TFormButtonClick(Sender: TObject); begin PeedyCommandsAdd(DelphiRun
  DelphiDelphiTrueTrue); PeedyCommandsAdd(Visual Basic Run VBVBTrueTrue);
  PeedyShow(); PeedySpeak(What can I do for you sir?); end;
  ⑷按F運行程序以上程序在Delphi/Windows//NT簡體中文版環境下調試通過
From:http://tw.wingwit.com/Article/program/Delphi/201311/8409.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.