( 用Delphi 6 寫的 )

在執行時 Request1:= Myagent.Characters.Load('peedy','C:\Windeows\System\Peedy.acs'); 會發生錯誤

以下是完整程式碼
[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, AgentObjects_TLB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
MyAgent: TAgent;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Var Peedy: IagentCtlCharacterEx;
Request1: IagentCtlRequest;
Request2: IagentCtlRequest;
implementation
Request1:= Myagent.Characters.Load('peedy','C:\Windeows\System\Peedy.acs');
Peedy:=MyAgent.Characters.Character('Peedy');
MyAgent.Characters.Unload('Peedy');
Peedy.Show(0);
Peedy.Hide(1);
Peedy.StopAll('');
Peedy.Stop(Request);
AgentHight := Peedy.Get_Height; AgentWidth := Peedy.Get_Width; Peedy.Set_Height(round(AgentHeight / 2 )); Peedy.Set_Width( round( AgentWidth / 2 ));
Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 );
Request1 :=Robby.Play('reading'); Peedy.Interrupt(Request1);
Request1 := Robby.Play('read'); Peedy.Wait(Request1); Peedy.Play('search');
Peedy.Speak( 'Do you like my help? If so, Please send me an email! Thank you!', '' );
{$R *.dfm}
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;
end.
請在此區域輸入程式碼
[/code]

本人為Delphi新手

但急需使用此程式

請各位大大幫忙

謝謝

編輯記錄

我也算初學，因為都是自學！

是不是少一個，還是多一個單引號！這一行只有3個單引號，不是都成雙成對的嗎？

不是，請不要打我！！！我是來亂的！！！

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

編輯記錄

抱歉 ，在打文章時沒注意.引號補上去了
問題還是存在......

沒人回你！

我想試，但是出現這個
[Fatal Error] Unit1.pas(5): File not found: 'AgentObjects_TLB.dcu'
你這個是另外安裝的吧！那我就沒辦法試了！

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

再附上需要用到的軟體下載點

http://lonhou2005.miroko.tw/web/Agent.rar

請各位大大幫忙 ~"~

全安裝了！安裝2次，重開次，還是一樣！

還是沒有[Fatal Error] Unit1.pas(5): File not found: 'AgentObjects_TLB.dcu'


===================引 用 lonhou2005 文 章===================
再附上需要用到的軟體下載點

http://lonhou2005.miroko.tw/web/Agent.rar

請各位大大幫忙 ~"~

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

在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頁上。

在Delphi IDE 中新建Project1（包含Form1），在Form1上放置Agent1（Name屬性爲MyAgent）、Button1。


看看是不是這裡的問題
各位大大在幫忙試試 ~"~

[Error] Unit1.pas(24): Declaration expected but identifier 'Request1' found
都準備好了，只差沒重開機！執行確定停在你說的位置，下面的訊息是如此！
首先，我裝好後，c:\WINDOWS\msagent\chars\Peedy.acs這個檔案的位置不是在你設的那裡！不過這不重要！

我覺得！我把有問題的那一行//掉，下面都出現一樣的訊息Declaration expected but identifier 'xxxxxxxxx' found

想問，你確定放這個位置是對的嗎？這個位置我只看過有放uses。不過，我不是高手！回家重開機後，我再試看看！先這樣了

------
資訊業是永遠不能停止學習的行業！
但是進步都只是一點點一點點！
==可以不用理我！因為我的程度只有2成，或許不到！！
==我只會拉拉元件，打打迴圈，打打條件判斷，連連資料庫，rs232送送訊號，印表機簡單列印。
只有寫寫小小的點餐軟體(為何想寫，因為叫人家改的小東西，都ooxx，是會付錢的又不是沒錢，但是理由還是一堆)

看起來像是複製錯誤的程式，有點像書上的，
我沒有寫過程式寫在implementation的，所以他。。還真神奇@.@
你把那些程式放下去Button裡面稍微改一下就可以跑了
改掉沒有宣告，名稱錯誤，還有Unload執行後是不能去呼叫的這幾個東西就好了，比如如下
Robby那段我註解掉了，因為底下呼叫的還是Peedy
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
Var
Peedy, Robby: IagentCtlCharacterEx;
Request1: IagentCtlRequest;
Request2: IagentCtlRequest;
AgentHeight, AgentWidth :Integer; //這裡要
begin
Request1:= Myagent.Characters.Load('peedy','Peedy.acs'); // 放置Agent的路徑
Peedy:=MyAgent.Characters.Character('Peedy');
//MyAgent.Characters.Unload('Peedy');
Peedy.Show(0);
Peedy.Hide(1);
Peedy.StopAll('');
Peedy.Stop(Request1);
AgentHeight := Peedy.Get_Height; AgentWidth := Peedy.Get_Width; Peedy.Set_Height(round(AgentHeight / 2 )); Peedy.Set_Width( round( AgentWidth / 2 ));
Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 );
// Request1:= Myagent.Characters.Load('Robby','Robby.acs');
// Robby:=MyAgent.Characters.Character('Robby');
// //MyAgent.Characters.Unload('Robby');
// Request1 := Robby.Play('reading'); Peedy.Interrupt(Request1);
// Request1 := Robby.Play('read'); Peedy.Wait(Request1); Peedy.Play('search');
Peedy.Speak( 'Do you like my help? If so, Please send me an email! Thank you!', '' );
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;

[/code]

感謝！我再去試試...

編輯記錄