dllwizard创建一个dll,如何声明一个函数，使得从外部可以访问到她?? (30分钟揭帖)

[jixiaoqiang]

ts

[do2008]

1.创建dll
==============
library Delphi; //编译后产生delphi.dll

uses
SysUtils,
Classes;

function TestDll(i:integer):integer;stdcall;
begin
Result:=i;
end;

exports
TestDll;

begin
end.


2.创建一个exe工程,在Form1在放一个Button,Edit
============
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

//本行以下代码为我们真正动手写的代码,声明在dll中的函数类型
function TestDll(i:integer):integer;stdcall; external ’Delphi.dll’;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(TestDll(1));
end;

end.

编译后,将dll,和exe放在同一个目录下,执行exe即可

[do2008]

参考:
用Delphi制作DLL全集

http://www.tomore.com/4/1191.html
http://my.sdlgame.com/content/view/2555/28.html

[jixiaoqiang]

谢谢了，看的非常清楚了!!