利用Delphi扩充VB函数_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

利用Delphi扩充VB函数

作者：闵涛文章来源：闵涛的学习笔记点击数：800 更新时间：2009/4/23 14:58:50

　　很多编程爱好者对VB、Delphi两种编程工具都十分了解。如何把Delphi的优点为VB所用成为编程者十分感兴起的话题。VB比Delphi 更易学习掌握，但VB函数太少，往满足不了实际应用的要求。

　　如何利用Delphi来扩充VB函数呢？当然，利用Delphi扩充VB函数可以是直接由Delphi编写动态链接库文件，象Windows API函数那样由VB直接调用，这种方式称为直接调用。本文讲述的是另一种调用方法，即根据Delphi内部函数源代码设计思想，利用Windows API编写VB的函数。

　　我们知道，Delphi除其它特点外，最大的特点就是开放性：大多Delphi内部函数、控件等都能在...\Source子目录下找到其源代码。仔细分析不难发现，Delphi函数、控件等所用的语句基本是汇编语言、Windows API函数等所构成。虽然VB内部函数较少，但仍可用Windows API函数进行扩充。对于大多数编程者来说，直接用Windows API编程难度较大，很多时候只知其一不知其二，用API编写的函数并不完善，缺乏通用性。而Delphi的内部函数源代码毕竟为专家所写，且经过长期调试是成功的。

　　Delphi的函数FileExists意为文件名是否存在，返回为逻辑值，即文件存在时为真，反之为假。下面就以FileExists为例来说明如何利用Delphi的思想来编写VB的FileExists函数，以起到抛砖引玉的作用，其它用Windows API函数写的Delphi函数基本仍可按此原理推出VB的函数。

　　首先进入Delphi，任写一Fileexists函数，鼠标在其上停留片刻，Delphi就会提示该函数出自sysutils.pas中。

　　新建工程文件名为Project1.dpr,另存为Pfileexists.dpr；去掉Form1窗体的对窗体描述的文本部分（即扩展名为Dfm的相关文件），对Unit1.pas 另存为uFileExists.pas 。

　　在文件PFileexists.dpr中，只保留Uses 中的Forms和uFileexists.pas,去掉其它引用。在Begin...End 程序体中加入以下代码：

　　d:='c:\windows\notepad.exe';

　　if fileexists(d) then

　　　application.MessageBox(pchar(d+' is exist'),'提示',0)

　　else

　　　application.MessageBox(pchar(d+' is not exist'),'提示',0);

对uFileexists.pas 文件，去掉Uses的全部引用部分。编译运行程序，Delphi就会提示函数Fileexists无效（没有声明）。于是在加入...\Source\RTL\SYS\sysutils.pas和....\Source\WIN\windows.pas两文件。

　　在Pfileexists.dpr中去掉对sytutils.pas 和Windows.pas 的引用。

　　分析、逐步调试，把Windows.pas和sysutils.pas 有关的类型、常量、函数声明、函数执行体等加入ufileexists.pas中。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：截取部分文件的VB编程技巧

下一篇教程： VB中鼠标冲突问题

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……