TUXEDO与在PB的调用.docVIP

BCB 客户端 tuxedo 开发实例关键字?? tuxedo,tpinit,tpcall,tpterm,tpfree,tpalloc,Fget32,Fchg32,FLDOCC32 tuxedo 的函数很多，所有应用都使用其中子集。这些函数子集包含在开发包中一定的动态库中。下面以 tpinit,tpcall,tpterm,tpfree,tpalloc,Fget32,Fchg32,FLDOCC32 几个函数为例介绍一下在该子集下的编程方式。（不是很准哟） 1、首先 找到这些函数所在的动态库。经过解析发现以上函数包含 在wtuxws32.dll，libfml32.dll 两个动态库中。多好，有了这两个动 态库，应用程序发行时，带上他们就可以了。再也不会出现 操作系统弹出 的动态库定位错误了。 且慢，后经研究发现，光有这两个dll不行，他们 的运行还需如下6个dll：libbuft.dll，libengine.dll，libfml.dll， libgpnet.dll，libtux.dll，libwsc.dll。 哈哈。总算解析完了。 好，把这些文件copy出来到自己的工程目录下。多棒。赶紧进入下一步。 2、配置编译环境。这很重要。为使大家编程方便，我们做些小动作。在 BCB 的安装目录下（即$ BCB 标识的目录）建立tuxedo\目录，将 tuxedo开发包中的 \bin\,\include\,\lib\几个目录拷贝到该目录下。 然后，在Option|Directories/Conditionals中设置 Include Path :?? $ BCB \Tuxedo\include Library Path :?? $ BCB \Tuxedo\lib 好了，环境设置好了。在你的工程中include : #include #include #include 哦，他们三个文件实在太重要了，不包含进来你会后悔的: 3、建立一个tuxedo子集函数结构。为什么这样做呢，直接使用tuxedo函数 不好吗？ 这没什么的，依个人编程环境而定。我习惯于在结构名下 使用这些 外来开发包中的函数，因为你对他们不是很熟，有时会遗忘 其名称，将其放在结构中，利用BCB自动提示功能，你就可以很容易 找到（想起）需要的函数了。我定义的结构如下： typedef struct _FunTuxedo int _TMDLLENTRY *tpcall char _TM_FAR *,?? char _TM_FAR *, long , char _TM_FAR * _TM_FAR *,?? long _TM_FAR *,?? long ; int _TMDLLENTRY *tpinit TPINIT _TM_FAR * ;int _TMDLLENTRY *tpterm void ;void _TMDLLENTRY *tpfree char _TM_FAR * ;char * _TMDLLENTRY *tpalloc char _TM_FAR *, char _TM_FAR *, long ;int _TMDLLENTRY *Fget32 FBFR32 _TM_FAR *, FLDID32, FLDOCC32, char _TM_FAR *, FLDLEN32 _TM_FAR * ;int _TMDLLENTRY *Fchg32 FBFR32 _TM_FAR *, FLDID32, FLDOCC32, char _TM_FAR *, FLDLEN32 ;FLDOCC32  _TMDLLENTRY *Foccur32 FBFR32 _TM_FAR *, FLDID32 ;HMODULE hLibfml32; // libfml32.dll 动态库句柄HMODULE hWtuxws32; // wtuxws32.dll 动态库句柄 FUNTUXEDO,*PFUNTUXEDO; 这里，我将两个动态库句柄加入到了结构中，是因为我打算动态使用 tuxedo中间件。方便我释放他们。，下一节介绍装载/释放他们 4 装载、释放中间件 基于FUNTUXEDO结构 哈，这很容易，主要用到LoadLibrary,FreeLibrary,GetProcAddress 三个函数。装载代码如下： PFUNTUXEDO pFun; //Loading Fchg32, Fget32 by LIBFML32.DLL pFun- hLibfml32 LoadLibrary libfml32.dll ; if pFun- hLibfml32 NULL return -1; FARPROC pFun-