文字转换语音软件免费接口

局_选中表项 ＝ 超级列表框1.现行选中项
局_文本名称 ＝ 超级列表框1.取标题 (局_选中表项, 0)
调试输出 (取运行目录 () ＋ “\语音文件\” ＋ 局_文本名称)
媒体播放1.打开 (取运行目录 () ＋ “\语音文件\” ＋ 局_文本名称)
媒体播放1.播放 (-1, )
调试输出 (媒体播放1.取总时间 ())
滑块条_进度.最大位置 ＝ 媒体播放1.取总时间 () × 1000
程序_延时 (100, )
调试输出 (媒体播放1.取位置 ())
.判断循环首 (滑块条_进度.位置 ＜ 滑块条_进度.最大位置)
滑块条_进度.位置 ＝ 媒体播放1.取位置 ()
.判断循环尾 ()
' 程序_延时 (媒体播放1.取总时间 () × 1000 ＋ 1000, )
调试输出 (媒体播放1.取位置 ())
媒体播放1.关闭 ()
调试输出 (“结束”)
滑块条_进度.位置 ＝ -1