社区
Delphi
帖子详情
几个小问题,解决后立即给分。
365hyl
2003-10-16 11:12:46
1、找一个能支持HTML的LABEL或相似控件;
2、音标如何存入数据库;
3、TTS使用的详细介绍说明;
THX
...全文
36
9
打赏
收藏
几个小问题,解决后立即给分。
1、找一个能支持HTML的LABEL或相似控件; 2、音标如何存入数据库; 3、TTS使用的详细介绍说明; THX
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
365hyl
2003-10-21
打赏
举报
回复
1、找一个能支持HTML的LABEL或相似控件<因为要显示的内容为HTML格式,是从数据库中读出来的,但内容不是太多,能有个支持HTML的label控件最好,但我没有找到>;
2、音标如何存入数据库(就是一个单词的音标,那种字符如何存入数据库,或者知道单词,如何得出他的音标来.);
谢谢各位了.
365hyl
2003-10-20
打赏
举报
回复
比如<img src="">这个图片要显示出来.
音标就是指一个单词的音标,如何存放入数据库.
frogshero
2003-10-19
打赏
举报
回复
up
liyangyao970
2003-10-19
打赏
举报
回复
up
pankun
2003-10-19
打赏
举报
回复
显示HTML文档你可以用Twebbroswer控件.
2.什么音标?文本格式的还是声音文件?
3:转贴子给你参考下
TTS语音
本人用TTS做了个背单词的EXE。省去了取词的部分,哪位富翁愿意的话,
请将之完善。也请给我寄一份。源码如下:
unit word1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
VTxtAuto_TLB, StdCtrls, ComCtrls, Mask, FileCtrl;
type
TForm1 = class(TForm)
speedtext: TStaticText;
speed: TTrackBar;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
gettext: TLabel;
procedure FormCreate(Sender: TObject);
procedure stopbtnClick(Sender: TObject);
procedure speedChange(Sender: TObject);
procedure prebtnClick(Sender: TObject);
procedure nextbtnClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
TTS:IVTxtAuto;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
TTS:=CoVtxtAuto_.Create;
TTS.Register('superwords','superwords');
speed.Position:=TTS.Get_Speed;
speedtext.caption:='速度:'+inttostr(speed.position);
speed.SelEnd:=speed.Position;
//filelistbox1.Mask:= '所有文件(*.*)|*.*| 文本文件(*.txt)|*.txt';
end;
procedure TForm1.stopbtnClick(Sender: TObject);
begin
TTS.StopSpeaking;
end;
procedure TForm1.speedChange(Sender: TObject);
begin
TTS.Set_Speed(speed.position);
speedtext.caption:='速度:'+inttostr(speed.position);
speed.SelEnd:=speed.Position;
end;
procedure TForm1.prebtnClick(Sender: TObject);
begin
TTS.AudioRewind;
end;
procedure TForm1.nextbtnClick(Sender: TObject);
begin
TTS.AudioFastForward;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
TTS:=nil;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TTS.Speak(Edit1.text,vtxtst_READING);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (length(trim(edit1.text))>0) and (key=chr(32))
then begin if trim(edit1.text)=gettext.Caption
then begin
TTS.Speak(edit1.Text,vtxtst_COMMAND);
edit1.Clear;
end
else TTS.Speak('YOU ARE WRONG',vtxtst_STATEMENT);
end;
end;
end.
365hyl
2003-10-19
打赏
举报
回复
up一下
365hyl
2003-10-16
打赏
举报
回复
我是指它要能够显示HTML文档呀
wooden954
2003-10-16
打赏
举报
回复
1.用普通Label就行,设置显示的字体加下划线,设置字体颜色,在单击事件中取得地址并用IE打开!
Hedonism
2003-10-16
打赏
举报
回复
关注
国内ChatGPT日趋成熟后,可以优先
解决
的
几个
日常小
问题
其实利用这项新技术,大公司更应该有所担当,开发出一些能
解决
我们日常生活的小
问题
的场景应用,以下便是我想到的可以利用ChatGPT技术继续深入研究的一些场景。
微信小程序(一)onload函数异步处理的
解决
方案
微信小程序(一)onload函数异步执行的
解决
方案写作目的
解决
方案一
解决
方案二 写作目的 这两天把前
几个
月写的小程序整理了一下,发现实际连上服务器之后会发生网络错误,主要是因为onload里加载了若干个个wx.request函数,有的函数的参数依赖于其他函数的返回值。 而由于微信小程序的onload函数是异步执行的,导致先执行的函数尚未返回参数,后续函数就已经开始运行,最终产生错误。
解决
方案一 使用Promise或者回调函数来保证程序按照你想要的顺序执行 sample:getDish()方法需要先执行ge
常见中文乱码
问题
以及
解决
方案(web版)
在平常我们开发的过程中,可能会遇到各种各样的
问题
,其中中文乱码
问题
是最普遍最麻烦的,因为寻常的中文乱码会有各种形式,有前端原因,也有后台原因,所以需要具体
问题
具体
分
析。下面将从
几个
常见乱码
问题
入手,
分
析其原理,给出
解决
方案,以便到后续开发中能够尽量避免此
问题
的发生。目录引言一、
问题
阐述与
分
析 1.1 IDEA控制台乱码
问题
1.2 页面乱码
问题
1.3 前台参数乱码
问题
1.4 数据库插入乱码
问题
1.5 服务器乱码
问题
1.6 CSV等文件中文乱码
问题
1.7 U
支付中心-重复支付
问题
解决
方案
支付中心-重复支付
问题
解决
方案 一笔订单,可以做多笔支付,怎么
解决
? 重复支付的异常背景 一笔订单,在支付中心可以选择多种支付方式。如支付宝扫码,支付宝app,微信扫码,微信小程序,银联… 用户选择支付方式后,系统需要和第三方进行交互,获取到结果后,可能跳转到第三方收银台,也可能在当前页面展示收款二维码; 用户打开一种支付方式,没有完成付款的情况下,又选择打开了其他支付方式。如准备用微信支付,打开收款二维码后,发现微信余额不足,遂即打开支付宝支付,此时两个支付方式都可以做支付操作。 由于产生待支付单后,支
windows系统下Mysql服务启动后
立即
关闭
问题
-排查及
解决
方法
文章目录
问题
情况:1.启动2.短暂显示启动成功3.显示停止
解决
方法:1.查看日志:1.1 到指定目录下1.2 排查日志,发现了两条ERROR语句:2.网上搜索相关资料2.1查看自己的ini配置文件2.2去除该语句,再次启动。成功!总结
问题
情况: 今天安装Mysql 数据库。安装完毕后,启动服务,显示启动成功,但是没过一秒,就停止服务了。具体情况见下图 1.启动 2.短暂显示启动成功 3....
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章