第38章
作者:佚名 更新:2021-12-03 10:35
然后安装引用 TTS 的 vtxtauto.tlb 类库文件,方法是点击菜单“工程-Import Type Library”,点“add”按钮,然后选中 Windows\speech 下的 Vtxtauto.tlb 文件,放入安装包后,再将其添加成 Delphi 的一个 Unit,自动产生的名字为“VTxtAuto_TLB”。然后,在主 Unit 的 Uses 里引用 VTxtAuto_TLB,即在 Uses 后添加字串“VTxtAuto_TLB”。最后参考以下代码:
……
procedure TfrmSpeech.FormCreate(Sender: TObject);
begin
vtxt:=CoVTxtAuto_.Create;
vtxt.Register('','Speech');
Edit1.Text:='I am a chinese, I love my homeland very much, and you?'
end;
procedure TfrmSpeech.btnSpeakClick(Sender: TObject);
begin
vtxt.Speed:=100;
vtxt.Speak(trim(Edit1.Text),10);
end;
procedure TfrmSpeech.btnStopClick(Sender: TObject);
begin
vtxt.StopSpeaking;
end;
end.
第六卷 第一章
?1,Q:怎样把别人网页上的背景音乐保存下来?
A:浏览该网页后,在你的 Windows\Temporary Internet Files 文件夹下可以找到该背景音乐的缓存文件,拷贝出来即可使用。如果还是找不见该文件,可以打开网页的源文件,找到音乐文件的 URL 路径,用“蚂蚁”等 FTP 软件进行下载。
2,Q:避免有人从你分帧的主页的帧中径直进入网站,而不是从 index.htm 中进入?
A:在帧中的网页的〈head〉〈/head〉之间加入以下脚本代码:
〈Script language="JavaScript"〉
if (top==self)
self.location.href="index.htm";
〈/Script〉
这样,当有人从帧中进入网站时,就会自动重定向到主页文件 index.htm。
3.Q:怎样防止别人把你的网页放到框架里?
A:因为框架(frame)的缘故,有许多人把别人的网页放置到自己的框架里,使之成为自己的一页。如果你要防止别人这样做,可以加入下列 JavaScript 代码即可,它会自动监测,然后跳出别人的框架。
〈Script language="javascript"〉
if (self != top)
top.location = self.location;
〈/Script〉
4,Q:怎样在 FrontPage2000 中加入 Flash 动画?
A:在 FrontPage2000 中,点击[插入]->[高级]->[插件],在弹出的窗口中,设置一下 Flash 文件的大小及其它信息,确定即可。
5,Q:怎样在网页中加入注释?
A:在共同网页开发中,加入注释是防止分工被搞混淆或者注释某段代码特殊的含义,加入注释的格式是:
〈!-[注释内容…]--〉
6,Q:怎样测试浏览器并自动装入所需要的网页?
A:目前微软和网景的浏览器并不能完全兼容所有网页,有的网页在某种浏览器中非常漂亮, 而用其它浏览器查看时却一团糟。如果你需要测试浏览器,可以加入以下 JavaScript 代码使浏览器自动装入所需要的网页:
〈script LANGUAGE="JavaScript"〉
function TestBrowser()
{
ie = ((navigator.appName=="Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 3 ))
ns = ((navigator.appName == "Netscape") && (parseInt(navigator.appVersion) >= 3 ))
if (ns) { setTimeout("location.href="ns.htm"",10); }
else {setTimeout("location.href="ie.htm"",10); }
}
〈/script〉
7,Q:怎样让链接没有下划线?
A:只要在〈Head〉〈/Head〉中加入以下代码,所有链接就都没有下划线了:
〈style type="text/css"〉
〈!--
a {text-transform:none;text-decoration:none;}
a:hover {text-decoration:underline}
--〉
〈/style〉。
8,Q:怎样在网页中加入 E-mail 链接并显示预定的主题?
A: 〈A href="mailto:Emailhost@263.net?subject=主题"〉……〈/a〉
9,Q:怎样让网页的背景图像不滚动?
A: Internet Explorer 浏览器支持一个 Body 属性 bgproperties,它可以让背景不滚动:
〈Body Background="图片文件" bgproperties="fixed"〉
10,Q;怎样定义网页的关键字?
A:在网页中加入关键字,可以供某些搜索站台机器人使用,它们会利用该关键字为你的网站做索引, 这样,当别人用关键字搜索网站时,如果你的网页包含该关键字,那么就可以被列出了。定义本网页关键字,可以在〈Head〉〈/Head〉中加入如下代码:
〈meta name="Keywords" content="china,enterprise,business,net"〉
Content 中所包含的就是关键字,你可以自行设置。
……
procedure TfrmSpeech.FormCreate(Sender: TObject);
begin
vtxt:=CoVTxtAuto_.Create;
vtxt.Register('','Speech');
Edit1.Text:='I am a chinese, I love my homeland very much, and you?'
end;
procedure TfrmSpeech.btnSpeakClick(Sender: TObject);
begin
vtxt.Speed:=100;
vtxt.Speak(trim(Edit1.Text),10);
end;
procedure TfrmSpeech.btnStopClick(Sender: TObject);
begin
vtxt.StopSpeaking;
end;
end.
第六卷 第一章
?1,Q:怎样把别人网页上的背景音乐保存下来?
A:浏览该网页后,在你的 Windows\Temporary Internet Files 文件夹下可以找到该背景音乐的缓存文件,拷贝出来即可使用。如果还是找不见该文件,可以打开网页的源文件,找到音乐文件的 URL 路径,用“蚂蚁”等 FTP 软件进行下载。
2,Q:避免有人从你分帧的主页的帧中径直进入网站,而不是从 index.htm 中进入?
A:在帧中的网页的〈head〉〈/head〉之间加入以下脚本代码:
〈Script language="JavaScript"〉
if (top==self)
self.location.href="index.htm";
〈/Script〉
这样,当有人从帧中进入网站时,就会自动重定向到主页文件 index.htm。
3.Q:怎样防止别人把你的网页放到框架里?
A:因为框架(frame)的缘故,有许多人把别人的网页放置到自己的框架里,使之成为自己的一页。如果你要防止别人这样做,可以加入下列 JavaScript 代码即可,它会自动监测,然后跳出别人的框架。
〈Script language="javascript"〉
if (self != top)
top.location = self.location;
〈/Script〉
4,Q:怎样在 FrontPage2000 中加入 Flash 动画?
A:在 FrontPage2000 中,点击[插入]->[高级]->[插件],在弹出的窗口中,设置一下 Flash 文件的大小及其它信息,确定即可。
5,Q:怎样在网页中加入注释?
A:在共同网页开发中,加入注释是防止分工被搞混淆或者注释某段代码特殊的含义,加入注释的格式是:
〈!-[注释内容…]--〉
6,Q:怎样测试浏览器并自动装入所需要的网页?
A:目前微软和网景的浏览器并不能完全兼容所有网页,有的网页在某种浏览器中非常漂亮, 而用其它浏览器查看时却一团糟。如果你需要测试浏览器,可以加入以下 JavaScript 代码使浏览器自动装入所需要的网页:
〈script LANGUAGE="JavaScript"〉
function TestBrowser()
{
ie = ((navigator.appName=="Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 3 ))
ns = ((navigator.appName == "Netscape") && (parseInt(navigator.appVersion) >= 3 ))
if (ns) { setTimeout("location.href="ns.htm"",10); }
else {setTimeout("location.href="ie.htm"",10); }
}
〈/script〉
7,Q:怎样让链接没有下划线?
A:只要在〈Head〉〈/Head〉中加入以下代码,所有链接就都没有下划线了:
〈style type="text/css"〉
〈!--
a {text-transform:none;text-decoration:none;}
a:hover {text-decoration:underline}
--〉
〈/style〉。
8,Q:怎样在网页中加入 E-mail 链接并显示预定的主题?
A: 〈A href="mailto:Emailhost@263.net?subject=主题"〉……〈/a〉
9,Q:怎样让网页的背景图像不滚动?
A: Internet Explorer 浏览器支持一个 Body 属性 bgproperties,它可以让背景不滚动:
〈Body Background="图片文件" bgproperties="fixed"〉
10,Q;怎样定义网页的关键字?
A:在网页中加入关键字,可以供某些搜索站台机器人使用,它们会利用该关键字为你的网站做索引, 这样,当别人用关键字搜索网站时,如果你的网页包含该关键字,那么就可以被列出了。定义本网页关键字,可以在〈Head〉〈/Head〉中加入如下代码:
〈meta name="Keywords" content="china,enterprise,business,net"〉
Content 中所包含的就是关键字,你可以自行设置。
作品本身仅代表作者本人的观点,与本站立场无关。如因而由此导致任何法律问题或后果,本站均不负任何责任。