Delphi与Dll学习体会.docx

Delphi与dll学习体会Dll的创建:如果要在dll中加入窗体,最好先在其他应用程序工程中设计窗体,功能确定可行以后再在dll工程中添加;在窗体相应的单元文件中加入Application对象同步程序SynApp和窗体显示程序ShowForm;函数声明放在VAR全局变量声明部分,其他地方会报错;函数实现放在implementation部分,尽量放在所有窗体函数之前;为什么要这两个函数？因为dll不是自主运行的，窗体在其中可以看做一种资源，他不会被自动创建，所以通过ShowForm函数创建加显示，显示模式只能是Model。同时在dll中的窗体相当于重新建立一个进程，你可以看到任务栏中有两个图标，一个调用程序的，一个dll窗体的，这是因为窗体的Application对象与应用程序不一致，这严重的时候可以造成内存错误，所以将窗体Application修改为应用程序的。故采用SynAPP函数。但是这仅仅针对调用者也是delphi应用程序？待进一步了解。下面是窗体的单元文件:unit changecolor;interfaceuses 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的调用:调用声明同样放在VAR全局变量声明部分,其他地方会报错;静态调用时external’mydll’只要名字不要把.dll扩张名也包括进去了。调用时先调用SynAPP再调用ShowForm；下面是调用程序单元文件:unit diaoyongchgcolordll;interfaceuses 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; externalchgcolordll; procedure ShowQCBF1;stdcall; externalchgcolordll;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin SynAPP(Application.Handle) ; ShowQCBF1;end;end.总结:Dll开发调试步骤为:窗体功能工程function完成要实现的功能即可;功能dll工程functiondll其一,将窗体添加到dll工程,并修改窗体单元,添加两个函数,第一步在VAR部分声明,第二部函数实现;其二在工程文件中添加exports部分,并在begin…end中完成初始化；调用查看工程functiondllcheck其一，VAR中