C++ builder package(bcb bpl)创建和vcl调用

之前分享了创建DLL动态库的过程，并在vcl中如何被调用，现在要分享bpl的创建和被vcl调用的方法，其实跟dll基本一样，先给我上传的资源链接点击打开链接，用的工具是BCB(C++ Builder)，我也是第一次学习bpl，算是我的处子作！

资源链接已经给了，接下来一些东西，有兴趣可以看看。

下面C++ Builder Package就直接说bpl了。

1.创建一个bpl，File->New->Other...->C++ Builder Projects->Package，此时，工程里面有Package1.cpp是接口导出的地方，在Package1.bpl上右击Add New->Unit创建一个新的类文件，在里面创建自己的类。PACKAGE是一个宏定义，代表__declspec(package)。类成员函数的具体实现就不说了。

class PACKAGE  CEmployeeInfo
{
public:
__stdcall CEmployeeInfo(void);
__stdcall ~CEmployeeInfo(void);


HRESULT __stdcall CreateInfo(int nID, const char * pcName, const char * pcPhone);
HRESULT __stdcall UpdateInfo(int nID, const char * pcNewName, const char * pcNewPhone);
HRESULT __stdcall DeleteInfo(int nID);

private:
};

2.在Package1.cpp文件中声明要导出的接口原型，外部只能通过这几个接口，对bpl中的类进行操作，记住封装的原则，外部不能直接涉及到bpl中类的成员变量和成员函数！声明接口时要表明extern "C"方式，再对这些接口进行实现。做完这些工作，只要对bpl工程进行build，在Debug目录下生成的Package1.bpl就是我们的目标文件。

extern "C"
{
extern PACKAGE HRESULT __stdcall CreateEmployeeInfo(int nID,char *pName,char *pPhone);
extern PACKAGE HRESULT __stdcall UpdateEmployeeInfo(int nID,char *pName,char *pPhone);
extern PACKAGE HRESULT __stdcall DeleteEmployeeInfo(int nID);
}

3.接下来是在vcl中调用bpl的过程，新建一个新的VCL工程，File->New->Other...->C++ Builder Projects->VCL Forms Application。首先要声明几个函数指针，形式必须和之前bpl导出的接口完全一致。

HRESULT __stdcall (*CreateEmployeeInfo)(int nID,char *pName,char *pPhone);
HRESULT __stdcall (*UpdateEmployeeInfo)(int nID,char *pName,char *pPhone);
HRESULT __stdcall (*DeleteEmployeeInfo)(int nID);

4.接下来要获取接口指针，先通过LoadPackage加载bpl文件，和加载DLL唯一的差别(加载DLL是用LoadLibrary)，再用GetProcAddress根据接口符号获取相应接口的地址，之后的用法和C语言中回调函数完全一样，ExtractFilePath(Application->ExeName)可以获取可执行程序的文件路径。

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
AnsiString str= ExtractFilePath(Application->ExeName)+ "Package1.bpl";
unsigned int nHand = LoadPackage(str.c_str());//动态加载

(FARPROC&)CreateEmployeeInfo = GetProcAddress((HINSTANCE)nHand, "CreateEmployeeInfo");
(FARPROC&)UpdateEmployeeInfo = GetProcAddress((HINSTANCE)nHand, "UpdateEmployeeInfo");
(FARPROC&)DeleteEmployeeInfo = GetProcAddress((HINSTANCE)nHand, "DeleteEmployeeInfo");

//CreateEmployeeInfo(1, "1", "1");//函数指针的使用方法。
}