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

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

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

　　一、开始你的第一个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.

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