h20000127-22.htm

对于学习很有帮助

    <p>temp1 :TTempcomp；</p>
    <p>constructor TTempcomp.Create1；</p>
    <p>begin</p>
    <p>// inherited Create(self)；</p>
    <p>end；</p>
    <p>/============================</p>
    <p>function OpenSample: Boolean； stdcall； export；</p>
    <p>begin</p>
    <p>HwCtrl:= Sample1.Create(temp1)；</p>
    <p>If Sample1.Actived then result:=true；</p>
    <p>end；</p>
    <p>procedure CloseSample； stdcall； export；</p>
    <p>begin</p>
    <p>Sample1.Destroy；</p>
    <p>end；</p>
    <p>function Actived: Boolean； stdcall； export；</p>
    <p>begin</p>
    <p>result:=Sample1.Actived；</p>
    <p>end；</p>
    <p>function Pro1: Interger； stdcall； export；</p>
    <p>begin</p>
    <p>result:= Sample1.Pro1;</p>
    <p>end；</p>
    <p>function Pro2: Interger； stdcall； export；</p>
    <p>begin</p>
    <p>result:= Sample1.Pro2;</p>
    <p>end；</p>
    <p>/============================</p>
    <p>procedure libexit； far</p>
    <p>begin</p>
    <p>if Sample1.Actived =true then</p>
    <p>Sample1.Destroy；</p>
    <p>ExitProc:=SaveExit；</p>
    <p>temp1.Destroy；</p>
    <p>end；</p>
    <p>exports</p>
    <p>OpenSample，CloseSample，Actived ，Pro1，Pro2；</p>
    <p>begin</p>
    <p>temp1:=TTempcomp.Create1；</p>
    <p>SaveExit:=ExitProc；</p>
    <p>ExitProc:=@libexit；</p>
    <p>end.</p>
    <p>----解释：</p>
    <p>----因为VCL控件都继承于TComponent，TComponent的构造函数需要一个AOwner并且也是TComponent，VCL控</p>
    <p>件的Create、Destroy都由控件的拥有者来动作，也就是AOwner；所以我在此DLL中新设置了一个TTempcomp类</p>
    <p>继承于Tcomponent且性设置了一个constructor（构造函数）Create1，而实际构造时什么都不做，以次作为要</p>
    <p>Create的Aowner；</p>
    <p>----其他还有一种办法就是用Application作为Aowner但是它是基于Tform的作出来的DLL太大；</p>
    <p>----其实，Inprise（原Borland）尽可以象MicroSoft一样用一些象DCOM类似的组件形式使得产品在同一产品</p>
    <p>时代保持一定的互用性，来增加产品群的生命力.</font></td>
    <td align="middle" vAlign="top" width="10"><p class="content4"><span class="font"></span></td>
    <td align="middle" bgColor="#fff1c0" vAlign="top" width="140"><table border="0" width="100%" cellspacing="1" cellpadding="0">
      <tr>
        <td width="100%" align="center" class="content2" valign="middle" bgcolor="#FFF1C8">　<br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(255,255,255); text-decoration: none"></a><a href="http://fun.wangchenyun.net" style="COLOR: rgb(0,0,0); TEXT-DECORATION: none">网星影院</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a style="color: rgb(0,0,0); text-decoration: none" href="http://202.101.18.141/netstar/news/">业界新闻</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://sales.wangchenyun.net" style="COLOR: rgb(0,0,0); TEXT-DECORATION: none">网星网风</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://person.dreamer.com.cn/netstar/newsoft/index.htm" style="COLOR: rgb(0,0,0); text-decoration: none">软件速递</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://person.dreamer.com.cn/netstar/software/software1.htm" style="COLOR: rgb(0,0,0); text-decoration: none">奇软异件</a><br>
        <a href="../../software/softuse/H01011-10.htm" style="color: rgb(0,0,0); text-decoration: none">软件宝库</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://person.dreamer.com.cn/netstar/newfree.htm" style="COLOR: rgb(0,0,0); text-decoration: none">最新免费</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://202.101.18.141/netstar/game/" style="COLOR: rgb(0,0,0); text-decoration: none">游戏地带</a><br>
        <font color="#FFFFFF"><a style="text-decoration: none; color: rgb(0,0,0)" href="../../software/game/H01012-12.htm">游戏下载</a></font><br>
        <a style="color: rgb(0,0,0); text-decoration: none" href="../../software/game/H01013-13.htm">游戏天地</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://202.101.18.141/netstar/hardware/" style="COLOR: rgb(0,0,0); text-decoration: none">硬件传真</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://www.wangchenyun.net/info/" style="COLOR: rgb(0,0,0); text-decoration: none">网球天地</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://person.dreamer.com.cn/netstar/pick/pick01.htm" style="COLOR: rgb(0,0,0); text-decoration: none">网星品网</a><br>
        <a href="../image/H01015-15.htm" style="color: rgb(0,0,0); text-decoration: none">制图素材</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://www.wangchenyun.net/others/" style="COLOR: rgb(0,0,0); text-decoration: none">壁纸世界</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://202.101.18.141/netstar/music/html/down.htm" style="COLOR: rgb(0,0,0); text-decoration: none">中文音乐</a><br>
        <a href="http://www.xa.sn.cn/software/software.htm" style="COLOR: rgb(0,0,0); text-decoration: none"></a><a href="http://www.wangchenyun.net/music/" style="COLOR: rgb(0,0,0); text-decoration: none">英文音乐</a></td>
      </tr>
    </table>
    <div align="center"><center><table border="0" cellPadding="0" cellSpacing="0" width="100%">
<tbody>
      <tr>
        <td align="middle" bgColor="#3399FF" height="19" width="100%"><p class="content4" align="center"><font color="#FFFFFF"><span class="font"><span>知名软件搜索引擎</span></span></font></td>
      </tr>
      <tr>
        <td bgColor="#000000" height="1" width="100%"><p class="content4"><span class="font"></span></td>
      </tr>
      <tr>
        <td width="100%"><div align="center"><center><table border="0" cellPadding="0" cellSpacing="0" width="90%">
<tbody>
          <tr>
            <td width="130" bgcolor="#FFF1C8"><p class="content4" align="center">　</p>
            <form action="http://hotfiles.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html" method="post" target="_blank">
              <input type="hidden" name="Usrt" value="rel"><input type="hidden" name="Usrchtype" value="simple"><div align="center"><center><p class="content4">ZDNet的软件搜索:<br>
              <input maxLength="30" name="Utext" size="10"><br>
              <input border="0" name="search" src="../../soft/search.gif" type="image" value="Start Search" WIDTH="36" HEIGHT="17"> </p>
              </center></div>
            </form>
            <form action="http://www.download.com/PC/Result/TitleList/1,2,0-a-0-0-e-1,00.html?st.dl.fd.qs.results" method="post" target="_blank">
              <div align="center"><center><p class="content4"><span class="font"><span>DownLoad软件搜索:</span><br>
              <input maxLength="60" name="search" size="10"><br>
              <input border="0" name="Search" src="../../soft/search.gif" type="image" value="Start Search" WIDTH="36" HEIGHT="17"></span></p>
              </center></div>
            </form>
            <form action="http://clipartconnection.com/search2.php3" method="post" target="_blank">
              <div align="center"><center><p class="content4"><span class="font"><span>图片搜索引擎:</span><br>
              <input name="SearchText" size="10"><br>
              <input border="0" name="I1" src="../../soft/search.gif" type="image" value="Start Search" WIDTH="36" HEIGHT="17"></span></p>
              </center></div>
            </form>
            <a href="http://top.263.net/count/top.dll?Type=sharkpwd&amp;id=2771&amp;ReferID=2771" target="_blank"><p align="center"></a>　</p>
            <a href="http://best.netease.com/cgi-bin/view/viewbasic.cgi?haiyuan54" target="_blank"><p align="center"></a>　</td>
          </tr>
</tbody>
        </table>
        </center></div></td>
      </tr>
</tbody>
    </table>
    </center></div></td>
  </tr>
</tbody>
</table>
</center></div>

<hr align="center" SIZE="1" width="700">

<p align="center" class="content4"><span><span><font color="#000000">&nbsp; <a style="color: rgb(0,0,0); text-decoration: none" href="../../soft/network/index.htm">互联网络</font><font color="#FFFFFF"> </font></a><font color="#000000">|</span></span><a href="../../soft/system/index.htm" style="color: rgb(0,0,0); text-decoration: none">系统工具</a><span>|<span> 
<a href="../../soft/tools/index.htm" style="color: rgb(0,0,0); text-decoration: none">实用工具</a> 
| <a href="../../soft/multimedia/index.htm" style="color: rgb(0,0,0); text-decoration: none">媒体工具</a> | <a href="../../soft/image/index.htm" style="color: rgb(0,0,0); text-decoration: none">图形图像</a> 
| <a href="../../soft/game/index.htm" style="color: rgb(0,0,0); text-decoration: none">游戏娱乐</a> 
| </span><a href="../../soft/usesoft/index.htm" style="color: rgb(0,0,0); text-decoration: none">软件<span>使用</a></font><font color="#FFFFFF"> |</font>&nbsp; </span></span></p>

<hr align="center" SIZE="1" width="700">
<font color="#FFE8BB">

<p align="center" class="content4"></font><font color="#000000"><span><span>&copy;&nbsp;Copyright 
1999 </span></span>陕西公用计算机互联网信息中心<span><span> 版权所有 </font></p>
</span></span>

<p align="center" class="content4"><font color="#000000"><span><span>本站制作维护by <a href="mailto:[e-mail]" style="color: rgb(0,0,0)">HAIYUAN</a></span></span></font></p>

<p align="center" class="content4"><font color="#000000"><span><span>电话：[phone] 
8371049 联系信箱：<a href="mailto:[e-mail]">[e-mail]</a> </span></span></font></p>
</body>
</html>