win7 下BCB调用 BCB编写的DLL

Posted 2023-05-16

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了win7 下BCB调用 BCB编写的DLL相关的知识，希望对你有一定的参考价值。

这个GetUDiskSN.dll是BCB编写的Dll，在另一个BCB中使用就出错了，不知道怎么回事？

参考技术A 1. 静态调用 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;

2. 动态调用 DLL
// Unit1.h
class TForm1 : public TForm

...
private: // User declarations
void (__stdcall *CreateFromFunct)();
...

// Unit1.cpp // TForm1
HINSTANCE 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);

3. DLL 作为 MDIChild (子窗体) 【只编写动态调用的例子】
实际上，调用子窗体的 DLL 时，系统只是检查应用程序的 MainForm 是否为 fsMDIForm 的窗体，这样只要把调用程序的 Application 的 Handle 传递给 DLL 的 Application 即可；同时退出 DLL 时也要恢复
// 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 编译成功
4. 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<br 参考技术B 动态链接库(DLL)是Windows编程常遇到的编程方法，下面我就介绍一下在BCB (C++ Builder下简称BCB) 中如何创建使用DLL和一些技巧。
一、创建:
　　使用BCB File|NEW建立一个新的DLL工程，并保存好文件BCB，生成一个DLL的程序框架。
　　1．DllEntryPoint函数为一个入口方法，如果使用者在DLL被系统初始化或者注销时被调用，用来写入对DLL的初始化程序和卸载程序；参数：hinst用来指示DLL的基地址；reason用来指示DLL的调用方式，用于区别多线程单线程对DLL的调用、创建、卸载DLL；
　　2．在程序中加入自己所要创建的DLL过程、函数；
　　3．用dllimport描述出口；
　　例程序如下：
　#include
　#pragma hdrstop

　　extern "C" __declspec(dllexport) int test();

　　int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason,void *)
　　
　　 return 1;
　　

　　int test()
　　
　　 return 3;
　　

　　注意：动态链接库中调用过程、函数时有不同的CALL方式 __cdecl、__pascal, __fastcall、__stdcall，BCB中默认的方式为__cdecl(可不写)，如果考虑兼容性可用时__stdcall声明方法为：
　　extern "C" __declspec(dllexport) int __stdcall test();
　　对于其中过程、函数也改为：
　　int __stdcall test()

二、使用DLL
　　在BCB中使用DLL有两种方法：
　1．用静态调用法
　　首先需要在BCB的项目中加入输入接口库(import library)，打开工程项目，使用BCB View|Project Manager打开项目列表，向项目中加入接口库(*.lib)。
　　其次在头文件中加入接口声明。
　　例程序如下：
　　 //define in include file
　　extern "C" __declspec(dllimport) int __cdecl test();
　　//use function in main program
　　int I；
　　I=test();
　　注意：
　　(1)动态链接库调用过程、函数时CALL方式与创建时方式一样不写为__cdecl，其它需要声明。
　　(2)BCB创建的DLL有对应的输入接口库(import library)，如只有DLL而无库时，可用BCB的implib工具产生：implib xxx.lib xxx.dll；另外可用：tlibxxx.lib,xxx.lst 产生DLL的内部函数列表，许多Windows的未公开技术就是用这种方法发现的。

　　2．动态调用法
　　动态调用法要用Windows API 中的LoadLibrary()和GetProcAddress()来调入DLL库，指出库中函数位置，这种方法较常见。
　　例程序如下：

　　 HINSTANCE dd;
　　 int _stdcall (*ddd)(void);
　　 dd=LoadLibrary("xxx.dll");
　　 ddd=GetProcAddress(dd,"test");
　　 Caption=IntToStr(ddd());
　　FreeLibrary(dd);

三、注意：
　　创建DLL时编译链接时注意设置Project Options。
　　Packages标签：去除Builder with runtime packages检查框。
　　Linker标签：去除Use dynamic RTL检查框。
　　否则创建的DLL需要Runtime packages or Runtime library。