Delphi与Dll学习体会.docx

Delphi与dll学习体会

Dll的创建:
1. 如果要在dll中加入窗体,最好先在其他应用程序工程中设计窗体,功能确定可行以后再在dll工程中添加;
2. 在窗体相应的单元文件中加入Application对象同步程序SynApp和窗体显示程序ShowForm;
a. 函数声明放在VAR全局变量声明部分,其他地方会报错;
b. 函数实现放在implementation部分,尽量放在所有窗体函数之前;
c. 为什么要这两个函数？因为dll不是自主运行的，窗体在其中可以看做一种资源，他不会被自动创建，所以通过ShowForm函数创建加显示，显示模式只能是Model。同时在dll中的窗体相当于重新建立一个进程，你可以看到任务栏中有两个图标，一个调用程序的，一个dll窗体的，这是因为窗体的Application对象与应用程序不一致，这严重的时候可以造成内存错误，所以将窗体Application修改为应用程序的。故采用SynAPP函数。但是这仅仅针对调用者也是delphi应用程序？待进一步了解。
3. 下面是窗体的单元文件:
unit changecolor;

interface

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

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

var
Form1: TForm1;
procedure SynAPP(App:THandle);stdcall;
procedure ShowQCBF1;stdcall;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color:=200*200*200;
end;

procedure SynAPP(App:THandle);stdcall;
begin
Application.Handle:=App;
end;

procedure ShowQCBF1;stdcall;
begin

try
Form1:=TForm1.Create(Application) ;
try
Form1.ShowModal;
finally
Form1.Free;
end;
except
messagebox(0,'窗口创建失败','错误',mb_retrycancel+MB_iconwarning);
end;
end;

end.

DLL的调用:
1. 调用声明同样放在VAR全局变量声明部分,其他地方会报错;
2. 静态调用时external’mydll’只要名字不要把.dll扩张名也包括进去了。
3. 调用时先调用SynAPP再调用ShowForm；
4. 下面是调用程序单元文件:
unit diaoyongchgcolordll;

interface

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

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

var
Form1: TForm1;
procedure SynAPP(App:THandle);stdcall; external'chgcolordll';
procedure ShowQCBF1;stdcall; external'chgcolordll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
SynAPP(Application.Handle) ;
ShowQCBF1;
end;

end.
总结:
Dll开发调试步骤为:
1. 窗体功能工程function
完成要实现的功能即可;
2. 功能dll工程functiondll
其一,将窗体添加到dll工程,并修改窗体单元,添加两个函数,第一步在VAR部分声明,第二部函数实现;其二在工程文件中添加exports部分,并在begin…end中完成初始化；
3. 调用查看工程functiondllcheck
其一，VAR中函数声明，加上external’yourdll’,注意只要名称就可以了；
其二，在需要调用的地方加上调用语句，这是静态调用，且调用程序也是delphi程序，否则其他语言程序可能没有Application对象；