开始写你的第一个DLL

时间:2010-01-27 09:04:43  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:得真是神奇的不得了,久了以后,发现它有些问题,就不怎么玩了。至于问题有那些,因为实在年代久远,都忘光了。各位有兴趣可以到网络上找找几位前辈的文章,讲的很清楚。小弟空时也把其中几篇关键的找贴Link来请大家参考参考。    其实写DLL很简单,它几乎就像你的DelphiCode一般,没有什么大变化。如果你用的不是很深,不搅什么动态加载或数据共享,那...
  正文:

DLL是Windows的基石。AP没有搭配的DLL,很难玩的起来。小弟对DLL的涉猎有限,不敢写较深度的主题。只是将心得经验以一个DLL绝对新手要如何开始玩的角度来写。

    Delphi有个package,可以说就是Delphi版的DLL。初接触时觉得真是神奇的不得了,久了以后,发现它有些问题,就不怎么玩了。至于问题有那些,因为实在年代久远,都忘光了。各位有兴趣可以到网络上找找几位前辈的文章,讲的很清楚。小弟空时也把其中几篇关键的找贴Link来请大家参考参考。

    其实写DLL很简单,它几乎就像你的DelphiCode一般,没有什么大变化。如果你用的不是很深,不搅什么动态加载或数据共享,那你只要记住几个小原则就可以了。DLL实在太好用了,尤其是长期维护、多人开发的商业成品,更是少不了DLL。再加上它写起来很容易,你很可能会玩的太过火,及至滥用的程度。到时务请记得要收敛些。

来写第一题吧。

一、开使你的第一个DLL专案
1.File->Close all->File->New﹝DLL﹞

代码:


//自动产生Code如下
library Project2;

//这边有段废话,不过如果你是第一次写DLL,你要仔细看看
//至关紧要,别忘了。
uses
SysUtils,
Classes;

{$R *.RES}

begin
end.




2.加个Func进来:

代码:


library Project2;
uses
SysUtils,
Classes;

//较好的作法不是放在这,但为了简化及说明方便就放在这
    //别担心,放在这绝对可以跑
    Function MyMax ( X , Y : integer ) : integer ; stdcall ;
begin
  if X > Y then
  Result := X
  else
  Result := Y ;
end ;
//切记:Library 的名字大小写没关系,可是DLL-Func的大小写就有关系了。
    //    在 DLL-Func-Name写成MyMax与myMAX是不同的。如果写错了,立即
    //    的结果是你叫用到此DLL的AP根本开不起来。
    //参数的大小写就没关系了。甚至不必同名。如原型中是 (X,Y:integer)但引
    //    用时写成(A,B:integer),那是没关系的。
    //切记:要再加个stdcall。书上讲,如果你是用Delphi写DLL,且希望不仅给
    //     Delphi-AP也希望BCB/VC-AP等使用的话,那你最好加个Stdcall ; 的指示
    //参数型态:Delphi有很多种它自己的变量型态,这些当然不是DLL所喜欢的
    //    ,Windows/DLL的母语应该是C。所以如果要传进传出DLL的参数,我们
    //    尽可能照规矩来用。这两者写起来,后者会麻烦不少。如果你对C不熟
    //    的话,那也没关系。我们以后再讲。
{$R *.RES}

begin
end.




3.将这些可共享的Func送出DLL,让外界﹝就是你的Delphi-AP啦﹞使用:光如
此,你的AP还不能用到这些,你还要加个Exports才行。

代码:


{$R *.RES}
exports
MyMax ;
begin
end.




4.好了,可以按 Ctrl-F9编译了。此时可不要按F9。DLL不是EXE┌不可单独执行的,如果你按F9,会有ErrorMsg的。这时如果DLL有Error,请修正之。再按Ctrl-F9。此时可能有Warning,不要紧,研究一下,看看就好。再按Ctrl-F9,此时就『Done , Compiled 』。同目录就会有个 *.dll 。恭喜,大功告成了。 "开始写你的第一个DLL"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-27/12470.html


关键字:

关于《开始写你的第一个DLL》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td