lps
29869
|
2007/6/8 13:38:26 |
DELPHI7英文不能发声,请参见 http://www.2ccc.com/article.asp?articleid=4152 此问题困扰几年了 |
lins19741218
22917
|
2006/4/13 22:38:20 |
对了,Merlin 的类型必须是 IagentCtlCharacterEx 而不能是 IagentCtlCharacter |
lins19741218
22916
|
2006/4/13 22:36:38 |
要想在delphi6,delphi7中英文发声,很简单,只需要加入以下语句即可: Merlin.LanguageID := $0409; 一般加在 Merlin := MyAgent.Characters.Character( 'Merlin' ); 之后。 |
hong9906
20613
|
2006/1/3 21:35:18 |
极品,有没有更好的? |
yjingz
20332
|
2005/12/26 8:59:42 |
谢谢 |
brainyang
20066
|
2005/12/16 15:26:45 |
To langziwujia007: Component -> Import ActiveX Control ->Microsoft Agent Control 2.0 |
rongxingdelphi
11493
|
2005/1/9 18:20:03 |
好像DELPHI7英文也不能发声.. |
langziwujia007
10008
|
2004/11/30 13:06:47 |
哪里可以下载agent控件啊。急…… 谢谢 |
luckywangxw
8579
|
2004/9/21 4:57:29 |
我试过了,delphi5中可以发声,delphi6中不可以发声 |
luckywangxw
8555
|
2004/9/20 5:18:53 |
我用vb做的 Merlin.speak('I love you',') 会发 英文 语音 为何在 Delphi中 不会发音???? |
luckywangxw
8554
|
2004/9/20 5:17:02 |
请教: Merlin.speak('嗨,朋友们,你们好,现在由我为您提供帮助!','C:\新建文件夹\Help.wav'); 时有声音,但 Merlin.speak('I love you',')没声音 ?????为什么??????? |
cqxiangyi
8310
|
2004/9/10 11:14:11 |
单击'说话'按钮只有一个指示框,没有声音! |
metro_liu
6957
|
2004/7/18 21:21:31 |
问题解决了,Merlin: IagentCtlCharacterEx; Request:IagentCtlRequest; 就不能这样用。 |
metro_liu
6951
|
2004/7/18 16:42:06 |
不对呀,我已经装好了Agent,而且还在ActiveX页面上出现了一个戴墨镜的男子。但是编译上面代码的时候还是要报错:Error] Unit1.pas(42): Incompatible types: 'IAgentCtlCharacter' and 'IAgentCtlCharacterEx' |
qcb_8031
6941
|
2004/7/18 12:19:15 |
metro_liu 你提出的报错的原因是没有引入该控件,请照上引入即可 |
qcb_8031
6940
|
2004/7/18 12:15:44 |
在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页上。
|
metro_liu
6939
|
2004/7/18 11:52:24 |
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, AgentObjects_TLB;
type TForm1 = class(TForm) MyAgent: TAgent; Button1: TButton; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; Merlin: IagentCtlCharacterEx; Request:IagentCtlRequest; Actions:array [0..8] of WideString;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); begin Actions[0]:='Acknowledge'; Actions[1]:='LookDown'; Actions[2]:='Search'; Actions[3]:='Announce'; Actions[4]:='Processing'; Actions[5]:='Reading'; Actions[6]:='MoveDown'; Actions[7]:='LookUp'; Actions[8]:='GestureRight'; Request := MyAgent.Characters.Load('Merlin', 'Merlin.acs' ); Merlin := MyAgent.Characters.Character( 'Merlin' ); Merlin.Show(0); end;
end. 但是要报错:[Error] Unit1.pas(42): Incompatible types: 'IAgentCtlCharacter' and 'IAgentCtlCharacterEx' |
root_lh
6867
|
2004/7/17 0:57:58 |
下载来试试。。 |
zhusongdong
6614
|
2004/7/8 5:59:26 |
TAgent是引用哪个单元,请问一下 |
ddzhouqian
6608
|
2004/7/7 16:46:44 |
编译报错! http://bbs.2ccc.com/topic.asp?topicid=102640 |