手把手教delphi:写你的dll文件(1)
作者 凌众技术
来源 互联网
浏览
发布时间 2012-01-14
| 一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞ 代码: //自动产生Code如下 library Project2; //这有段废话 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 。恭喜，大功告成了。 二、进行测试：开个新application： 1.加个TButton 代码: ShowMessage ( IntToStr(MyMax(30,50)) ) ; 2.告知Exe到那里抓个Func 代码: //在Form,interface,var后加 Function MyMax ( X , Y : integer ) : integer ; stdcall ; external 'MyTestDLL.dll' ; // MyTestDLL.dll为你前时写的DLL项目名字 // DLL名字大小写没关系。不过记得要加 extension的 .DLL。在Win95或NT， // 是不必加 extension，但这两种O |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于手把手教delphi:写你的dll文件(1)的所有评论
