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

一、开使你的第一个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，但这两种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]）类型。同样的问题会出现在当您使用了动态数组时，解决的方法同上所述。

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

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

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

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

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范