手把手教delphi:写你的dll文件(1)(2)

中华网科技 http://tech.china.com 2005-06-23 11:40:11

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　
　　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，但这两种OS，可能越来越少了吧。要加extension

　　可以了，简单吧。


　　上面的例子是不是很简单？熟悉Delphi的朋友可以看出以上代码和一般的Delphi程序的编写基本是相同的，只是在TestDll函数后多了一个stdcall参数并且用exports语句声明了TestDll函数。只要编译上面的代码，就可以玫揭桓雒狣elphi.dll的动态链接库。现在，让我们来看看有哪些需要注意的地方：

　　1.在DLL中编写的函数或过程都必须加上stdcall调用参数。在Delphi 1或Delphi 2环境下该调用参数是far。从Delphi 3以后将这个参数变为了stdcall，目的是为了使用标准的Win32参数传递技术来代替优化的register参数。忘记使用stdcall参数是常见的错误，这个错误不会影响DLL的编译和生成，但当调用这个DLL时会发生很严重的错误，导致操作系统的死锁。原因是register参数是Delphi的默认参数。

　　2.所写的函数和过程应该用exports语句声明为外部函数。
　　正如大家看到的，TestDll函数被声明为一个外部函数。这样做可以使该函数在外部就能看到，具体方法是单激鼠标右键用“快速查看（Quick View）”功能查看该DLL文件。（如果没有“快速查看”选项可以从Windows CD上安装。）TestDll函数会出现在Export Table栏中。另一个很充分的理由是，如果不这样声明，我们编写的函数将不能被调用，这是大家都不愿看到的。

　　3.当使用了长字符串类型的参数、变量时要引用ShareMem。
　　Delphi中的string类型很强大，我们知道普通的字符串长度最大为256个字符，但Delphi中string类型在默认情况下长度可以达到2G。（对，您没有看错，确实是两兆。）这时，如果您坚持要使用string类型的参数、变量甚至是记录信息时，就要引用ShareMem单元，而且必须是第一个引用的。既在uses语句后是第一个引用的单元。如下例：
　　uses
　　ShareMem,
　　SysUtils,
　　Classes;

　　还有一点，在您的工程文件（*.dpr）中而不是单元文件（*.pas）中也要做同样的工作，这一点Delphi自带的帮助文件没有说清楚，造成了很多误会。不这样做的话，您很有可能付出死机的代价。避免使用string类型的方法是将string类型的参数、变量等声明为Pchar或ShortString（如：s:string[10]）类型。同样的问题会出现在当您使用了动态数组时，解决的方法同上所述。

首页 上页 | 1 | 2 | 下页 尾页  共 2 页