intraweb开发学习笔记（三）.htm

IntraWeb学习资料

      <P style="TEXT-INDENT: 20pt"><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">总的从第一印象上看，分类更加细致，开发人员应用起来要方便得多了。</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <P style="TEXT-INDENT: 20pt; TEXT-ALIGN: right" align=right><SPAN 
      lang=EN-US style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><A 
      href="http://www.51delphi.com/wz/17.html#0">top</A><o:p></o:p></SPAN></P></TD></TR>
  <TR style="mso-yfti-irow: 7">
    <TD 
    style="PADDING-RIGHT: 0.75pt; PADDING-LEFT: 0.75pt; BACKGROUND: #cc99ff; PADDING-BOTTOM: 0.75pt; PADDING-TOP: 0.75pt">
      <P class=MsoNormal style="LINE-HEIGHT: 14pt"><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">15</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">、转换老版本应注意的几个问题</SPAN><A 
      name=15></A><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P></TD></TR>
  <TR style="mso-yfti-irow: 8">
    <TD 
    style="PADDING-RIGHT: 0.75pt; PADDING-LEFT: 0.75pt; BACKGROUND: white; PADDING-BOTTOM: 0.75pt; PADDING-TOP: 0.75pt">
      <P style="TEXT-INDENT: 20pt"><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">如果将过去的应用程序转换到</SPAN><SPAN 
      lang=EN-US style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">5.1</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">版本下运行，要涉及到几个需要修改的地方。</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <P style="TEXT-INDENT: 20pt"><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">1</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">、</SPAN><SPAN 
      class=SpellE><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">TIWImage</SPAN></SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">组件</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <P style="TEXT-INDENT: 20pt"><SPAN class=SpellE><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">UseBorder</SPAN></SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">属性已经为</SPAN><SPAN 
      class=SpellE><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">BorderOptions</SPAN></SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">属性所代替。</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <P style="TEXT-INDENT: 20pt"><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">2</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">、</SPAN><SPAN 
      lang=EN-US style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"> <SPAN 
      class=SpellE>RWebApplication</SPAN><o:p></o:p></SPAN></P>
      <P style="TEXT-INDENT: 20pt"><SPAN class=SpellE><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">RWebApplication</SPAN></SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">在</SPAN><SPAN 
      lang=EN-US style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">5.1</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">版本中可以视同于</SPAN><SPAN 
      class=SpellE><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">WebApplication</SPAN></SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">。</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <P style="TEXT-INDENT: 20pt"><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">3</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">、</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Project</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">文件的变化</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <P style="TEXT-INDENT: 20pt"><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">在</SPAN><SPAN 
      lang=EN-US style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">5.1</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">版本中，工程文件有了新的格式。标准调试可执行文件现在从标准服务程序工程组中分离出来。用</SPAN><SPAN 
      lang=EN-US style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">Guess</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">演示程序来看，一个新的标准应用文件如下所示：</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <DIV align=center>
      <TABLE class=MsoNormalTable style="WIDTH: 80%; mso-cellspacing: 1.5pt" 
      cellPadding=0 width="80%" border=0>
        <TBODY>
        <TR style="mso-yfti-irow: 0; mso-yfti-lastrow: yes">
          <TD 
          style="PADDING-RIGHT: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-BOTTOM: 0.75pt; PADDING-TOP: 0.75pt">
            <P class=MsoNormal><STRONG><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">program</SPAN></STRONG><SPAN 
            lang=EN-US style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'"> 
            Guess;<BR><STRONG><SPAN 
            style="FONT-FAMILY: 'Courier New'">uses</SPAN></STRONG><BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">Forms,<BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            class=SpellE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">IWMain</SPAN></SPAN><SPAN 
            lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">,<BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            lang=EN-US style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">Main 
            in '<SPAN class=SpellE>Main.pas</SPAN>' {<SPAN 
            class=SpellE>formMain</SPAN>: <SPAN 
            class=SpellE>TIWFormModuleBase</SPAN>},<BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            class=SpellE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">ServerController</SPAN></SPAN><SPAN 
            lang=EN-US style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'"> in 
            '<SPAN class=SpellE>ServerController.pas</SPAN>' {<SPAN 
            class=SpellE>IWServerController</SPAN>:<BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            class=SpellE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">TDataModule</SPAN></SPAN><SPAN 
            lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">};<BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            lang=EN-US style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">{$R 
            *.<SPAN class=SpellE>res</SPAN>}<BR><STRONG><SPAN 
            style="FONT-FAMILY: 'Courier New'">begin</SPAN></STRONG><BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            class=SpellE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">Application.Initialize</SPAN></SPAN><SPAN 
            lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">;<BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            class=SpellE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">Application.CreateForm</SPAN></SPAN><SPAN 
            lang=EN-US style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">(<SPAN 
            class=SpellE>TFormIWMain</SPAN>, <SPAN 
            class=SpellE>formIWMain</SPAN>);<BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            class=SpellE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">Application.Run</SPAN></SPAN><SPAN 
            class=GramE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">;</SPAN></SPAN><SPAN 
            lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'"><BR><STRONG><SPAN 
            style="FONT-FAMILY: 'Courier New'">end.</SPAN></STRONG><o:p></o:p></SPAN></P></TD></TR></TBODY></TABLE></DIV>
      <P style="TEXT-INDENT: 20pt"><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">当转换成服务类型的应用程序时，需要在</SPAN><SPAN 
      lang=EN-US style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">DPR</SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">文件的</SPAN><STRONG><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">uses</SPAN></STRONG><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">子句中加入</SPAN><SPAN 
      class=SpellE><SPAN lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">IWInitService</SPAN></SPAN><SPAN 
      style="FONT-SIZE: 10pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">，替换后的代码应如下所示：</SPAN><SPAN 
      lang=EN-US 
      style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma"><o:p></o:p></SPAN></P>
      <DIV align=center>
      <TABLE class=MsoNormalTable style="WIDTH: 80%; mso-cellspacing: 1.5pt" 
      cellPadding=0 width="80%" border=0>
        <TBODY>
        <TR style="mso-yfti-irow: 0; mso-yfti-lastrow: yes">
          <TD 
          style="PADDING-RIGHT: 0.75pt; PADDING-LEFT: 0.75pt; PADDING-BOTTOM: 0.75pt; PADDING-TOP: 0.75pt">
            <P class=MsoNormal><STRONG><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">program</SPAN></STRONG><SPAN 
            lang=EN-US style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'"> <SPAN 
            class=SpellE>GuessService</SPAN>;<BR><STRONG><SPAN 
            style="FONT-FAMILY: 'Courier New'">uses</SPAN></STRONG><BR></SPAN><SPAN 
            style="FONT-SIZE: 9pt; mso-ascii-font-family: 'Courier New'; mso-hansi-font-family: 'Courier New'; mso-bidi-font-family: 'Courier New'">　</SPAN><SPAN 
            class=SpellE><SPAN lang=EN-US 
            style="FONT-SIZE: 9pt; FONT-FAMILY: 'Courier New'">IWInitService</SPAN></SPAN><SPAN 
            lang=EN-US 
            style="FONT-SIZE: