此為轉貼資料 標題 ms agent 經典用法 atyzy（收藏） 關鍵字 agent 助手 控制項 作者:解放軍合肥炮兵學院 張建軍 中保財險安徽省銅陵市分公司 韓瑩 收集:csdn程式大本營戰士 atyzy(笑笑) ---- Microsoft Agent是微軟公司於1997年9月發佈的一項代理軟體發展技術，而後被集成到Internet Explorer 4.0 Plus及更高版本中，目前版本爲2.0，支援簡體中文。作爲一種軟體代理工具，Agent以其強大的交互功能、鮮明的人性特點、優美的操作介面和簡便統一的編程方法，對由功能表、按鈕、提示框等組成的傳統人機對話模式産生了很大影響，在多媒體創作、Web應用、教育軟體、軟體幫助系統和輔助工具製作等方面，具有廣闊的應用前景。 一、 Microsoft Agent技術簡介 ---- Agent一詞的中文意思是“代理”，故名思意，這類代理軟體的主要作用是提供一種易於理解和使用的操作介面，接受用戶的指令、代替用戶完成某些複雜繁瑣的工作、或爲用戶提供幫助。科學研究表明：從人機工程的角度考慮，賦予電腦或程式更多人性化色彩，如支援語音合成輸出資訊、語音識別輸入指令、智慧提示、動畫等，能夠充分提高人機交互的有效性和易用性。 ---- 我們知道，在Office 97幫助系統中有一種叫作Office助手的代理軟體，其中幽默風趣的動畫人物，如“大眼夾”，能夠根據用戶的操作步驟“智慧化”地提出一些建議或幫助資訊。與Office助手相比，Agent功能更加豐富強大，表現在： Office助手沿用傳統的不透明矩形窗口，窗口後面的背景被完全擋住；Agent動畫人物本身是一個“AlwaysOnTop”視窗，只有人物身體部分擋住背景，其餘部分透明。 Office助手只允許Office 97的各個元件調用，Agent動畫人物可由任何Windows程式調用； Agent支援文字氣球和輸入提示條，在輸出語音的同時把文字輸出至一個卡通式文字氣球中。如果電腦系統中安裝有Agent語音識別引擎，當用戶按住輸入鍵，如Scroll Lock鍵，在Agent人物下方出現一個輸入命令視窗，表示它正在“聆聽”用戶的語音命令。 Agent提供Genie、Merlin、Bobby和Peedy等動畫人物，不僅具有優美詼諧的動作，而且可以通過音效卡、麥克風與用戶交談。 二、 Microsoft Agent安裝方法 ---- Agent是一種ActiveX控制項，其伺服器程式（C:\WINDOWS\MSAGENT\Agentsvr.exe）運行在Win95/98/NT操作平臺上，爲其他調用Agent的客戶程式提供服務。客戶程式可以是利用VB、C 、Delphi、VFP、PB等開發的應用軟體，也可以是HTML文件中的Visual Script、JavaScript腳本語言代碼。 安裝Agent核心元件Msagent.exe。 安裝Lernout & Hauspie TruVoice Text-to-Speech Engine（完成從文字合成語音的工作，目前版本只支援英語）Cgram.exe。 安裝Microsoft Command and Control Speech Engine（提供語音識別功能，目前版本只支援英語）Actcnc.exe。 Agent動畫人物人物資料檔案。Agent支援單結構角色文件（.acs，角色資料與動畫資料存於同一個文件），也支援分離結構角色文件（.acf，角色資料存於.acf中，動畫資料存於.aca中）。基於本地硬碟和網路的應用程式可採用.acs文件，基於Web頁面的HTML文件在瀏覽器中訪問時會自動調用，習慣上多使用.acs文件。 ---- 上述文件可從 http://www.microsoft.com//workshop/imedia/agent/default.asp下載。 三、 Microsoft Agent編程要點 ---- 1、 在Delphi中添加Agent控制項 ---- 在Delphi IDE中選擇功能表Component，Import ActiveX Control——在Import ActiveX下的列表框中選擇Microsoft Agent Control 2.0（Version 2.0），點擊按鈕Install——在Install對話方塊中點擊按鈕OK——在Confirm對話方塊中點擊按鈕Yes——在對話方塊中點擊按鈕OK。至此，Agent控制項被添加到Delphi元件板ActiveX頁上。 ---- 2、 在Delphi中調用Agent控制項 ---- ⑴、在Delphi IDE 中新建Project1（包含Form1），在Form1上放置Agent1（Name屬性爲MyAgent）、Button1。 ---- ⑵、定義變數。 Var Peedy: IagentCtlCharacterEx; Request1,Request2: IagentCtlRequest; ---- ⑶Agent主要屬性、方法、事件。 ---- ①Characters屬性與Load、Unload方法：初始化Agent，載入動畫資料，卸載動畫人物 ---- Request1 := MyAgent.Characters.Load( 'Peedy', 'C:\Windows\System\Peedy.acs' ); ---- Peedy := MyAgent.Characters.Character( 'Peedy' ); ---- MyAgent.Characters.Unload('Peedy'); ---- ②Show與Hide方法：顯示、隱藏Agent動畫人物。參數Fast表示動畫人物顯示、隱藏的速度。Fast爲0表示Agent飛入、飛出，Fast爲1表示Agent直接出現、消失，沒有動畫過程。 ---- Peedy.Show(0); ---- Peedy.Hide(1); ---- ③StopAll、Stop方法：停止所有動作。 ---- Peedy.StopAll(''); ---- Peedy.Stop(Request); ---- ④Connected屬性：Agent是否與Microsoft Agent伺服器連接。 ---- MyAgent.Connected := True; ---- ⑤Get_Height、Get_Width、Set_Height、Set_Width方法：獲得、設置Agent動畫人物的高度、寬度。 AgentHight := Peedy.Get_Height; AgentWidth := Peedy.Get_Width; Peedy.Set_Height( round(AgentHeight / 2 )); Peedy.Set_Width( round( AgentWidth / 2 )); ---- ⑥MoveTo方法：參數x，y表示Agent動畫人物移動到的座標，參數Speed表示移動的速度。 ---- Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 ); ---- ⑦Interrupt方法：中斷指定角色的動畫。在幾十種動畫動作中，有一類尾碼名爲“ing” 的動作比較特殊，如“processing”、“searching”、“reading”、“writing”，一旦執行就必須通過調用另外一個動畫人物的Interrupt方法才能中斷 。角色不能中斷自身的動作，否則會導致異常。 Request1 := Robby.Play('reading'); Peedy.Interrupt(Request1); ---- ⑧Wait方法：在多個不同動畫人物之間協調動畫動作，如等待sRobby的當前動作執行完畢後，Peedy做另外一個動作。 Request1 := Robby.Play('read'); Peedy.Wait(Request1); Peedy.Play('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 := peedy.Play('search'); ---- ⑩Speak方法：Agent通過調用語音合成引擎，支援英語的語音合成輸出功能，只需輸入英文字串，Agent就能通過音效卡、音箱“說話”。Agent的當前版本尚不具備支援中文語音合成功能，所以只能以.wav文件的形式播放中文。使用時可以將想要說的中文句子預先錄好，以.wav形式存儲，在程式中調用即可。參數Text表示文字氣球中顯示的文字，參數url表示.wav文件的路徑。 ---- Peedy.speak('嗨，朋友們，你們好，現在由我爲您提供幫助！','C:\新建文件夾\Help.wav'); ---- Peedy.Speak( 'Do you like my help? If so, Please send me an email! Thank you!', '' ); ---- ⑾Commands.Add方法：在Button1Click事件中爲Agent添加自定義語音識別命令，參數const Name表示語音命令的標識，參數Caption表示該命令在輸入命令視窗中的顯示標題，參數Voice表示該命令對應的語句。當用戶通過麥克風向動畫人物發出語音命令時，觸發Agent的Command事件，因此我們可以另外編寫一個過程完成語音識別功能。 procedure TForm1.Button1Click(Sender: TObject); begin Peedy.Commands.Add('Delphi','Run Delphi','Delphi',True,True); Peedy.Commands.Add('Visual Basic',' Run VB','VB',True,True); Peedy.Show(0); Peedy.Speak('What can I do for you, sir?',''); end; ---- ⑷、按F9運行程式。以上程式在Delphi3.0/4.0、Windows95/98/NT簡體中文版環境下調試通過。 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

我是使用BCB方式將AGENT呼叫出來，但是在這一行 Peedy.speak("嗨，朋友們，你們好，現在由我爲您提供幫助！","C:\新建文件夾\Help.wav");-------------可以發出聲音 Peedy.Speak("Do you like my help? If so, Please send me an email! Thank you!", "" );----------這一行無法發出聲音 Lernout & Hauspie TruVoice Text-to-Speech Engine（完成從文字合成語音的工作，目前版本只支援英語）Cgram.exe。 已經安裝了，但還是無法將英文唸出來， 請問大大這是啥問題，謝謝。

请教怎样才能得到 MsAgent 的动作指令表? 我有个 悟空的 MsAgent 可苦于没有动作指令表.

感謝分享... 把agent 大概的使用方式介紹一遍..    我有看到另一個 介紹的網頁  http://www.2ccc.com/article.asp?articleid=1044 樓上的可以看一下簡單介紹你要的

感謝分享... 把agent 大概的使用方式介紹一遍..    我有看到另一個 介紹的網頁  http://www.2ccc.com/article.asp?articleid=1044 樓上的可以看一下簡單介紹你要的