捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:实现类似Office助手的小精灵
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
第一页 上一页 下一页 最后页 有 23 条纪录 共2页 1 - 20
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表