?? intraweb學(xué)習(xí)筆記（四）.htm
字號(hào):
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0034)http://www.51delphi.com/wz/18.html -->
<HTML><HEAD><TITLE>IntraWeb學(xué)習(xí)筆記（四）</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>.9pt {
FONT-SIZE: 9pt; FONT-FAMILY: "Tahoma", "宋體"
}
BODY {
FONT-SIZE: 10pt; FONT-FAMILY: "Tahoma", "宋體"
}
.Title {
FONT-WEIGHT: bold; FONT-SIZE: 12pt; LINE-HEIGHT: 14pt; FONT-FAMILY: "Tahoma", "宋體"; BACKGROUND-COLOR: #ccccff
}
TD {
TEXT-INDENT: 20pt
}
.prog {
FONT-SIZE: 9pt; TEXT-INDENT: 0pt; FONT-FAMILY: "Courier New", "Courier"
}
.SubTitle {
FONT-SIZE: 10pt; TEXT-INDENT: 0pt; LINE-HEIGHT: 14pt; FONT-FAMILY: "Tahoma", "宋體"; BACKGROUND-COLOR: #cc99ff
}
.body {
FONT-SIZE: 10pt; FONT-FAMILY: "Tahoma", "宋體"
}
</STYLE>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY>
<TABLE cellSpacing=1 cellPadding=0 width="80%" align=center bgColor=#0033ff
border=0>
<TBODY>
<TR>
<TD class=Title bgColor=#ffffff>
<P align=center>IntraWeb學(xué)習(xí)筆記（四）</P>
<P align=right><FONT size=-1>作者：bnPYSse(原創(chuàng)）</FONT></P></TD></TR>
<TR>
<TD class=body bgColor=#ffffff>
<P>近幾天，在網(wǎng)上發(fā)現(xiàn)一個(gè)用IntraWeb開發(fā)的網(wǎng)站http://www.intrawebdeveloper.com，感覺還不錯(cuò)，只是速度有點(diǎn)太慢了。看來，IntraWeb如果想要走向Internet的真正應(yīng)用，速度應(yīng)該是其解決的首要問題。</P>
<P>里面有一些介紹應(yīng)用經(jīng)驗(yàn)的小文章，不敢獨(dú)享，特翻譯出來與大家共享（不過，E文水平有限），內(nèi)容不是很多，大家將就著看吧。并真誠(chéng)歡迎您給予批評(píng)指正。:)</P></TD></TR>
<TR>
<TD class=SubTitle bgColor=#ffffff>16、在IntraWeb中如何使用Cookies</TD></TR>
<TR>
<TD class=body bgColor=#ffffff>
<P>創(chuàng)建Cookies：</P>
<TABLE width="80%" align=center border=0>
<TBODY>
<TR>
<TD class=prog><STRONG>procedure</STRONG>
TIWForm1.CreateTheCookie;<BR><STRONG>var</STRONG><BR> MyCookies:
TstringList;<BR><STRONG>begin<BR> try</STRONG><BR> MyCookies :=
TstringList.create;<BR> MyCookies.Add('<FONT
color=#ff0000>CookieName1</FONT>=CookieValue1');<BR> MyCookies.Add('<FONT
color=#ff0000>CookieName2</FONT>=CookieValue2');<BR> Webapplication.Response.SetCookieField(<BR> MyCookies,
{ <FONT color=#009900>要設(shè)置的Cookies</FONT>} <BR> '', { <FONT
color=#009900>發(fā)送到Cookies的域名，如果為空的話，則使用當(dāng)前的</FONT> }<BR> '', { <FONT
color=#009900>發(fā)送到Cookies的路徑，如果為空的話，則使用任意路徑</FONT> }<BR> Now+1, {
<FONT color=#009900>Cookies的有效期</FONT> }<BR> False {<FONT
color=#009900> 是否使用加密的連接 </FONT>}<BR> );
<BR><STRONG> finally</STRONG><BR> MyCookies.free;<BR><STRONG> end;<BR>end;</STRONG></TD></TR></TBODY></TABLE>
<P>讀取Cookies:</P>
<TABLE width="80%" align=center border=0>
<TBODY>
<TR>
<TD class=prog><STRONG>procedure</STRONG>
TIWForm1.ReadTheCookie;<BR><STRONG>var</STRONG><BR> Value1:
String;<BR> Value2: String; <BR><STRONG>begin</STRONG><BR> Value1 :=
webapplication.request.cookieFields.values['<FONT
color=#ff0000>CookieName1</FONT>'];<BR> Value2 :=
webapplication.request.cookieFields.values['<FONT
color=#ff0000>CookieName2</FONT>'];<BR><STRONG>end;</STRONG><BR></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=SubTitle bgColor=#ffffff>17、在標(biāo)簽如何加上空格</TD></TR>
<TR>
<TD class=body bgColor=#ffffff>
<P>也許有的朋友想在標(biāo)簽上加上空格，但如果只是使用空格鍵的話，在生成HTML文件時(shí)，則會(huì)將這個(gè)“空白”刪掉，而只有使用“&nbsp”，才能確實(shí)形成在網(wǎng)頁(yè)上所想要的“空白”。例如：</P>
<TABLE width="80%" align=center border=0>
<TBODY>
<TR>
<TD class=prog>IWLabel1.Caption := '& nbsp ; & nbsp ; &
nbsp ; Three Spaces';</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=SubTitle bgColor=#ffffff>18、如何在IntraWeb中取用傳遞的URL參數(shù)</TD></TR>
<TR>
<TD class=body bgColor=#ffffff>
<P>例如有這樣一個(gè)URL地址：http://www.SomePlace.com/SomeApplicationName?<FONT
color=#ff0000>value1</FONT>=Dog&<FONT
color=#ff0000>value2</FONT>=Cat</P>
<P>而想著在IntraWeb中取得這些參數(shù)的值，要如何實(shí)現(xiàn)呢？可以按以下的思路：</P>
<TABLE width="80%" align=center border=0>
<TBODY>
<TR>
<TD class=prog><STRONG>procedure</STRONG>
TIndex.IWAppFormCreate(Sender:
TObject);<BR><STRONG>var</STRONG><BR> ValueString1, ValueString2:
<STRONG>string</STRONG>;<BR><STRONG>begin</STRONG><BR> ValueString1
:= WebApplication.RunParams.Values[<FONT color=#ff0000> 'value1'
</FONT>];<BR> ValueString2 := WebApplication.RunParams.Values[ <FONT
color=#ff0000>'value2'</FONT> ]; <BR><STRONG>end;
</STRONG></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=SubTitle bgColor=#ffffff>19、如果控制Input中的光標(biāo)</TD></TR>
<TR>
<TD class=body bgColor=#ffffff>
<P>這種情況只發(fā)生在IE當(dāng)中，當(dāng)頁(yè)面刷新時(shí)，輸入盒中的光標(biāo)會(huì)重新回到開始位置上去。下面的方法則可以解決刷新頁(yè)面時(shí)的光標(biāo)重定位問題。</P>
<P>首先，要為控件的ScriptEvents.OnFocus增加一點(diǎn)代碼：</P>
<TABLE width="80%" align=center border=0>
<TBODY>
<TR>
<TD class=prog><STRONG>var</STRONG> range =
this.createTextRange();<BR>range.moveStart('character',
this.value.length);<BR>range.select(); </TD></TR></TBODY></TABLE>
<P>然后，打開窗體的onRender事件，并加入：</P>
<TABLE width="80%" align=center border=0>
<TBODY>
<TR>
<TD class=prog>ComponentName.setFocus;</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=SubTitle bgColor=#ffffff>20、如何獲得當(dāng)前的Session數(shù)目</TD></TR>
<TR>
<TD class=body bgColor=#ffffff>
<P>也許有時(shí)，需要獲得取當(dāng)前的會(huì)話數(shù)目，可以借用以下的代碼段：</P>
<TABLE class=prog width="80%" align=center border=0>
<TBODY>
<TR>
<TD><STRONG>procedure</STRONG> TIWForm1.IWButton1Click(Sender:
TObject);<BR><STRONG>var</STRONG> <BR> LCount: integer;
<BR><STRONG>begin <BR> try </STRONG><BR> LCount :=
GSessions.LockList.Count; <BR><STRONG> finally
</STRONG><BR> GSessions.UnlockList; <BR><STRONG> end; <BR>end;
</STRONG></TD></TR></TBODY></TABLE>
<P>如想更自由地來實(shí)現(xiàn)對(duì)所有會(huì)話進(jìn)行計(jì)數(shù)，則可以在ServerController.OnNewSession或者SeverController.OnCloseSessionk中自主編程。</P></TD></TR>
<TR>
<TD class=body bgColor=#ffffff>實(shí)在不好意思，這次的內(nèi)容并不多。如需交流，請(qǐng)聯(lián)系我：<A
href="mailto:bnpysse@sina.com">bnpysse@sina.com</A>。</TD></TR></TBODY></TABLE></BODY></HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -