利用Delphi扩充VB函数

　　很多编程爱好者对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中。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有