扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
unit TTSDLL; interface uses VtxtAuto_TLB; procedure Create;export; {待导出的过程和函数} procedure Read(text:PChar);export; procedure Pause;export; procedure Resume;export; procedure Stop;export; function IsSpeaking:Boolean;export; procedure Destory;export; var TTS: IVTxtauto; implementation procedure Create; begin TTS:=CoVTxtAuto.Create; {创建对象} TTS.Register('Project1','Project1'); {注册 } end; procedure Read(text:PChar); begin TTS.Speak(text,vtxtst_READING); |
vtxtst_STATEMENT = 1;平时说话时语气,默认。 vtxtst_QUESTION = 2; 提问的语气。 vtxtst_COMMAND = 4; 命令的语气。 vtxtst_WARNING = 8; 警告的语气。 vtxtst_READING = 16; 阅读文档时的语气。 vtxtst_NUMBERS = 32; 阅读数字时的语气。 vtxtst_SPREADSHEET = 64; 阅读电子表格中元素时的语气。 vtxtsp_VERYHIGH = 128; 立即读出,可以打断当前正读的内容。 vtxtsp_HIGH = 256; 尽快读出,加入播放队列开始。 vtxtsp_NORMAL = 512; 默认,加入播放队列末尾。} end; procedure Pause; begin TTS.AudioPause; {暂停朗读} end; procedure Stop; begin TTS.StopSpeaking;{终止朗读} end; procedure Resume; begin TTS.AudioResume;{恢复朗读} end; function IsSpeaking:Boolean; var Check:Boolean; begin if TTS.IsSpeaking then {判断当前状态} begin Check:=TRUE;{当前正在朗读} end else begin Check:=FALSE;{当前没有朗读} end; Result:=Check;{返回状态值} end; procedure Destory; begin TTS:=nil;{释放对象} end; end. 在Project1.dpr的begin前面添加如下待导出过程函数列表: exports Create index 1, Read index 2, Pause index 3, Resume index 4, Stop index 5, IsSpeaking index 6, Destory index 7; |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者