关于tts语音引擎的使用方法!很多软件具有英文发音和朗读功能，它们都使用了MSTTS（Microsoft Text To Speech）技术。微软遵照COM的标准，提供了一套Speech API来对MSTTS进行编程。要在程序中使用这套API，必须确保系统已经安装了MSTTS和Spchapi软件包。 Speech API可以作为类型库引用到Delphi中，方法是：打开Project选单下的Import Type Litrary，点击“Add”加入Windows\Speech目录下的Vtxauto.tlb文件，在Delphi的Import目录中就会生成VTxtAuto—TLB.pas文件，其中定义了VTxtAuto—TLB单元，把它加到Uses成员中来。设计如图2所示的窗口，定义全局变量： Var VoTxt：IVTxtAuto 然后在Form的OnCreate事件中加入： VoTxt：=CoVTxtAuto_.Create VoTxt.Register(′′,′Speech Test′) {注册} “Read”按钮代码为： VoTxt.Speak(Memo1.Lines.Text,10) {朗读} “Stop”按钮代码为： VoTxt.StopSpeaking {停止朗读} 至此，应用程序已具有朗读功能，10表示使用普通语气。借住VoTxt的属性和方法，我们还可以控制阅读速度和语气，实现暂停、跳句等功能，Speech API编程就这么简单。
上传时间： 2014-01-21
上传用户：13681659100
delphi 自定义网络函数：unit net interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet //得到本机的局域网ip地址 function getlocalip(Var localip:string): boolean //通过ip返回机器名 function getnamebyipaddr(ipaddr: string Var macname: string): boolean //获取网络中sqlserver列表 function getsqlserverlist(Var list: tstringlist): boolean //获取网络中的所有网络类型 function getnetlist(Var list: tstringlist): boolean //获取网络中的工作组
标签： interface sysutils classes dialogs
上传时间： 2015-05-09
上传用户：wanghui2438
这是bios-lt的最新板，(1) bios.img占用的扇区数由4个合并为2个,相应的文件大小由193K减小为66K (2) 实现了对FLASH芯片BOOT扇区的处理,建立FLASH分区时不用再考虑让开BOOT扇区 改动的主要目的是想做到: 在29F040上空出384K的空间,建立一个分区存放不含应用程序的uClinux kernel, 将29LV160作为一个大分区,在其上建立JFFS2文件系统,并挂接为uClinux的根文件系统. 系统应用程序全部存储在JFFS2文件系统中. 再使用tmpfs来做临时目录和 /Var目录. 这样就可以做到建立一个更加通用的,拿来就可以运行的uClinux系统,相当于给开发版 预装一个操作系统^_^ 由于JFFS2是文件系统是可写的,开发者只需将编好的用户程序 通过FTP下载到uClinux中,再改一改启动脚本即可 省去了配置uClinux环境的重复劳动
标签： bios-lt
上传时间： 2014-01-27
上传用户：watch100
1. PL/0 语言介绍 ●PL/0 程序设计语言是一个较简单的语言，它以赋值语句为基础，构造概念有顺序、条件和重复（循环）三种。PL/0 有子程序概念，包括过程定义（可以嵌套）与调用且有局部变量说明。PL/0语言编译程序采用以语法分析为核心、一遍扫描的编译方法。词法分析和代码生成作为独立的子程序供语法分析程序调用。语法分析的同时，提供了出错报告和出错恢复的功能。在源程序没有错误编译通过的情况下，调用类PCODE解释程序解释执行生成的类PCODE代码。 ●保留字(关键字)：所谓保留字是指在Pascal语言中具有特定的含义。标准Pascal语言中的保留字一共有35个，Turbo Pascal语言一共有51个。下面是Pascal语言的保留字：AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DOWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，IN，LABEL，MOD，NIL，NOT，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，Var，WHILE，WITH，EXPORTS，SHR，STRING，ASM，OBJECT，UNIT，CONSTRUCTOR，IMPLEMENTATION，DESTRUCTOR，USES，INHERITED，INLINE，INTERFACE，LIBRARY，XOR，SHL
上传时间： 2015-07-17
上传用户：zm7516678
统计工具软件，用于金融，保险，银行等领域进行Var风险估计计算
标签： 软件
上传时间： 2013-12-21
上传用户：comua
Delphi6.0函数大全，Delphi程序员的至爱。∷图书简介∷ 电子图书名:Delphi6函数大全 Delphi6函数大全（1） <> 首部 function AnsiResemblesText(const AText, AOther: string): Boolean $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会 不区分大小写参考 function StrUtils.SoundexProc Var StrUtils.AnsiResemblesProc例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text)
上传时间： 2016-01-25
上传用户：mikesering
function MagMakeSkillFire_60(PlayObject: TBaseObject UserMagic: pTUserMagic nPower: Integer): Boolean function MagMakeSkillFire_61(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer Var TargeTBaseObject: TBaseObject): Boolean function MagMakeSkillFire_62(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer Var TargeTBaseObject: TBaseObject): Boolean function MagMakeSkillFire_63(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer TargeTBaseObject: TBaseObject): Boolean function MagMakeSkillFire_64(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer TargeTBaseObject: TBaseObject): Boolean function MagMakeSkillFire_65(BaseObject: TBaseObject nPower: Integer): Boolean end
标签： MagMakeSkillFire TBaseObject pTUserMagic PlayObject
上传时间： 2016-02-21
上传用户：英雄
弹簧隔振器的系数k0=4.5 hc=3.5 d=[3.15 3.23] a1=tan(pi*(d)./(2*hc)) a2=cot(pi*(d)./(2*hc)) ％ plot(d,a1) y=(a1+a2)*2*k0*hc*1e-3./pi y=y./9.8*8 ％ Var=1+(tan(pi*(d+0.25)./(2*hc))).^2 k=2*k0*hc/pi*( Var*pi./(2*hc)+Var*pi./(2*hc)./(Var-1
上传时间： 2013-12-01
上传用户：redmoons
构造一个简单程序设计语言的词法分析器，要求： 1） 含有保留字program, begin, end, Var, integer, if, then, else, do, while. 2） 标识符和无符号的整常数，其中保留字和标识符不区分大小写. 3） 含有界符和运算符如下：+,-, (, ), =, >, <, , :, :=.,,。 4） 输出二元组。
上传时间： 2014-01-04
上传用户：离殇
对PL0原编译器进行了以下的扩充：1.增加以下保留字else(elsesym), for(forsym),to(tosym),downto(downtosym),return(returnsym),[(lmparen),](rmparen) 2.增加了以下的运算符：+=(eplus),-=(eminus),++(dplus),--(dminus) 取址运算符&(radsym),指向运算符@(padsym) 3.修改单词：修改不等号#为<> 4.扩充语句：(1)增加了else子句 (2)增加了for语句 5.增加运算：(1).++运算 (2).--运算；(3).+=运算 (4).-=运算；(5).&取址运算； (6).@指向运算； 6.增加类型：(1).增加多维数组a[i1][i2][i3]……[i(n-1)][i(n-2)][in] (2).增加指针类型(任何变量都能存放指针，但不支持指针的指针，如b:=@@a应该改写为c:=@a,b:=@c) 7.将过程procedure扩展为函数：(1).允许定义过程时在其后加参数(Var a, Var b,……..,Var n) (2)允许通过指针向函数形式参数传地址；(3)允许返回值；可以用 a:=p(a,b,c….,n) 返回
标签： downtosym returnsym elsesym downto
上传时间： 2016-07-01
上传用户：saharawalker
