第38章（第1 / 3页）

A:浏览该网页后,在你的Windows\TemporaryInternetFiles文件夹下可以找到该背景音乐的缓存文件，拷贝出来即可使用。如果还是找不见该文件，可以打开网页的源文件，找到音乐文件的URL路径，用“蚂蚁”等FTP软件进行下载。

2,Q:避免有人从你分帧的主页的帧中径直进入网站,而不是从index.htm中进入?

A:在帧中的网页的〈head〉〈/head〉之间加入以下脚本代码:

vtxt.Speed:=100;

vtxt.Speak(trim(Edit1.Text),10);

end;

procedureTfrmSpeech.btnStopClick(Sender:TObject);

begin

然后安装引用TTS的vtxtauto.tlb类库文件，方法是点击菜单“工程-ImportTypeLibrary”，点“add”按钮，然后选中Windows\speech下的Vtxtauto.tlb文件，放入安装包后，再将其添加成Delphi的一个Unit，自动产生的名字为“VTxtAuto_TLB”。然后，在主Unit的Uses里引用VTxtAuto_TLB，即在Uses后添加字串“VTxtAuto_TLB”。最后参考以下代码：

……

procedureTfrmSpeech.FormCreate(Sender:TObject);

begin

vtxt:=CoVTxtAuto_.Create;

vtxt.StopSpeaking;

end;

end.

第六卷第一章

?1,Q:怎样把别人网页上的背景音乐保存下来?

vtxt.Register('','Speech');

Edit1.Text:='Iamachinese,Ilovemyhomelandverymuch,andyou?'

end;

procedureTfrmSpeech.btnSpeakClick(Sender:TObject);

begin