⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 网易电脑频道--使用com扩充delphi数据库功能.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<!--n-->
<!--n-->
<!---->
<!--<br>-->
<html><head>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<title>网易电脑频道--使用COM扩充DELPHI数据库功能</title><STYLE TYPE=text/css>
<!--
div {font-size:9pt; line-height:14pt; font-family:宋体;}
.p1{font-size:9pt;font-family:宋体;}
.p2{font-size:9pt;font-family:宋体;line-height:130%;}
.p3{font-size:14.8px;font-family:宋体;}
.p4{font-size:14.8px;font-family:宋体;line-height:130%;}
.p5{font-family:宋体;line-height:130%;}
a:hover{color:red;}
a.t1:visited{color:red;}
a.b{color:000000;}
a.w{color:ffffff;}
a.w:hover{color:FDE870;text-decoration:none;}
a.g{color:000000;font-size:9pt;}
a.more{color:E2007F;text-decoration:none;}
a.more:hover{text-decoration:underline;}
a.ti{color:FDE870;}
a.ti:hover{color:ffffff;text-decoration:none;}
-->
</STYLE>
<script>
<!--
{function lookup(content){
eval("open('http://www2.pconline.com.cn/pconline/database/pconlinedic163?inputkey="+content+"','self','dictionary','scrollbars=yes,width=600,height=400')");
		}
}// -->
</script>
</head>
<body bgcolor=FFFFFF text=000000 LINK=272EBA VLINK=336699 alink=FF0000>
<table border=0 width=750 cellspacing=0 cellpadding=0>
<tr><td width=200 class=p2><a href=http://www.163.com><img border=0 src=http://images.163.com/images/news/163logo.gif width=160 height=54></a></td>
<td width=540 class=p2 align=right>
<!--Here is ad beginning.-->
<IFRAME WIDTH=468 HEIGHT=60 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERcolor=000000 SRC=http://adserver.163.com/html.ng/site=www.163.com&category=soft&type=banner>
<SCRIPT LANGUAGE=JavaScript1.1 SRC=http://adserver.163.com/js.ng/site=www.163.com&category=soft&type=banner></SCRIPT>
<NOSCRIPT>
<A HREF=http://ad1.163.com/click.ng/Params.richmedia=yes&site=www.163.com&category=soft&type=banner>
<IMG SRC=http://ad1.163.com/image.ng/Params.richmedia=yes&site=www.163.com&category=soft&type=banner></A>
</NOSCRIPT>
</IFRAME><!--Here is ad end.--></table>
<table border=0 width=750 cellspacing=0 cellpadding=0 height=10><tr><td></table><table width=750 border=0 cellspacing=0 cellpadding=0>
<tr><td width=70>
<table width=100% border=0 cellspacing=1 cellpadding=0>
<tr align=center bgcolor=eeeeee>
<td class=p1 height=20><a href=http://news.163.com/><font color=000000>新闻</font></a></td>
<td class=p1><a href=http://sports.163.com/><font color=000000>体育</font></a></table></td>
<td bgcolor=0036B2 class=p1 height=20 width=35 align=center><a href=http://it.163.com/><font color=ffffff>电脑</font></a></td>
<td width=490>
<table width=100% border=0 cellspacing=1 cellpadding=0>
<tr align=center bgcolor=eeeeee>
<td class=p1 height=20><a href=http://game.163.com/><font color=000000>游戏</font></a></td>
<td class=p1><a href=http://stock.163.com/><font color=000000>财经</font></a></td>
<td class=p1><a href=http://house.163.com/><font color=000000>房产</font></a></td>
<td class=p1><a href=http://culture.163.com/><font color=000000>文化</font></a></td>
<td class=p1><a href=http://lady.163.com/><font color=000000>女性</font></a></td>
<td class=p1><a href=http://movie.163.com/><font color=000000>影视</font></a></td>
<td class=p1><a href=http://music.163.com/><font color=000000>音乐</font></a></td>
<td class=p1><a href=http://life.163.com/><font color=000000>生活</font></a></td>
<td class=p1><a href=http://travel.163.com/><font color=000000>旅游</font></a></td>
<td class=p1><a href=http://science.163.com/><font color=000000>科学</font></a></td>
<td class=p1><a href=http://health.163.com/><font color=000000>健康</font></a></td>
<td class=p1><a href=http://jobs.163.com/><font color=000000>职业</font></a></td>
<td class=p1><a href=http://education.163.com/><font color=000000>教育</font></a></td>
<td class=p1><a href=http://spicy.163.com/><font color=000000>新辣</font></a></td>
</tr></table></td>
<td width=155 class=p1 align=right valign=bottom><font color=FF0000>更新:</font>10月13日13:10</td>
<tr><td height=1 colspan=4 bgcolor=444CE6><spacer type=block height=1></table>
<table width=150 border=0 cellspacing=0 cellpadding=0>
<tr><td height=8><spacer type=block height=1></table>
<table width=750 border=0 cellspacing=0 cellpadding=0>
<tr bgcolor=FDE870><td class=p3 height=20 width=50%>　你目前的位置是:<a href=/index.html class=b >电脑频道</a>--&gt;<a href=/1/000913_88.html class=b >软件</a>--&gt;<a href=/2/000913_57.html class=b >编程指南</a></td><td class=p3 align=right width=50%>文章来源: <A HREF="http://www.cbinews.com/" class=b>华好网景</A>　</td>
<tr bgcolor=FFB141><td colspan=2 height=2><spacer type=block width=1></td>
<tr><td colspan=2> 
<table width=650 border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td class=p5 align=center><br><b><font color=272EBA>使用COM扩充DELPHI数据库功能</font></b><br><span class=p2>黄先国<font color=666666>(2000-10-13)</font></span></td>
<tr><td class=p5><br><table border=0 width=150 cellpadding=1 cellspacing=0 bgcolor=000000 align=right>
<tr><td><table border=0 cellpadding=2 width=100% bgcolor=F5F5F5 cellspacing=2><tr><td class=p3 height=18 align=center bgcolor=FDE870><b>背景资料</b></td><tr><td class=p2>·<a href=/tm/000924/000924_8605.html target=_blank>Delphi编程技巧集锦</a><br></td></table>
</table>　　Delphi是一个非常优秀的语言和开发环境，具有编译速度快、面向对象、全面支持Windows API、支持COM和强大的数据库支持，特别是在Delphi 5中增加了对ADO（Microsoft ActiveX Data Objects）的支持，使得Delphi程序员可以彻底摆脱BDE，缩小软件分发的体积。但是Delphi的ADO组件不支持ActiveX Data Objects Extensions for Data Definition Language and Security（ADOX、ADO的扩展，用于创建、修改和删除模式对象，如表格和过程；操作安全对象，可用于维护用户和组，以及授予和撤消对象的权限） 和Jet and Replication Objects（JRO，用于对Jet数据库引擎添加压缩、同步复制等特征），这些功能在开发Access数据库往往比较重要。不过由于ADOX、JRO乃至ADO都是基于COM（Component Object Model，组件对象模型）的，可以调用COM来来实现这些功能。下面我将讨论这方面问题，以此抛砖引玉，和大家共同研究。
<br>　　一、关于COM的一些基本概念。
<br>　　COM对象（COM object）是实现某一特殊功能的二进制代码，包括实现功能的一些方法，这些方法通过COM接口（COM interfaces）被访问。但是你不能直接访问COM接口，你可以通过COM类（COM class）来操作COM接口。
<br>　　二、引用ADOX和JRO。
<br>　　开发平台或客户端需要安装MDAC 2.1数据库引擎，你可以从微软公司http://www.microsoft.com/data下载，也可以在安装IE5.0中选择定制安装“动态数据绑定”选项。
<br>　　在Delphi IDE中选择菜单ProjectImport Type Library，出现Import Type Library对话框，选择“Microsoft ADO Ext. 2.x for DDL and Security”，将Class Name中TTable改为TADOXTable(因为TTable组件在Delphi中已经存在并注册）；选择“Microsof Jet and Replication Object 2.x Library”。然后单击“Install”安装，便在Delphi的Imports目录下生成ADOX_TLB.pas和JRO_TLB.pas两个文件。在Unit文件的Uses中加入ComObj、ADOX_TLB、JRO_TLB，就可以通过COM操作ADOX和JRO对象了。
<br>　　打开ADOX_TLB.Pas文件，可以看到定义的接口有_Catalog、_Table、_Index等。
<br>　　建立一个接口对象主要有两种方法（以建立_Catalog的对象为例）：
<br>　　首先定义Catalog为接口_Catalog的类型。
<br>　　方法1.通过CreateComObject函数建立实例
<br>　　Catalog:=CreateComObject(Class_Catalog) as _Catalog;
<br>　　方法2.通过类来建立实例
<br>　　 Catalog:=CoCatalog.create;其实两种方法原理是一样的。在Adox_TLB.pas中，CoCatalog是这样定义的：
<br>　　CoCatalog=class
<br>　　class function Create:_Catalog;
<br>　　……
<br>　　class function CoCatalog.Create:_Catalog;
<br>　　begin
<br>　　Result:=CreateComObject(CLASS_Catalog) as _Catalog;
<br>　　end;
<br>　　建立了接口对象的实例后，就可以通过接口对象的属性、方法等实现一定的功能。关于ADOX和JRO的对象模型、属性和方法等，请读者自己参阅MDAC SDK或Access2000中的帮助文件，这里就不在重复了。 
<br><tr><td align=right colspan=2 class=p4><a href=/tm/001013/001013_9537(2).html>下一页</a></td></table><br>

</td></tr></table>
<table border=0 cellpadding=0 cellspacing=0 width=750>
<tr bgcolor=FDE870><td class=p3 height=20 width=30%>　<a href=http://luntan.163.com:81/forum/list.php?num=36 class=b target=_blank>到<b>问题青年</b>发表评论...</a></td><td class=p3 align=center width=40%>>>> <a href=mailto:it@staff.163.com class=b>写信给编辑</a><td align=right class=p3 width=30%>>>> <script language=javascript>
document.write("<a href=\"http://202.106.168.85/sendto/recommend.php?referer="+parent.location+"&parentTitle="+document.title+"parentTitleEnd\" target=OpenWindow class=b>推荐给好友</a>");</script>　</td>
<tr bgcolor=FFB141><td colspan=3 height=2><spacer type=block width=1></td></tr></table>
<table width=750 border=0 cellspacing=0 cellpadding=0>
<tr><td width=50% class=p4>　<b>相关文章:</b></td><td width=50% class=p4>　<b>热力推荐:</b></td>
<tr><td class=p4 valign=top><ul>
<li><a href=/tm/001013/001013_9534.html target=_blank>如何开发自己的操作系统的引导程序</a><font color=666666>(10-13)</font><li><a href=/tm/001013/001013_9531(1).html target=_blank>为你的VB程序程序加密</a><font color=666666>(10-13)</font><li><a href=/tm/001013/001013_9518(1).html target=_blank>用ASP实现论坛的UBB功能</a><font color=666666>(10-13)</font><li><a href=/tm/001010/001010_9317(1).html target=_blank>用VB开发多通道仪表数据采集程序</a><font color=666666>(10-10)</font><li><a href=/tm/000929/000929_9115(1).html target=_blank>Delphi中布尔类型辨析</a><font color=666666>(09-29)</font></ul></td>
<td class=p4 valign=top><ul><li><a href="http://game.163.com/eg/easegame.html" target=_blank>个人战网天天玩 
</a>
<li><a href="http://netease.it168.com/" target=_blank>硬件报价：货比三家 </a>
<li><a href="http://talkshow.163.com/autobuy/index.php" target=_blank>供求信息：互动二手车市
</a>
</a><li><a href=http://sports.163.com/tm/001031/001031_74213.html target=_blank>网易体育网友文集</a> 
<li><a href=http://sports.163.com/t_index/000808_61225.html target=_blank>综合体育图片新闻 
</a> 
<li><a href=http://sports.163.com/s_index/page01.html target=_blank>中国足球:众说风云</a></ul></td>
<tr><td class=p4 colspan=2 align=right>【<a href=javascript:window.close()>关闭窗口</a>】</table>
<br clear=all>
<br><table border=0 width=740 cellspacing=0 cellpadding=0>
<tr><td width=100% align=center class=p1> <a href=http://www.163.com/feedback/overview.html><font color=000000>About Netease</font></a> - <a href=http://www.163.com/feedback/index1.html><font color=000000>公司简介</font></a> - <a href=http://www.163.com/feedback/index2.html><font color=000000>网站导航</font></a> - <a href=http://www.163.com/feedback/index3.html><font color=000000>广告服务</font></a> - <a href=http://www.163.com/feedback/index4.html><font color=000000>联系方法</font></a> - <a href=http://www.163.com/feedback/index5.html><font color=000000>招聘信息</font></a> - <a href=http://www.163.com/feedback/index6.html><font color=000000>策略联盟</font></a> - <a href=http://www.163.com/feedback/index7.html><font color=000000>栏目投票评选</font></a> - <a href=http://www.163.com/feedback/privacy.html><font color=000000>隐私保护</font></a><font color=000000><br>网易公司版权所有</font><br><font color=red>&copy1997-2000 </font></table></body></html>
<!---->
<!--8605,-->
<!--y-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -