BCB 客戶端 tuxedo 開發實例
-supermgr
在BCB中怎樣使用tuxedo呢？
本文給出了一個例子。
然而，這個例子在后來被證明還是有點問題的，
就是在tpcall調用后，無法釋放dll，而且會出錯。
這一問題咨詢過tuxedo，多少年過去了，我還沒有
得到問題的解。
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 <atmi.h>
#include <fml32.h>
#include <tmenv.h>
哦，他們三個文件實在太重要了，不包含進來你會后悔的:)
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->Fchg32
=(FARPROC)GetProcAddress(pFun->hLibfml32,Fchg32);
(FARPROC &)pFun->Fget32
=(FARPROC)GetProcAddress(pFun->hLibfml32,Fget32);
(FARPROC &)pFun->Foccur32
=(FARPROC)GetProcAddress(pFun->hLibfml32,Foccur32);
if (pFun->Fchg32 == NULL || pFun->Fget32 == NULL || pFun->Foccur32 == NULL)
{
FreeLibrary(pFun->hLibfml32);
pFun->hLibfml32 = NULL;
return -2;
}
//Loading tpacall, tpalloc, tpfree, tpinit, tpterm by WTUXWS32.DLL
pFun->hWtuxws32 = LoadLibrary(wtuxws32.dll);
if (pFun->hWtuxws32 == NULL)
{
FreeLibrary(pFun->hLibfml32);
pFun->hLibfml32 = NULL;
return -3;
}
(FARPROC &)pFun->tpcall
=(FARPROC)GetProcAddress(pFun->hWtuxws32,tpacall);
(FARPROC &)pFun->tpalloc
=(FARPROC)GetProcAddress(pFun->hWtuxws32,tpalloc);
(FARPROC &)pFun->tpfree
=(FARPROC)GetProcAddress(pFun->hWtuxws32,tpfree);
(FARPROC &)pFun->tpinit
=(FARPROC)GetProcAddress(pFun->hWtuxws32,tpinit);
(FARPROC &)pFun->tpterm
=(FARPROC)GetProcAddress(pFun->hWtuxws32,tpterm);
if (pFun->tpcall == NULL || pFun->tpalloc == NULL ||
pFun->tpfree == NULL || pFun->tpinit == NULL ||
pFun->tpterm == NULL)
{
FreeLibrary(pFun->hLibfml32);
pFun->hLibfml32 = NULL;
FreeLibrary(pFun->hWtuxws32);
pFun->hWtuxws32 = NULL;
return -4;
}
釋放時很簡單，只需
FreeLibrary(pFun->hLibfml32);
FreeLibrary(pFun->hWtuxws32);
即可。
(注：傳統情況下，FreeLibrary(DllHandle) 是不會出問題的。但在
BEA 公司 的 這些dll面前，ms 的 FreeLibrary 就不行了，當應用程序
退出時，會有非法地址訪問的問題。我檢查過數次，只要一經調用tpcall
，退出時就會有問題。)
折衷的辦法是 使用 try-catch，釋放時不使用FreeLibrary,
而在應用程序退出時，最后使用 FreeLibraryAndExitThread,否則即使
你使用FreeLibrary 也沒法通過 catch 捕捉到異常。呵呵。
5、使用。例：...的內容查幫助吧。
PFUNTUXEDO pFun;
char *pSendBuff;
char *pRecvBuff;
long lRet;
short sRet;
int iRet;
//中間件服務
pSendBuff = pFun->tpalloc(...);
if (pSendBuff == NULL)
{
return ERR_TUXEDO;
}
pRecvBuff = pFun->tpalloc(...);
if (pRecvBuff == NULL)
{
pFun->tpfree(pSendBuff);
return ERR_TUXEDO;
}
try
{
iRet = pFun->Fchg32(...);
if (iRet == -1)
{
throw(1);
}
//建立連接
iRet = pFun->tpinit(NULL);
if (iRet == -1)
{
throw(2);
}
iRet = pFun->tpcall(...);
if (iRet == -1)
{
throw(3);
}
iRet = pFun->tpterm();
if (iRet == -1)
{
throw(4);
}
iRet =pFun->Fget32(...);
if (iRet == -1)
{
throw(4);
}
pFun->tpfree(pSendBuff);
pFun->tpfree(pRecvBuff);
}
catch(int Err)
{
pFun->tpfree(pSendBuff);
pFun->tpfree(pRecvBuff);
return Err;
}
catch(...)
{
return ERR_UNKNOWN;
}
//這里可以處理接收到的數據結果
//...
6、編譯。
注意，
后來發現的。
2003-7