用CodeGear C++ Builder 2007编写dll程序（二）

这章主题是，编写支持VCL的DLL。

第一步：建立dll

建立dll工程。如下图选择




确定后，保存工程名为usevcldll,新增一个about窗体，一个usevcl单元：usevcl.cpp/usevcl.h，

在usevcl.h中的代码如下：

#include <vcl.h>

#include <StdCtrls.hpp>

#include "about.h"

extern "C" __declspec(dllexport) int __stdcall GetAKSControlType();

extern "C" __declspec(dllexport) const char * __stdcall GetAKSControlName();

extern "C" __declspec(dllexport) void __stdcall TestSetEditValue(TEdit * aEdit);

extern "C" __declspec(dllexport) TForm * __stdcall GetAboutForm(TForm * aOwner);

在usevcl.cpp中的代码如下：

int __stdcall GetAKSControlType()

{

return 1;

}

const char * __stdcall GetAKSControlName()

{

return "AKSControl_Demo";

}

void __stdcall TestSetEditValue(TEdit * aEdit)

{

aEdit->Text = "This is Set Edit Value!";

}

TForm * __stdcall GetAboutForm(TForm * aOwner)

{

TAboutBox * frm = new TAboutBox(aOwner);

return frm;

}

然后，编译即可。这时会生成usevcldll.dll和usevcldll.lib等文件。在这里我们使用的是动态装载dll，usevcldll.lib就暂时不用了。

第二步，动态调用dll

我们再新建一个vcl Forms Application程序，保存为testdll

然后在生入如下界面窗体



窗口定义如下:主界面头文件：unit2.h

class TForm2 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

TEdit *Edit1;

TEdit *Edit2;

TLabel *Label1;

TLabel *Label2;

TEdit *Edit3;

void __fastcall Button1Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm2(TComponent* Owner);

};

代码文件：unit2.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "XFrmMain.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

typedef int __stdcall (* FGetAKSControlType )();

typedef const char * __stdcall (*FGetASKControlName)();

typedef void __stdcall (*FTestSetEditValue)(TEdit * aEdit);

typedef TForm * __stdcall(*FGetAbout)(TForm * aOwner);

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)

{

//

FGetAKSControlType GetAKSControlType;

FGetASKControlName GetASKControlName;

FTestSetEditValue TestSetEditValue;

FGetAbout GetAbout;

HINSTANCE dd;

dd = LoadLibrary("usevcldll.dll");

GetAKSControlType = (FGetAKSControlType)GetProcAddress(dd,"GetAKSControlType");

GetASKControlName = (FGetASKControlName)GetProcAddress(dd,"GetAKSControlName");

TestSetEditValue = (FTestSetEditValue)GetProcAddress(dd,"TestSetEditValue");

GetAbout = (FGetAbout)GetProcAddress(dd,"GetAboutForm");

Edit1->Text = GetAKSControlType();

Edit2->Text = GetASKControlName();

TestSetEditValue(Edit3);

TForm * frmAbout = GetAbout(this);

frmAbout->ShowModal();

delete frmAbout;

FreeLibrary(dd);

}

//---------------------------------------------------------------------------

代码完成后，将usevcldll.dll复制到debug或release目录下，运行它，结果如下



再按下button1,就会弹出about对话框，并设置Edit的值。





这样，我们就可以在dll中定使用vcl了，下一章，将讲述使用静态调用dll的方式，并且支持dll中的类！