delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声

delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声

    笔者是一位delphi初学者,操作系统为winxp,安装开发软件为delphi 7.0企业版。看了在<<开发高手

>>第2004年第01期41页的<<汪谈VB在编程中如何实现添加动画小精灵角色>>后,想在delphi上实现上面所

讲到的功能。但是遇到了不少问题:

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属性为Agent1)、Button1。

private
    { Private declarations }
    Peedy: IagentCtlCharacterEx;
    Request1: IagentCtlRequest;

procedure TForm1.FormShow(Sender: TObject);
begin
Request1:=Agent1.Characters.Load('Peedy',CurDir+'/Benoit.acs&

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
c#制作精灵 主要代码为: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using AgentObjects; namespace WindowsFormsApplication1 { public partial class Form1 : Form { private IAgentCtlCharacterEx Character; public Form1() { InitializeComponent(); button2.Enabled = false;//先使下面的两个按钮无效 button3.Enabled = false; } private void button1_Click(object sender, EventArgs e) { if (this.comboBox1.Text.Length == 0) { MessageBox.Show("请先选择一个精灵!", "错误信息"); return; } switch (this.comboBox1.Text) { case "吉尼(Genie)": axAgent1.Characters.Load("Genie",(object)"GENIE.ACS");//导入精灵吉尼 Character = axAgent1.Characters["Genie"]; Character.LanguageID = 0x409;//把语言设置为英语,这里不能是中文 Character.Show(null);//显示精灵 break; case "么林(Merlin)": axAgent1.Characters.Load("Merlin",(object)"MERLIN.ACS");//导入精灵么林 Character = axAgent1.Characters["Merlin"]; Character.LanguageID = 0x409;//把语言设置为英语,这里不能是中文 Character.Show(null);//显示精灵 break; case "罗比(Robby)": axAgent1.Characters.Load("Robby",(object)"ROBBY.ACS");//导入精灵罗比 Character = axAgent1.Characters["Robby"]; Character.LanguageID = 0x409;//把语言设置为英语,这里不能是中文 Character.Show(null);//显示精灵 break; case "皮蒂(Peedy)": axAgent1.Characters.Load("Peedy",(object)"PEEDY.ACS");//导入精灵皮蒂 Character = axAgent1.Characters["Peedy"]; Character.LanguageID = 0x409;//把语言设置为英语,这里不能是中文 Character.Show(null);//显示精灵 break; } button1.Enabled = false;//重新设置按钮的有效性 button2.Enabled = true; button3.Enabled = true; } private void button2_Click(object sender, EventArgs e) { Character.Play("Wave"); Character.Play("Hide");//隐藏精灵 switch (this.comboBox1.Text) { case "吉尼(Genie)": axAgent1.Characters.Unload("Genie"); break; case "么林(Merlin)": axAgent1.Characters.Unload("Merlin"); break; case "罗比(Robby)": axAgent1.Characters.Unload("Robby"); break; case "皮蒂(Peedy)": axAgent1.Characters.Unload("Peedy"); break; } button1.Enabled = true; button2.Enabled = false;//使下面的两个按钮无效 button3.Enabled = false; } private void button3_Click(object sender, EventArgs e) { if (textBox1.Text.Length == 0) //如果没有字符的话,就不读 return; Character.Speak(textBox1.Text,null);//让精灵朗读文本 } } }

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值