BCB编写dll(转)

BCB编写dll 转载 BCB编写dll 一.注意：创建动态链接库时，如果想你创建的动态链接库并非只用于Borland开发工具，那么就需要遵循发下规则： (1).在导出函数的返回值和参数中不要使用Borland特有的数据类型和结构体，如AnsiString之类，请使用C/C++标准的数据类型或使用 C/C++标准数据类型定义的结构体(特别不要使用String数据类型，BCB DLL向导生成的DLL工程文件中大篇幅的说明就是对此的说明，请自己查阅)； (2).请使用extern "C"命名约定，这样，生成的DLL中的导出函数，就不会使用C++的命名约定，而是使用的C命名约定，即导出函数不会名字分解，而是和你定义的函数相同； (3).导出函数请使用WIN32 API的调用方式__stdcall(即WINAPI)或VC与BorlandC++的调用约定__cdecl，不要使用Borland特有的__fastcall调用约定，否则只有Borland开发工具才可以使用这些动态链接库； 二.实例: (1).导出函数(不使用VCL) 使用BCB建立DLL向导来建立一个工程，选择不使用VCL，代码如下： //---------------------------------------------------------------------------#include //---------------------------------------------------------------------------// Important note about DLL memory management when your DLL uses the// static version of the RunTime Library://// If your DLL exports any functions that pass String objects (or structs/// classes containing nested Strings) as parameter or function results,// you will need to add the library MEMMGR.LIB to both the DLL project and// any other projects that use the DLL. You will also need to use MEMMGR.LIB// if any other projects which use the DLL will be performing new or delete// operations on any non-TObject-derived classes which are exported from the// DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling// EXE's to use the BORLNDMM.DLL as their memory manager. In these cases,// the file BORLNDMM.DLL should be deployed along with your DLL.//// To avoid using BORLNDMM.DLL, pass string information using "char *" or// ShortString parameters.//// If your DLL uses the dynamic version of the RTL, you do not need to// explicitly add MEMMGR.LIB as this will be done implicitly for you//---------------------------------------------------------------------------#pragma argsusedint WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved){ return 1;}//---------------------------------------------------------------------------extern "C" __declspec(dllexport) int __stdcall Calc(int a, int b) //导出函数{ return a+b;}//--------------------------------------------------------------------------- 保存工程为DLLs，编译，就会在工程目录下生成DLLs.dll(大小应该是8K)，同时还会自动在同一目录下生成DLLs.lib静态库，如果没有生成，请自己手动使用implib.exe工具生成(使用方法见本文说明)。 (2).导出函数(使用VCL) 使用BCB DLL向导建立一个工程，选择使用VCL支持，新建立一个窗体(采用默认名称TForm1)存为Unit1.cpp，设置窗体大小为一般OKCANCEL 对框的大小(这里设为277*119)，在窗体上添加两个按钮:Button1标签为"确定",ModalResult为mrOk,Button2标签为 "取消"，ModalResult为mrCancel；然后在DLL主程序中引用刚才建立的窗体,并添加导出函数，代码如下： //---------------------------------------------------------------------------#include #include #pragma hdrstop//---------------------------------------------------------------------------// Important note about DLL memory management when your DLL uses the// static version of the RunTime Library://// If your DLL exports any functions that pass String objects (or structs/// classes containing nested Strings) as parameter or function results,// you will need to add the library MEMMGR.LIB to both the DLL project and// any other projects that use the DLL. You will also need to use MEMMGR.LIB// if any other projects which use the DLL will be performing new or delete// operations on any non-TObject-derived classes which are exported from the// DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling// EXE's to use the BORLNDMM.DLL as their memory manager. In these cases,// the file BORLNDMM.DLL should be deployed along with your DLL.//// To avoid using BORLNDMM.DLL, pass string information using "char *" or// ShortString parameters.//// If your DLL uses the dynamic version of the RTL, you do not need to// explicitly add MEMMGR.LIB as this will be done implicitly for you//---------------------------------------------------------------------------#include "Unit.h" //引用设计的窗体#pragma argsusedint WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved){ return 1;}//---------------------------------------------------------------------------extern "C" __declspec(dllexport) int __stdcall UserClick(void) //导出函数{ TForm1 *Form1 = new TForm1(NULL); if(Form1->ShowModal() == mrOk) { delete Form1; return 1; } else { delete Form1; return 0; }}//--------------------------------------------------------------------------- 保存工程为DLLs，编译，就会在工程目录下生成DLLs.dll，同时还会自动在同一目录下生成DLLs.lib静态库，如果没有生成，请自己手动使用implib.exe工具生成。 (3).导出类使用BCB建立DLL向导来建立一个工程，选择不使用VCL(本例不使用VCL，是否支持VCL是视你自己的应用而定)，代码如下： //---------------------------------------------------------------------------#include //---------------------------------------------------------------------------// Important note about DLL memory management when your DLL uses the// static version of the RunTime Library://// If your DLL exports any functions that pass String objects (or structs/// classes containing nested Strings) as parameter or function results,// you will need to add the library MEMMGR.LIB to both the DLL project and// any other projects that use the DLL. You will also need to use MEMMGR.LIB// if any other projects which use the DLL will be performing new or delete// operations on any non-TObject-derived classes which are exported from the// DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling// EXE's to use the BORLNDMM.DLL as their memory manager. In these cases,// the file BORLNDMM.DLL should be deployed along with your DLL.//// To avoid using BORLNDMM.DLL, pass string information using "char *" or// ShortString parameters.//// If your DLL uses the dynamic version of the RTL, you do not need to// explicitly add MEMMGR.LIB as this will be done implicitly for you//---------------------------------------------------------------------------#pragma argsusedint WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved){ return 1;}//---------------------------------------------------------------------------__declspec(dllexport) __stdcall class TTest{ //声明导出类 int a,b;public: void __stdcall SetValue(int x, int y); int __stdcall Calc(void);};//---------------------------------------------------------------------------void __stdcall TTest::SetValue(int x, int y) //类的实现{ this->a = x; this->b = y;}//---------------------------------------------------------------------------int __stdcall TTest::Calc(void) //类的实现{ return this->a + this->b;}//---------------------------------------------------------------------------保存工程为DLLs，编译，就会在工程目录下生成DLLs.dll，同时还会自动在同一目录下生成DLLs.lib静态库，如果没有生成，请自己手动使用implib.exe工具生成。注意，并非所有的代码都需要在工程DLL主文件中写，导出函数和类等都可以在其它单元中设计，然后在主文件中#include即可，看自己的习惯，当然了，一个巨大的DLL工程，不可能写在一个文件中的。 (4).使用(1)创建的DLL 新建一个工程。 [1].静态调用：向工程中添加(1)中生成的静态库DLLs.lib,然后在.h中添加导出函数的定义，如下： extern "C" __declspec(dllimport) int __stdcall Calc(int,int); //导出DLL中函数然后就可以在这个单元中使用int __stdcall Calc(int,int)这个函数了，如： ShowMessage(IntToStr(Calc(5,10)); [2].动态调用不需要添加静态库.lib文件，只要在需要调用时才载入DLL，如下： HINSTANCE Hdl; int __stdcall (*Calc)(int,int); //定义函数原型 Hdl = ::LoadLibrary("DLLs.dll"); //载入DLL if(Hdl != NULL) { Calc = (int __stdcall (*)(int,int))::GetProcAddress(Hdl,"Calc"); //获取函数入口地址 if(Calc != NULL) { ShowMessage(IntToStr(Calc(5,10))); //调用DLL中函数 } else { ShowMessage("不能找到函数入口!"); } ::FreeLibrary(Hdl); //一定不要忘记调用完毕后释放DLL } else { ShowMessage("不能载入DLL!"); } (5).使用(2)创建的DLL [1].静态调用：向工程中添加(2)中生成的静态库DLLs.lib,然后在.h中添加导出函数的定义，如下： extern "C" __declspec(dllimport) int __stdcall UserClick(void); //导出DLL中函数然后就可以在这个单元中使用int __stdcall UserClick(void)这个函数了，如： if(UserClick()) { ShowMessage("用户点击“确定”"); } else { ShowMessage("用户点击“取消”或直接关闭"); } [2].动态调用不需要添加静态库.lib文件，只要在需要调用时才载入DLL，如下： HINSTANCE Hdl; int __stdcall (*UserClick)(void); Hdl = ::LoadLibrary("DLLs.dll"); if(Hdl != NULL) { UserClick = (int __stdcall (*)(void))::GetProcAddress(Hdl,"UserClick"); if(UserClick != NULL) { if(UserClick()) { ShowMessage("用户点击“确定”"); } else { ShowMessage("用户点击“取消”或直接关闭"); } } else { ShowMessage("不能找到函数入口!"); } ::FreeLibrary(Hdl); } else { ShowMessage("不能载入DLL!"); } (6).使用(3)创建的DLL DLL中导出的类，只能使用表态的方式来调用。本例中的DLL调用方法如下：向工程中添加(3)中生成的静态库DLLs.lib,然后在.h中添加导出类的声明，如下： __declspec(dllimport) __stdcall class TTest{ int a,b; public: void __stdcall SetValue(int x, int y); int __stdcall Calc(void); }; 然后就可以在这个单元中使用TTest这个类了，如： TTest *Inst = new TTest; Inst->SetValue(5,10); ShowMessage(IntToStr(Inst->Calc())); delete Inst; 三.一些工具： (1).impdef.exe 用法：impdef.exe deffile.def yourdll.dll 生成指定DLL文件的def文件，可以用它来查看DLL中的函数声明。例如，BCB使用VC的DLL时，可能需要查看一下VC中导出函数的函数名；或者未使用extern "C"调用约定时，可以用它来查看DLL中导出函数的C++命名方式,从而可以正确调用。 (2).implib.exe 用法：implib.exe libfile.lib yourdll.dll 用此工具来生成DLL调用的静态库，用于DLL的静态调用方式。 (3).vctobpru.exe 用此工具可以把VC的工程导入到BCB工程中，它自动转换VC的工程文件为BCB工程文件，生成相应的.bpr等文件。 (4).tdump.exe(VC中为dumpbin.exe) 用法：tdump.exe [options] [inputfile] [listfile] [options] 用此工具可以查看DLL中的导出函数声明等等，具体用法请运行tdump.exe(不加参数)。 ==== BCB编写DLL终极手册　　一. 编写 DLL 　　File/New/Dll 生成 Dll 的向导，然后可以添加导出函数和导出类 　　导出函数：extern "C" __declspec(dllexport) ExportType FunctionName(Parameter) 　　导出类：class __declspec(dllexport) ExportType ClassName{...} 　　例子：(说明：只是生成了一个 DLL.dll ) #include "DllForm.h" // TDllFrm 定义USERES("Dll.res");USEFORM("DllForm.cpp", DllFrm);class __declspec(dllexport) __stdcall MyDllClass { //导出类 public: MyDllClass(); void CreateAForm(); TDllFrm* DllMyForm;};TDllFrm* DllMyForm2;extern "C" __declspec(dllexport) __stdcall void CreateFromFunct();//导出函数//---------------------------------------------------------------------------int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*){ return 1;}//---------------------------------------------------------------------------MyDllClass::MyDllClass(){}void MyDllClass::CreateAForm(){ DllMyForm = new TDllFrm(Application); DllMyForm->Show();}//---------------------------------------------------------------------------void __stdcall CreateFromFunct(){ DllMyForm2 = new TDllFrm(Application); DllMyForm2->Show();} 　　二. 静态调用 DLL 　　使用 $BCB path/Bin/implib.exe 生成 Lib 文件，加入到工程文件中，将该文件拷贝到当前目录，使用 implib MyDll.lib MyDll.dll 生成。 // Unit1.h // TForm1 定义#include "DllForm.h" // TDllFrm 定义//---------------------------------------------------------------------------__declspec(dllimport) class __stdcall MyDllClass { public: MyDllClass(); void CreateAForm(); TDllFrm* DllMyForm;}; extern "C" __declspec(dllimport) __stdcall void CreateFromFunct();class TForm1 : public TForm{}// Unit1.cpp // TForm1 实现void __fastcall TForm1::Button1Click(TObject *Sender){ // 导出类实现，导出类只能使用静态方式调用 DllClass = new MyDllClass(); DllClass->CreateAForm(); }//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ // 导出函数实现 CreateFromFunct();}//---------------------------------------------------------------------------void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action){ delete DllClass;} 　　三. 动态调用 DLL // Unit1.h class TForm1 : public TForm{private: // User declarationsvoid (__stdcall *CreateFromFunct)();}// Unit1.cpp // TForm1HINSTANCE DLLInst = NULL;void __fastcall TForm1::Button2Click(TObject *Sender){ if( NULL == DLLInst ) DLLInst = LoadLibrary("DLL.dll"); //上面的 Dll if (DLLInst) { CreateFromFunct = (void (__stdcall*)()) GetProcAddress(DLLInst, "CreateFromFunct"); if (CreateFromFunct) CreateFromFunct(); else ShowMessage("Could not obtain function pointer"); } else ShowMessage("Could not load DLL.dll");}void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action){ if ( DLLInst ) FreeLibrary (DLLInst);} 　　四. DLL 作为 MDIChild (子窗体) 【只编写动态调用的例子】 　　实际上，调用子窗体的 DLL 时，系统只是检查应用程序的 MainForm 是否为 fsMDIForm 的窗体，这样只要把调用程序的 Application 的 Handle 传递给 DLL 的 Application 即可；同时退出 DLL 时也要恢复。 Application // MDIChildPro.cpp // Dll 实现 CPP #include "unit1.h" // TForm1 定义TApplication *SaveApp = NULL;int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*){ if ( (reason==DLL_PROCESS_DETACH) && SaveApp ) Application = SaveApp ; // 恢复 Application return 1;}extern "C" __declspec(dllexport) __stdcall void TestMDIChild( //1024X768 TApplication* mainApp, LPSTR lpCaption){ if ( NULL == SaveApp ) // 保存 Application，传递 Application { SaveApp = Application; Application = mainApp; } // lpCaption 为子窗体的 Caption TForm1 *Form1 = new TForm1 ( Application, lpCaption ); Form1->Show();} 　　注：上面的程序使用 BCB 3.0 编译成功 　　五. BCB 调用 VC 编写的 DLL 　　1. 名字分解： 　　没有名字分解的函数 TestFunction1 // __cdecl calling convention @TestFunction2 // __fastcall calling convention TESTFUNCTION3 // __pascal calling convention TestFunction4 // __stdcall calling convention 　　有名字分解的函数 @TestFunction1$QV // __cdecl calling convention @TestFunction2$qv // __fastcall calling convention TESTFUNCTION3$qqrv // __apscal calling convention @TestFunction4$qqrv // __stdcall calling convention 　　使用 extern "C" 不会分解函数名 　　使用 Impdef MyLib.def MyLib.DLL 生成 def 文件查看是否使用了名字分解 　　2. 调用约定： 　　__cdecl 缺省 　　是 Borland C++ 的缺省的 C 格式命名约定，它在标识符前加一下划线，以保留它原来所有的全程标识符。参数按最右边参数优先的原则传递给栈，然后清栈。 extaern "C" bool __cdecl TestFunction(); 　　在 def 文件中显示为 TestFunction @1 　　注释： @1 表示函数的顺序数，将在“使用别名”时使用。 百事通 　　__pascal Pascal格式 　　这时函数名全部变成大写，第一个参数先压栈，然后清栈。 　　TESTFUNCTION @1 //def file 　　__stdcall 标准调用 　　最后一个参数先压栈，然后清栈。 　　TestFunction @1 //def file 　　__fastcall 把参数传递给寄存器 　　第一个参数先压栈，然后清栈。 　　@TestFunction @1 //def file 　　3. 解决调用约定： 　　Microsoft 与 Borland 的 __stdcall 之间的区别是命名方式。 Borland 采用__stdcall 的方式去掉了名字起前的下划线。 Microsoft 则是在前加上下划线，在后加上 @ ，再后跟为栈保留的字节数。字节数取决于参数在栈所占的空间。每一个参数都舍入为 4 的倍数加起来。这种 Miocrosoft 的 DLL 与系统的 DLL 不一样。 　　4. 使用别名： 　　使用别名的目的是使调用文件 .OBJ 与 DLL 的 .DEF 文件相匹配。如果还没有.DEF 文件，就应该先建一个。然后把 DEF 文件加入 Project。使用别名应不断修改外部错误，如果没有，还需要将 IMPORTS 部分加入 DEF 文件。 IMPORTS TESTFUNCTIOM4 = DLLprj.TestFunction4 TESTFUNCTIOM5 = DLLprj.WEP @500 TESTFUNCTIOM6 = DLLprj.GETHOSTBYADDR @51 　　这里需要说明的是，调用应用程序的 .OBJ 名与 DLL 的 .DEF 文件名是等价的，而且总是这样。甚至不用考虑调用约定，它会自动匹配。在前面的例子中，函数被说明为 __pascal，因此产生了大写函数名。这样链接程序不会出错。 　　5. 动态调用例子 　　VC DLL 的代码如下： extern "C" __declspec(dllexport) LPSTR __stdcall BCBLoadVCWin32Stdcall(){static char strRetStdcall[256] = "BCB Load VC_Win32 Dll by __stdcall mode is OK!";return strRetStdcall;}extern "C" __declspec(dllexport) LPSTR __cdecl BCBLoadVCWin32Cdecl(){static char strRetCdecl[256] = "BCB Load VC_Win32 Dll by __cdecl mode is OK!";return strRetCdecl;}extern "C" __declspec(dllexport) LPSTR __fastcall BCBLoadVCWin32Fastcall(){static char strRetFastcall[256] = "BCB Load VC_Win32 Dll by __fastcall mode is OK!";return strRetFastcall;} 　　其实动态调用与调用 BCB 编写的 DLL 没有区别，关键是查看 DLL 的导出函数名字。可以使用 tdump.exe(BCB工具) 或者 dumpbin.exe(VC工具) 查看 tdump -ee MyDll.dll >1.txt (查看 1.txt 文件即可) 　　由于 VC6 不支持 __pascall 方式，下面给出一个三种方式的例子： void __fastcall TForm1::btnBLVCWin32DynClick(TObject *Sender){ /*cmd: tdbump VCWin32.dll >1.txtTurbo Dump Version 5.0.16.4 Copyright (c) 1988, 1998 Borland International Display of File VCWIN32.DLLEXPORT ord:0000='BCBLoadVCWin32Fastcall::'EXPORT ord:0001='BCBLoadVCWin32Cdecl'EXPORT ord:0002='_BCBLoadVCWin32Stdcall@0' */ if ( !DllInst ) DllInst = LoadLibrary ( "VCWin32.dll" ); if ( DllInst ) { BCBLoadVCWin32Stdcall = (LPSTR (__stdcall *) () ) GetProcAddress ( DllInst, "_BCBLoadVCWin32Stdcall@0" ); //VC Dll // GetProcAddress ( DllInst, "BCBLoadVCWin32Stdcall" ); //BCB Dll if ( BCBLoadVCWin32Stdcall ) { ShowMessage( BCBLoadVCWin32Stdcall() ); } else ShowMessage ( "Can't find the __stdcall Function!" ); BCBLoadVCWin32Cdecl = (LPSTR (__cdecl *) () ) GetProcAddress ( DllInst, "BCBLoadVCWin32Cdecl" ); if ( BCBLoadVCWin32Cdecl ) { ShowMessage( BCBLoadVCWin32Cdecl() ); } else ShowMessage ( "Can't find the __cdecl Function!" ); //Why?不是 'BCBLoadVCWin32Fastcall::',而是 '@BCBLoadVCWin32Fastcall@0'？ BCBLoadVCWin32Fastcall = (LPSTR (__fastcall *) () ) //GetProcAddress ( DllInst, "BCBLoadVCWin32Fastcall::" ); GetProcAddress ( DllInst, "@BCBLoadVCWin32Fastcall@0" ); if ( BCBLoadVCWin32Fastcall ) { ShowMessage( BCBLoadVCWin32Fastcall() ); } else ShowMessage ( "Can't find the __fastcall Function!" ); } else ShowMessage ( "Can't find the Dll!" );} 　　6. 静态调用例子 　　静态调用有点麻烦，从动态调用中可以知道导出函数的名字，但是直接时(加入 lib 文件到工程文件) 　　Linker 提示不能找到函数的实现 　　从 4 看出，可以加入 def 文件连接(可以通过 impdef MyDll.def MyDll.dll 获得导出表)。 　　建立与 DLL 文件名一样的 def 文件与 lib 文件一起加入到工程文件。 　　上面的 DLL(VCWIN32.dll) 的 def 文件为(VCWIN32.def)： LIBRARY VCWIN32.DLL IMPORTS @BCBLoadVCWin32Fastcall = VCWIN32.@BCBLoadVCWin32Fastcall@0 _BCBLoadVCWin32Cdecl = VCWIN32.BCBLoadVCWin32Cdecl BCBLoadVCWin32Stdcall = VCWIN32._BCBLoadVCWin32Stdcall@0 　　对应的函数声明和实现如下： extern "C" __declspec(dllimport) LPSTR __fastcall BCBLoadVCWin32Fastcall(); extern "C" __declspec(dllimport) LPSTR __cdecl BCBLoadVCWin32Cdecl(); extern "C" __declspec(dllimport) LPSTR __stdcall BCBLoadVCWin32Stdcall(); void __fastcall TfrmStatic::btnLoadDllClick(TObject *Sender) { ShowMessage ( BCBLoadVCWin32Fastcall() ); ShowMessage ( BCBLoadVCWin32Cdecl() ); ShowMessage ( BCBLoadVCWin32Stdcall() ); } 　　注意：在 BCB 5.0 中，可能直接按下 F9 是不能通过 Linker 的，请先 Build 一次。上面的程序使用 BCB 5.0 与 VC6.0 编译成功