松江方塔公园门票价格:BCB6.0中怎么建立一个DLL

来源：百度文库 编辑：偶看新闻 时间：2024/04/25 04:58:02
发表于：2004-10-06 22:42:14我先说说我的步骤：
我选择FILE—》NEW-》OTHER-》DLL   WIZARD建立一个工程
然后代码如下：
#include  

struct   RClientEventStr
{
          int   Event;
          int   Flag;
          char   User[40];
          char   Aux[512];
          char   HostIp[16];
          unsigned   long   SessionID;
          int   DomainID;
          int   DomainPort;
}

/*   定义DLL   输出函数   */


#pragma   hdrstop
extern   "C "   __declspec(dllexport)   int   HandleClientEvent(RClientEventStr*   pEventStruc);

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

int   HandleClientEvent(RClientEventStr*   pEventStruc)
{
                return   1;
}
//---------------------------------------------------------------------------

编译错误提示如下：
[C++   Error]   Unit1.cpp(19):   E2040   Declaration   terminated   incorrectly

在线等待大家给予解决   谢谢！
  • Friecin
  • (雪客)
  • 等　级：
#1楼 得分：0回复于：2004-10-06 23:46:52你的struct   也要导出！
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：如何將 Frame 加入 Form , B2007
  • Friecin
  • (雪客)
  • 等　级：
#2楼 得分：0回复于：2004-10-06 23:47:18最好定义为class!
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：300分征求一个文件格式的设计思路
  • Friecin
  • (雪客)
  • 等　级：
#3楼 得分：0回复于：2004-10-06 23:48:20一.   编写   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();  
}  


  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：[推荐]最新的boost中文文档
  • Friecin
  • (雪客)
  • 等　级：
#4楼 得分：0回复于：2004-10-06 23:48:36二.   静态调用   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   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);  
}  

  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：BCB在COM中如何处理javascript脚本传递的数组
  • Friecin
  • (雪客)
  • 等　级：
#5楼 得分：5回复于：2004-10-06 23:48:42四.   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.txt  
Turbo   Dump   Version   5.0.16.4   Copyright   (c)   1988,   1998   Borland   International  
Display   of   File   VCWIN32.DLL  

EXPORT   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   编译成功
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：C++Builder及VC的DLL相互调用（刚刚测试通过，高兴&&散分）
  • robbyzi
  • (红客robby) (★世界真大)
  • 等　级：
#6楼 得分：10回复于：2004-10-07 02:47:49这里是一个用BCB6做的《创建与调用Dll视频与例子》
http://zydlm.wxhc.com.cn/down_view.asp?action=download&id=117

不大，1M不到。
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
  • PerfmLin
  • (香水坏坏C#)
  • 等　级：
#7楼 得分：0回复于：2004-10-07 02:57:38谢谢各位   问题发现了是   struct{}后面没跟分号的原因   所以导致编译错误   不好意思！

再麻烦一下各位   就是请问   怎么在BCB6中实现MD5的加密   谢谢
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
  • Friecin
  • (雪客)
  • 等　级：
#8楼 得分：5回复于：2004-10-07 13:31:52晕倒！

用Indy   Misc栏中的   IdCoderMD5控件实现   MD5加密
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
  • unixpro
  • (p哥)
  • 等　级：
#9楼 得分：0回复于：2004-10-19 10:28:30up
在MSN中怎么建立一个群？ BCB6中TTreeView得到焦点的事件是什么 BCB6 的 class explorer 菜单怎么没有了？ 怎么在 Dreamweaver中建立一个网上投票系统 怎么在 Dreamweaver中建立一个网上投票系统 如何在windows xp 中怎么建立一个超级用户 我在Delphi7中，建立IntraWeb程序的时候，怎么建立一个基准Form啊！！！ 怎么建立一个网站 怎么建立一个贴吧呀？？ 怎么建立一个佳网业 怎么建立一个新用户 怎么建立一个局域网? 怎么建立一个同学录？ 怎么建立一个帖吧啊? 怎么建立一个网站？ 怎么建立一个吧 路由器中怎么建立网上邻居 怎么建立一个百度吧？ 怎么建立一个文学网站？ 怎么建立一个吧啊 怎么建立一个外资公司？ 怎么建立一个博客啊 怎么才能建立一个网站？？ 如何在一个DLL中调用另一个DLL