社区
Delphi
帖子详情
几个小问题,解决后立即给分。
365hyl
2003-10-16 11:12:46
1、找一个能支持HTML的LABEL或相似控件;
2、音标如何存入数据库;
3、TTS使用的详细介绍说明;
THX
...全文
44
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里加载了若干个个wx.request函数,有的函数的参数依赖于其他函数的返回值。 而由于微信小程序的onload函数是异步...
windows系统下Mysql服务启动后
立即
关闭
问题
-排查及
解决
方法
文章目录
问题
情况:1.启动2.短暂显示启动成功3.显示停止
解决
方法:1.查看日志:1.1 到指定目录下1.2 排查日志,发现了两条ERROR语句:2.网上搜索相关资料2.1查看自己的ini配置文件2.2去除该语句,再次启动。成功!...
常见中文乱码
问题
以及
解决
方案(web版)
下面将从几个常见乱码
问题
入手,分析其原理,给出
解决
方案,以便到后续开发中能够尽量避免此
问题
的发生。目录引言一、
问题
阐述与分析 1.1 IDEA控制台乱码
问题
1.2 页面乱码
问题
1.3 前台参数乱码
问题
1.4 数据库插入...
promise特点和
解决
信任
问题
文章目录Promise的信任
问题
和几个关键
问题
1.Promise的信任
问题
1.1信任
问题
1.2信任
问题
产生的原因1.2.1调用过早1.2.2调用过晚1.2.3回调未调用1.2.4调用次数过少或过多1.2.5未传递参数、环境值2.Promise的几个关键
问题
...
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章