亚洲免费电影网站,亚洲V无码一区二区三区四区观看,亚洲国产激情在线一区

整合weblogic cluster �Q?apache

Mon, 18 Jun 2007 17:02:00 GMT

1. 在Weblogic安装目录中找到For Apache的Plug-ins
        位于$WL_HOME/bin目录下，其中�Q?br>        mod_wl128_20.so�Q�用于Standard Apache Version 2.0.x�Q�Regular Strength Encryption�Q?br>        mod_wl_20.so�Q�用于Standard Apache Version 2.0.x�Q?28-bit Encryption�Q?br>
2. ��认需要的Apache版本

3. ��认在Apache中支持Plug-ins
        执行:$APACHE_HOME/bin/apache -l�Q�如果没有列出来mod_so.c�Q�则需要重�?br>Build�?br>
4. 安装Apache HTTP Server Plug-In module
        ��mod_wl_20.so复制�?APACHE_HOME/modules目录下；
        修改$APACHE_HOME/conf/httpd.conf配置文�g�Q�增加如下行�Q?br>                LoadModule weblogic_module     modules/mod_wl_20.so

5. 在httpd.conf中配�|�其它参�?br>

        <IfModule mod_weblogic.c>
                WebLogicCluster localhost:90,localhost:91
                MatchExpression *.jsp
        IfModule>

        <Location /weblogic>
                SetHandler weblogic-handler
                PathTrim /
        Location>
        <IfModule mod_weblogic.c>
            WebLogicCluster localhost:7003,localhost:7005,localhost:7007
            MatchExpression *
        IfModule>

        <Location /DizzyTixWeb>
            SetHandler weblogic-handler
            PathTrim /
        Location>

        <Location /DizzySupplies>
            SetHandler weblogic-handler
            PathTrim /
        Location>

��查httpd.conf配置是否正确�Q�APACHE_HOME\bin\Apache -t

6. 重启Weblogic Server
7. 启动Apache HTTP Server
8. ��试插�g http://localhost/weblogic/

Vincent Chen 2007-06-19 01:02 发表评论

[转帖] Windows下Tuxedo的安装与配置-无数据库

Tue, 12 Jun 2007 14:34:00 GMT

一、安装前的文件准�?br>
下蝲Tuxedo For Windows版本和License文�g�Q�本机采用的是Tuxedo9 windows版本。具�?br>Windows安装�q�程略。正常安装后Tuxedo�?x��)徏一个tlisten的服务，且已自动启动�?br>
本机Tuxedo安装路径 C:\bea\tuxedo9.0

二、Tuxedo安装完成后的环境变量配置

[Win2000,XP]

右键我的�?sh��)�?>属�?>高��->环境变量�Q�更改变量倹{�?br>
在LIB��Ҏ(gu��)��?nbsp;    C:\bea\tuxedo9.0\lib
在INCLUDE��Ҏ(gu��)��?C:\bea\tuxedo9.0\include
在PATH��Ҏ(gu��)��?nbsp;   C:\bea\tuxedo9.0\bin

��d��下面两个新项
TUXDIR          C:\bea\tuxedo9.0
WSNADDR         //192.168.98.166:4050 Tuxedo服务器IP与端�?br>
除此之外�q�需要指定Tuxedo应用服务的�\径，如果你用C开发了一个Tuxedo服务�Q�这个服�?br> 文�g所在的路径。本��\径�ؓ(f��)F:\Liwei\Tuxedo\dbread�?br>
�Ҏ(gu��)��机器实际情况��d��
APPDIR          F:\Liwei\Tuxedo\dbread
TUXCONFIG       F:\Liwei\Tuxedo\dbread\tuxconfig

注：(x��)环境变量更改后确定即生效�?br>
[Win98]

�?000,XP不同的是需要更改AUTOEXEC.BAT文�g�Q�加入以下命令�?br> 如SET TUXDIR=C:\bea\tuxedo9~1

注：(x��)AUTOEXEC.BAT有一个缺点，��是更改后需要重启机器才能生效，如果我们设一个环�?br> 变量文�g�Q�如TUXENV�Q�，那只要在文�g里修改后存盘��p��生效。在AUTOEXEC.BAT中长文�g
名必��ȝ��~�写�?br>
例：(x��)

SET TUXENV=C:\bea\tuxedo9~1           //TUXDEO环境变量文�g

在C:\bea\tuxedo9.0目录下创建TUXENV文�g�Q�在文�g里加�?br> APPDIR=F:\Liwei\Tuxedo\dbread
TUXCONFIG=F:\Liwei\Tuxedo\dbread\tuxconfig
...

三、准备Tuxedo客户端，服务端程序代�?br>
可以直接用Tuxedo本��n带的例子�Q�C:\bea\tuxedo9.0\samples\atmi\simpapp
客户�?simpcl.c
服务�?simpserv.c

四、准备编译客��L(f��ng)��服务端程�?br>
�q�里最好是自已把各�U�编译命令写成批处理文�g。在�~�译之前需要安装C语言�~�译器，我们
通常使用VC++6.0�Q�安装时如果没有让VC讄��环境变量�Q�在�~�译前需要手工运�?
E:\Program Files\Microsoft Visual Studio\VC98\Bin\VCVARS32.BAT

注：(x��)手工讄��的变量在关闭命��o(h��)行环境就失效了。最好是复制到本地文件夹�?br>
bclt.bat文�g内容
F:
cd F:\liwei\tuxedo\dbread
buildclient -o simpcl -f simpcl.c -v

bsrv.bat文�g内容
F:
cd F:\liwei\tuxedo\dbread
buildserver -o simpserv -f simpserv.c -s TOUPPER -v

start.bat文�g内容   �q�文件主要作用是启动当前目录的命令环�?br> cd
cmd

�~�译完成后会(x��)在本地目录生成simpcl.exe和simpserv.exe。要惛_��动服务，则需要配�|?br> ubbconfig了�?br>
五、配�|�ubbconfig

下面是一个完整的ubbconfig文�g�Q�此文�g要放在本地目录下。即与环境变量APPDIR保持
一致。文件名随意�Q�这里��用config文�g名�?br>
#Liwei

*RESOURCES
IPCKEY    123456
DOMAINID liweiapp
MASTER lw
MAXACCESSERS 3
MAXSERVERS 3
MAXSERVICES 3
MODEL SHM
LDBAL N

*MACHINES
LWYM
LMID = lw
TUXDIR = "C:\bea\tuxedo9.0"
TUXCONFIG = "F:\Liwei\Tuxedo\dbread\tuxconfig"
APPDIR = "F:\Liwei\Tuxedo\dbread"

*GROUPS
GROUP1 LMID=lw GRPNO = 1 OPENINFO=NONE
*SERVERS
DEFAULT:
CLOPT="-A"
simpserv SRVGRP=GROUP1 SRVID=1
*SERVICES
TOUPPER

每段详细的说明很复杂�Q�具体可以查看相兌��料。这里只�Ҏ(gu��)��较迷惑的地方说明下�?br>
*RESOURCES下MASTER名称��L��Q�但要与*MACHINES�Q?GROUPS里的LMID保持一致�?br>
*RESOURCES下如MAXACCESSERS�Q�MAXSERVERS�Q�MAXSERVICES�{�设�|�错误如1�Q�编译config后，
在命令行�q�行tmboot�Q�BBL是启动不��h��的，重新讄��正确的值后�Q�再�~�译config,tmboot
BBL也启动不��h��。原因是��d��理器残存tuxipc�q�个�q�程�Q�在�~�译config前，�q�掉它就
没问题了�?br>
*MACHINES下面的服务器机器名必��L��大写。否则编译config�?x��)提�C�Z��么non master的错误�?br>
*MACHINES�c�M��TUXDIR的内容必��M��环境变量讄��一致�?br>
*SERVERS中的simpserv名子必须是你服务端程序编译后的EXE文�g名�?br>
*SERVICES的TOUPPER是你服务端程序编译时-s制定的服务名�?br>
五、编译config�Q�运行tmboot启动服务

讄��完成。运�?br>
load.bat 文�g内容
F:
cd F:\liwei\tuxedo\dbread
tmloadcf -y config

�~�译config文�g完成后，�?x��)在APPDIR下生成tuxconfig文�g�?br> �q�行tmboot -y
BBL服务启动成功�Q�simpserv启动成功!

�q�行tmadmin可以查看�l�护服务的状态等。运行simpcl.exe��可以看��C��互过�E�了�?/span>

Vincent Chen 2007-06-12 22:34 发表评论

Tuxedo学习(f��n)�W�记�Q�UBBCONFIG

Mon, 04 Sep 2006 15:26:00 GMT

摘要: 一�? Tuxedo 应用�pȝ��的所有资源都在一个文本文件中�q�行定义�Q�该文�g�U�Cؓ(f��) UBBCONFIG 。在配置完成之后�Q? UBBCONFIG 被编译成一个二�q�制的文�? TUXCONFIG 。在 Tuxedo �pȝ��启动�Ӟ��从该文�g中读取系�l�的配置信息�? UBBCONFIG 文�g�c�M��?... 阅读全文

Vincent Chen 2006-09-04 23:26 发表评论

Windows下Tuxedo的安装与配置-无数据库

Mon, 04 Sep 2006 15:25:00 GMT

Windows下Tuxedo的安装与配置-无数据库

草木�?2005-5-18

一、安装前的文件准�?/p>

下蝲Tuxedo For Windows版本和License文�g�Q�本机采用的是Tuxedo9 windows版本。具�?br />Windows安装�q�程略。正常安装后Tuxedo�?x��)徏一个tlisten的服务，且已自动启动�?/p>

本机Tuxedo安装路径 C:\bea\tuxedo9.0

二、Tuxedo安装完成后的环境变量配置

[Win2000,XP]

右键我的�?sh��)�?>属�?>高��->环境变量�Q�更改变量倹{�?br />
在LIB��Ҏ(gu��)��加   �?C:\bea\tuxedo9.0\lib
在INCLUDE��Ҏ(gu��)��?C:\bea\tuxedo9.0\include
在PATH��Ҏ(gu��)��加  �?C:\bea\tuxedo9.0\bin

��d��下面两个新项
TUXDIR          C:\bea\tuxedo9.0
WSNADDR         //192.168.98.166:4050 Tuxedo服务器IP与端�?br />
除此之外�q�需要指定Tuxedo应用服务的�\径，如果你用C开发了一个Tuxedo服务�Q�这个服�?br /> 文�g所在的路径。本��\径�ؓ(f��)F:\Liwei\Tuxedo\dbread�?br />
�Ҏ(gu��)��机器实际情况��d��
APPDIR          F:\Liwei\Tuxedo\dbread
TUXCONFIG       F:\Liwei\Tuxedo\dbread\tuxconfig

注：(x��)环境变量更改后确定即生效�?br />
[Win98]

�?000,XP不同的是需要更改AUTOEXEC.BAT文�g�Q�加入以下命令�?br /> 如SET TUXDIR=C:\bea\tuxedo9~1

注：(x��)AUTOEXEC.BAT有一个缺点，��是更改后需要重启机器才能生效，如果我们设一个环�?br /> 变量文�g�Q�如TUXENV�Q�，那只要在文�g里修改后存盘��p��生效。在AUTOEXEC.BAT中长文�g
名必��ȝ��~�写�?br />
例：(x��)

SET TUXENV=C:\bea\tuxedo9~1           //TUXDEO环境变量文�g

在C:\bea\tuxedo9.0目录下创建TUXENV文�g�Q�在文�g里加�?br /> APPDIR=F:\Liwei\Tuxedo\dbread
TUXCONFIG=F:\Liwei\Tuxedo\dbread\tuxconfig
...

三、准备Tuxedo客户端，服务端程序代�?/p>

可以直接用Tuxedo本��n带的例子�Q�C:\bea\tuxedo9.0\samples\atmi\simpapp
客户�?simpcl.c
服务�?simpserv.c

四、准备编译客��L(f��ng)��服务端程�?/p>

�q�里最好是自已把各�U�编译命令写成批处理文�g。在�~�译之前需要安装C语言�~�译器，我们
通常使用VC++6.0�Q�安装时如果没有让VC讄��环境变量�Q�在�~�译前需要手工运�?
E:\Program Files\Microsoft Visual Studio\VC98\Bin\VCVARS32.BAT

注：(x��)手工讄��的变量在关闭命��o(h��)行环境就失效了。最好是复制到本地文件夹�?br />
bclt.bat文�g内容
F:
cd F:\liwei\tuxedo\dbread
buildclient -o simpcl -f simpcl.c -v

bsrv.bat文�g内容
F:
cd F:\liwei\tuxedo\dbread
buildserver -o simpserv -f simpserv.c -s TOUPPER -v

start.bat文�g内容 �q�文件主要作用是启动当前目录的命令环�?br /> cd
cmd

�~�译完成后会(x��)在本地目录生成simpcl.exe和simpserv.exe。要惛_��动服务，则需要配�|?br /> ubbconfig了�?br />
五、配�|�ubbconfig

下面是一个完整的ubbconfig文�g�Q�此文�g要放在本地目录下。即与环境变量APPDIR保持
一致。文件名随意�Q�这里��用config文�g名�?/p>

#Liwei

*RESOURCES
IPCKEY    123456
DOMAINID liweiapp
MASTER  lw
MAXACCESSERS 3
MAXSERVERS 3
MAXSERVICES 3
MODEL  SHM
LDBAL  N

*MACHINES
LWYM
LMID = lw
TUXDIR = "C:\bea\tuxedo9.0"
TUXCONFIG = "F:\Liwei\Tuxedo\dbread\tuxconfig"
APPDIR = "F:\Liwei\Tuxedo\dbread"

*GROUPS
GROUP1 LMID=lw GRPNO = 1 OPENINFO=NONE
*SERVERS
DEFAULT:
CLOPT="-A"
simpserv SRVGRP=GROUP1 SRVID=1
*SERVICES
TOUPPER

每段详细的说明很复杂�Q�具体可以查看相兌��料。这里只�Ҏ(gu��)��较迷惑的地方说明下�?br />
*RESOURCES下MASTER名称��L��Q�但要与*MACHINES�Q?GROUPS里的LMID保持一致�?br />
*RESOURCES下如MAXACCESSERS�Q�MAXSERVERS�Q�MAXSERVICES�{�设�|�错误如1�Q�编译config后，
在命令行�q�行tmboot�Q�BBL是启动不��h��的，重新讄��正确的值后�Q�再�~�译config,tmboot
BBL也启动不��h��。原因是��d��理器残存tuxipc�q�个�q�程�Q�在�~�译config前，�q�掉它就
没问题了�?br />
*MACHINES下面的服务器机器名必��L��大写。否则编译config�?x��)提�C�Z��么non master的错误�?br />
*MACHINES�c�M��TUXDIR的内容必��M��环境变量讄��一致�?br />
*SERVERS中的simpserv名子必须是你服务端程序编译后的EXE文�g名�?br />
*SERVICES的TOUPPER是你服务端程序编译时-s制定的服务名�?br />
五、编译config�Q�运行tmboot启动服务

讄��完成。运�?br />
load.bat 文�g内容
F:
cd F:\liwei\tuxedo\dbread
tmloadcf -y config

�~�译config文�g完成后，�?x��)在APPDIR下生成tuxconfig文�g�?br /> �q�行tmboot -y
BBL服务启动成功�Q�simpserv启动成功!

�q�行tmadmin可以查看�l�护服务的状态等。运行simpcl.exe��可以看��C��互过�E�了�?img src ="http://www.tkk7.com/Vencent/aggbug/67697.html" width = "1" height = "1" />

Vincent Chen 2006-09-04 23:25 发表评论

Mon, 04 Sep 2006 15:25:00 GMT

Tuxedo8.1 + Windows2000 Server
看来安装Tuxedo出问题的��不少啊！

我上�ơ出问题后，来这儉K��了，后来自己摆弄�Q�终于弄好了�?br />现在也来介绍一下我的经验，愿大安��走出初学者的阴媄�Q�早日成为像wsywin,qiupeng,damask一��L(f��ng)��高手�Q?br />
我这里把我的安装�l�历说一下�?br />1�Q�安装准备：(x��)
   安装前一定要注意�Q�如果想卸蝲掉原有版本，��注意一定要停止当前行的Tuxedo版本�Q��ƈ且程�?〉管理工�?〉服务中停止掉关�?br />
Tuxedo的几个服务�?br />   下蝲到Tuxedo8.1版本以及(qi��ng)相应的Lic.txt文�g�Q�这个可以在Bea的网站上下蝲�Q�ft�Q�好像白天下载快些，老外的嘛�Q��?br />
2�Q�安装，选择路径D:\Bea(随便选择),选择Full安装模式�Q�一路点击OK�?br />   Create tlisten Password, 不知道干什么的�Q�随便输入一个吧�?br />   Would you like to configure LDAP for SSL Support? yes.��她呢，以后问wsywin,damask 他们了，
   看资料也行，写得很详�l�。后面的LDAP Configuration配置不用��她,��q��~�省的吧�?br />
3�Q�选择好License文�g的位�|�，安装到次�l�束�?br />
安装告一�D�落�Q�不�q�还早着呢，下面的配�|�直到运行一个简单的Simpapp很重要！

1,我们准备��试D:\bea\tuxedo8.1\samples\atmi\simpapp下面的例子，所以我们把�q�里文�g
拯��?例如: F:\SimpApp�?br />
2,配置环境变量�Q?br /> 我的�?sh��)�?〉属�?〉高�U?〉环境变量，在Administator的用户变量中�Q?br /> ��d��Q�TUXDIR="D:\BEA\Tuxedo8.1"
        TUXCONFIG="F:\SimpApp\tuxconfig"
        PATH 后面加上"D:\BEA\Tuxedo8.1\bin"
        LD_LIBARARY_PATH=%TUXDIR%\lib

3,��查�ƈ�~�译客户�E�序
�q�行cmd,到F:\SimpApp目录下，输入buildclient -o simpcl -f simpcl.c

4,��查�ƈ�~�译服务�E�序
�q�行cmd�Q�到F:\SimpApp目录�?输入buildserver –o simpserv –f simpserv.c –s TOUPPER

5,�~�辑�q�加配置文�g(�q�里有些�ȝ��Q�其实文件提�C�写得很清楚�Q�需要认真看�Q�改写的地方不多)

# (c) 2003 BEA Systems, Inc. All Rights Reserved.
#ident "@(#) samples/atmi/simpapp/ubbsimple $Revision: 1.5 $"

#Skeleton UBBCONFIG file for the TUXEDO Simple Application.
#Replace the items with the appropriate values.

*RESOURCES
IPCKEY          123456 #�q�个地方被我改写

#Example:
#IPCKEY 123456

DOMAINID simpapp
MASTER          simple
MAXACCESSERS 10
MAXSERVERS 5
MAXSERVICES 10
MODEL SHM
LDBAL N

*MACHINES
DEFAULT:
                APPDIR="F:\SimpDir"                 #�q�个地方被我改写
                TUXCONFIG="F:\SimpApp\tuxconfig"    #�q�个地方被我改写
                TUXDIR="D:\bea\tuxedo8.1"           #�q�个地方被我改写
#Example:
# APPDIR="/home/me/simpapp"
# TUXCONFIG="/home/me/simpapp/tuxconfig"
# TUXDIR="/usr/tuxedo"

CNH LMID=simple      #�q�个地方被我改写

#Example:
#beatux LMID=simple

*GROUPS
GROUP1
LMID=simple GRPNO=1 OPENINFO=NONE

*SERVERS
DEFAULT:
CLOPT="-A"

simpserv SRVGRP=GROUP1 SRVID=1

*SERVICES
TOUPPER

�~�辑好后�Q?br /> tmloadcf ubbsimple
Initialize TUXCONFIG file: /usr/me/simpdir/tuxconfig [y, q] ? y

6,启动应用�E�序
tmboot

7,执行�q�行时应用程�?br /> simpcl “hello, world�?br /> Returned string is: HELLO, WORLD

8,关闭应用�E�序
tmshutdown

参考文献：(x��)
《Bea Tuxedo应用�E�序开发指南》经乾。网上可以下�?br />
�E�候我��会(x��)把Delphi开发客��L(f��ng)��的体�?x��)写出来�Q�用View方式.
我的QQ是：(x��)77764686,�Ƣ迎又诚意者探讨Tuxedo开发的问题.
此文被Tuxedoer�?003/04/21 23:16:46修改!ULT:
                APPDIR="F:\SimpDir"                 #�q�个地方被我改写
                TUXCONFIG="F:\SimpApp\tuxconfig"    #�q�个地方被我改写
                TUXDIR="D:\bea\tuxedo8.1"           #�q�个地方被我改写
#Example:
# APPDIR="/home/me/simpapp"
# TUXCONFIG="/home/me/simpapp/tuxconfig"
# TUXDIR="/usr/tuxedo"

CNH LMID=simple      #�q�个地方被我改写

#Example:
#beatux LMID=simple

*GROUPS
GROUP1
LMID=simple GRPNO=1 OPENINFO=NONE

*SERVERS
DEFAULT:
CLOPT="-A"

simpserv SRVGRP=GROUP1 SRVID=1

*SERVICES
TOUPPER

Vincent Chen 2006-09-04 23:25 发表评论

Mon, 04 Sep 2006 15:24:00 GMT

tuxedo多机方式配置有两个方�?/font>

1.启动tlisten

tlisten在tuxedo启动时扮演控制者的角色,在非master��Z��由tlisten启动bbl和应用服务器,tlisten的启动方法�ؓ(f��)

tlisten -l //host:ipport

注意�q�里�?span lang="EN-US">ipport必须和ubb文�g中NETWORK域NLSADDR一�?/span>

tlisten必须在所有的机器上启�?启动后才能运行tmboot.��操作�pȝ��启动时就�q�行tlisten.

2. ubb文�g配置

对于多机模式一般就是指单一domain��理的多台机�?所有机器上仅需要一个ubb文�g,以下是ubb文�g的模�?/span>

*RESOURCES

IPCKEY 80952

MAXACCESSERS 40

MAXSERVERS 35

MAXSERVICES75

MASTER SITE1,SITE2

OPTIONSLAN,MIGRATE

MODEL MP

*MACHINES

LMID=SITE1

TUXDIR=""

APPDIR=""

TUXCONFIG="/tuxconfig"

TYPE=""

ULOGPFX="/ULOG"

LMID=SITE2

TUXDIR=""

APPDIR=""

TLOGDEVICE="/TLOG"

TLOGNAME=TLOG

TUXCONFIG="/tuxconfig"

TYPE=""

ULOGPFX="/ULOG"

*GROUPS

*NETWORK

SITE1 NADDR=""

BRIDGE=""

NLSADDR=""

SITE2 NADDR=""

BRIDGE=""

NLSADDR=""

*SERVERS

DEFAULT: RESTART=Y MAXGEN=5 REPLYQ=Y CLOPT="-A"

*SERVICES

3. ��理

只能�?/span> master ��Z��q�行 tmadmin �q�行��理。要获得�l�计信息�?/span> tmadmin 中应�q�行 default –m 命��o(h��)�?/span>

例如�Q?/font>

tmadmin

>default –m SITE1

>printservice

Sample:

#ident "@(#) samples/atmi/simpapp/ubbmp $Revision: 1.2.8.1 $"

*RESOURCES

IPCKEY 87654

MASTER site1,site2

MAXACCESSERS 40

MAXSERVERS20

MAXSERVICES 40

UID 0

GID 0

MODEL MP

OPTIONS LAN,MIGRATE

*MACHINES

CHRIS LMID=site1

APPDIR="d:\tuxedo\samples\atmi\simpapp"

TUXCONFIG="d:\tuxedo\samples\atmi\simpapp\tuxconfig"

# TYPE=""

TUXDIR="d:\tuxedo"

chrislinux LMID=site2

APPDIR="/home/tuxedo/samples/atmi/simpapp"

TUXCONFIG="/home/tuxedo/samples/atmi/simpapp/tuxconfig"

# TYPE=""

TUXDIR="/home/tuxedo"

UID=503

GID=503

*GROUPS

GROUP1

LMID=site1 GRPNO=1 OPENINFO=NONE

GROUP2

LMID=site2 GRPNO=2 OPENINFO=NONE

*NETWORK

site1NADDR="http://10.10.10.10:6033"

NLSADDR="http://10.10.10.10:6034"

# BRIDGE=""

site2NADDR="http://10.10.10.11:6033"

NLSADDR="http://10.10.10.11:6034"

# BRIDGE=""

*SERVERS

DEFAULT:

CLOPT="-A"

simpserv SRVGRP=GROUP1 SRVID=3

*SERVICES

TOUPPER

Vincent Chen 2006-09-04 23:24 发表评论

Mon, 04 Sep 2006 15:23:00 GMT

Tuxedo的配�|�管理简要说�?

Tuxedo的配�|�管理简要说�?
一、Tuxedo基本命��o(h��)2
二、UBB文�g配置说明3
三、数据库XA讄��7
3.1 ORACLE XA7
3.2 SYBASE XA8
3.3 INFORMIX XA8
四、Tuxedo多机方式配置要点9
4.1启动tlisten9
4.2 ubb文�g配置9
4.3��理11
五、用JOLT�q�接Tuxedo和W(xu��)eblogic11
5.1在Tuxedo上安装、配�|�JOLT Server11
5.2 配置Weblogic Server 6.x12
5.3 Example setup13
六、TUXEDO动态配�|?3
6.1 用tmadmin修改配置13
6.2 用tmconfig更改TUXCONFIG�Q�UBBCONFIG�Q?4

一、Tuxedo基本命��o(h��)

#1.讄��环境变量TUXDIR,APPDIR,TUXCONFIG�Q�LANG(跟OS相关),LD_LIBRARY_PATH(跟OS相关)
#2.�~�译ubb文本生成二进刉��|�文�Ӟ��(x��)tmloadcf –y ubbconfig
#3.所有机器上�q�行tlisten,具体见文��中NETWORK一�?br />#4.启动tmboot –y
#5.关闭tmshutdown –y
参数�Q?
-A在所有机器上启动/关闭��理的Server�q�程
-M只在MASTER机器上启�?关闭��理的Server�q�程
-isrvid 启动/关闭某个server id指定的Server�q�程
-ggrpname启动/关闭某个server group名字指定的Server Group
-S启动/关闭所有应用服务器�Q�LMID�Q?br />-sserver-name 启动/关闭某个server名字指定的Server�q�程
-llmid option 在指定的机器上启�?关闭所有TMS�q�程和应用服务器�Q�LMID�Q?br />-Tgrpname 启动/关闭指定的server group中所有的TMS�q�程
-Blmid 在指定的机器上启�?关闭BBL�q�程
-ecommand 指定一个程序可以当在MASTER机器上启动�Q何一个进�E�失败时执行
-c计算出当前UBB配置的Tuxedo启动最��要占用的系�l�IPC资源

#用tmunloadcf > generated.ubb 可以得出目前配置得UBB文�g所有得参数��|��没有讄��的有�~�省��|��
#用tmloadcf –c或tmboot –c可以计算出当前UBB配置的Tuxedo启动最��要占用的系�l�IPC资源�?

二、UBB文�g配置说明

UBB配置文�g分成*RESOURCES,*GROUP,*SERVER,*SERVICE,*NETWORK�{�若�q�节。DEFAULT表示该节中所有对象共有的�~�省属性�?

*RESOURCES
#RESOUCES节提供整个系�l�的基本参数�?

IPCKEY55555 �Q?2767-262143�Q?
#�q�行IPC通讯的key�?br />DOMAINIDunicom
#DOMAIN的ID�?br />MASTERunicom1,unicom2
#指定DOMAIN中的��理��L��为unicom1,�q�行�q�程中unicom1若出现问题，��理��L��切换至unicom2
MAXACCESSERS 1000
#�q�里该��D��C�整个系�l�中单个机器上可以访问TUXEDO的最多的Client和Server的��L��(可以讉K�� BBL的最大进�E�数)�Q�应大于license用户�?server敎ͼ�副本应记入）。该字段�?x��)被MACHINE部分的MAXACCESSERS覆盖�?br />#�pȝ��核心参数中SEMAPHORE的数�?SEMMNS)要大于这里的MAXACCESSERS数目�Q�而ipc消息个数�Q�MSGMAX�Q�应大于MAXACCESSERS�?所有带REPLYQ的SERVER的个数�?br />MAXSERVERS80
#最大的server敎ͼ�副本应记入）
MAXSERVICES200
#最大的service敎ͼ�多个server重复记入�Q?br />MAXGTT20
#�pȝ��最多的�q�发的全局交易数目
MODELMP
#表示cluster方式�Q�否则�ؓ(f��)SHM
OPTIONSLAN,MIGRATE
#多机cluster方式时必��L��定�ؓ(f��)LAN方式�Q�MIGRATE表示可以以组为单位进行机器间SERVER的迁�U�R�?br />LDBALY
#允许负蝲均衡

SCANUNIT10
#SCANUNIT 是BBL在所有服务请求中定期扫描以寻找超时的交易和被��d��徯��用和德间隔时��_(d��)��U�）。这个参数指定BBL扫描间隔旉��的基本单位，它会(x��)影响在tpbegin中指定的交易��时旉��和用BLOCKTIME指定的请求阻塞超时时间的�_��E�度。SANITYSCAN, BBLQUERY, DBBLWAIT, BLOCKTIME�{�参数都是SCANUNIT的倍数�Q�而不是实际秒数。而作为时间单位SCANUNIT必须�?的倍数�Q��ƈ且满��?< SCANUNIT<60�?

SANITYSCAN12
#SANITYSCAN的值指定在每个MACHINE上BBL自动��所有进�E�的旉��间隔�Q�以SCANUNIT为单元。缺省值满��I��SCANUNIT*SANITYSCAN�Q�约�?20�U��?

DBBLWAIT 2
#DBBLWAIT 的值指定DBBL扫描BBL时等待所有BBL应答的最大时��_(d��)��以SCANUNIT为单元，卌��q�DBBLWAIT*SCANUNIT�Q�秒�Q�就��时。每一��? DBBL��请求�{发给它的BBL�Ӟ��BBL�?x��)在��h��q�回�l�果之前先回复一个肯定的应答。这样可以定时检��死掉或不正常的BBL。缺省值满��? �Q�SCANUNIT*DBBLWAIT�Q�的值等于SCANUNIT�?0�U�两者之间的最大者�?

BBLQUERY30
#BBLQUERY指定DBBL�Ҏ(gu��)��有BBL�q�行状态检查的旉��间隔�Q�它也是以SCANUNIT��单位。如果DBBL的状态询问没有回�{�，该BBL��p��‘隔��Z��了。缺省值满��?SCANUNIT * BBLQUERY) �U��ؓ(f��) 300�U��?

BLOCKTIME6
#BLOCKTIME指定在阻塞队列中的被��d��h��的超时时�?包括客户端从tpinit到tpterm的等待时�?�Q�以SCANUNIT��单位。缺省值满��?SCANUNIT * BLOCKTIME) �U��ؓ(f��)60�U��?

*MACHINES
DEFAULT:
#该部分对各主��行描�q��?br />unicom2LMID=unicom2
APPDIR="/usr/tuxedo/apps/simpapp"
TUXCONFIG="/usr/tuxedo/apps/simpapp/tuxconfig"
TUXDIR="/usr/tuxedo"
UID=17
GID=26
MAXACCESSERS=100
unicom1LMID=unicom1
APPDIR="/usr/tuxedo/apps/simpapp"
TUXCONFIG="/usr/tuxedo/apps/simpapp/tuxconfig"
TUXDIR="/usr/tuxedo"
UID=17
GID=26
MAXWSCLIENTS=50

#unicom2, unicom1为网�l�主机名用hostname获得�?br />#LMID�Q�Logical Machines ID 为tuxedo对主机的内部逻辑命名�?br />#APPDIR要求攄��SERVER的可执行文�g�?br />#TUXCONFIG为全路径的二�q�制配置文�g�Q�要求和环境变量TUXCONFIG相同。对于master机tuxconfig文�g是由tmloadcf生成的，而非master机则是由tmboot启动后由tlisten从master��Z��拯��获得�?br />#TUXDIR为tuxedo安装目录�Q�要求和环境变量TUXDIR相同�?br />#MAXWSCLIENTS表示可连接client的最大个数�?

*GROUPS
#GROUP1为组名，LMID表示该组�q�行的主机，GRPNO为组��P��OPENINFO��l�通过XA打开RM(通常指数据库)的初始串�?

GROUP1 LMID=unicom2GRPNO=1 OPENINFO=NONE
GROUP2 LMID=unicom3GRPNO=2 OPENINFO=NONE

*SERVERS
#�q�里描述应用服务器。SRVGRP的该SERVER所属组名，SRVID为服务器ID��P��MIN表示该服务器CLOPT提供�q�行的相兛_��敎ͼ�要求是�?A -- �?�?可以在应用服务器的srvinit函数中获得这些参数�?br />DEFAULT:
CLOPT="-A"

BillServer SRVGRP=GROUP1 SRVID=1 MIN=2 MAX=4
RQADDR=QNAME REPLYQ=Y
CLOPT="-A -o ./out.log –r -e ./err.log --
-p [L][low_water][,[terminate_time]][:[high_water][,create_time]]
�? 果MAX>1�Q��ƈ且��用了MSSQ�Q�RQADDR�Q? RQPERM�Q�的Server可以配置-p来控制进�E�的增加和减��。控制算法如下：(x��)如果��h��队列中的��h��个数大于high_water 后超�q�create_time �U?��增加该服务的一个新�q�程�Q?如果��h��队列中的��h��个数��于low_water 后超�q�terminate_time �U? ��停止该服务的一个进�E�。low_water �~�省是��^均每个服务进�E�有一个请求消息或者workload 50�Q�high_water �~�省是��^均每个服务进�E�有两个��h��消息或者workload 100。create_time �~�省最��是50�U? and terminate_time �~�省最��是60�U��?br />注意�Q?br />使用TUXEDO的服务进�E�池�Ӟ��用户自己在程序中如果用alarm�Q�）�{�系�l�调用来停止�q�程是不起作用的�Q�但也不�?x��)报错�?br /> [L] 标记意味着增减服务�q�程��Z��负蝲而不是请求队列的长度。仅用于SHM模式下�ƈ且LDBAL=Y�Q�否则会(x��)报错 (LIBTUX_CAT:1542) �Q�服务进�E�也不会(x��)增减�?

WSLSRVGRP=GROUP2 SRVID=1
CLOPT="-A -- -n //130.36.0.103:8889 -m 3 -M 10 -x 10 -T 10"
#WSL 用于和client端进行连接�?n 表示出接入点为IP:PORT方式�Q?m –M 表示最��和最大启动多��个WSH和前端通讯�Q?x则表�C�Z��个WSH和几个client端连接�?T 10表示如果client端和server�q�接�?0分钟内没有交易请求则关闭�q�接�?

*SERVICES
#不要求将所有的service在这里描�q�ͼ�当某个service有特别参数时才在SERVICE节中说明�?br />TOUPPER
LOAD=60 // 负蝲�Q�当LDBAL=Y时有�?br />PRIO=80// 服务在请求队列中的优先��
TRANSTIME=120 // 交易旉��
SVCTIMEOUT=600// 服务��时旉��

*NETWORK
#NETWORK节对多机之间如何�q�行�|�络�q�接�q�行描述�?br />#cluster方式下要求先启动tlisten。事实上�Q�对于非master机启动应用服务器是由tlisten完成的�?br />#tlisten的启动方式�ؓ(f��)
#unicom1: tlisten –l //130.36.1.101:8891
#unicom2: tlisten –l //130.36.0.102:8891
#NADDR指定�|�络�q�接的接入点�?br />#NLSADDR则指定tlisten的接入点�?br />#BRIDGE则指TCP�q�接所用的讑֤�文�g�?

unicom2
NADDR="http://130.36.0.102:8899"
NLSADDR="http://130.36.0.102:8891"
BRIDGE="/dev/streams/xtiso/tcp"
unicom1
NADDR="http://130.36.0.101:8899"
NLSADDR="http://130.36.0.101:8891"
BRIDGE="/dev/streams/xtiso/tcp"

分类�ȝ��

TypeParameters requiring tuning
IdentificationTUXCONFIG, UID, GID, IPCKEY, DOMAINID
ThresholdsMAXACCESSERS, MAXSERVERS, MAXSERVICES, MAXGTT, MAXCONV, MAXBUFSTYPE, MAXWSCLIENTS
Time-outsSCANUNIT, SANITYSCAN, DBBLWAIT, BBLQUERY, BLOCKTIME
AvailabilityMASTER, MIGRATE, RESTART, GRACE, MAXGEN, RCMD
MachineTYPE, CMPLIMIT, NETLOAD, SPINCOUNT, TLOGDEVICE, PERM
NetworkNADDR, NLSADDR
ServersCLOPT, ENVFILE
ServicesLOAD, PRIO, BUFTYPE, SVCTIMEOUT
WorkstationsWSNADDR, WSRPLYMAX

三、数据库XA讄��
3.1 ORACLE XA
1.在附件中提供了rm文�g,另外��q�行oracle的demo文�g获得要连接的所有lib库的名称.然后��这些名�U�全部写在RM文�g�?
如：(x��) #Oracle 8i for NT
Oracle_XA;xaosw;%ORACLE_HOME%\RDBMS\XA\ORAXA8.LIB %ORACLE_HOME%\PRECOMP\LIB\MSVC\ORASQL8.LIB %ORACLE_HOME%\PRECOMP\LIB\MSVC\ORASQX8.LIB %ORACLE_HOME%\OCI\LIB\MSVC\OCI.LIB %ORACLE_HOME%\OCI\LIB\MSVC\OCIW32.LIB
#Oracle 8i for Unix
Oracle_XA:xaosw:-L${ORACLE_HOME}/lib -lclntsh

2.ubb 文�g�?*GROUP节加�?br /> TMSNAME=TMS_ORA
TMSCOUNT=3 OPENINFO="Oracle_XA:Oracle_XA+Acc=P/scott/tiger+SesTM=120+LogDir=.+SqlNet=abcde"
�? 体在Oracle联机文��Application Development->oracle8 Application Development's Guild->Oracle XA->Defining the xa_open String中提供了解释

3.在oracle用sys用户��d��sqlplus�Q?br />a)�q�行${ORACLE_HOME}/rdbms/Admin/xaview.sql,
b)grant select on v$xatrans$ to public;
c)grant select on dba_pending_transactions to scott;
d)commit;

4.�q�行 buildtms -o $(TUXDIR)/bin/TMS_ORA -r Oracle_XA
5. 在tpsvrinit()中EXEC SQL CONNECT ...�Ҏ(gu��)�� tpopen(), tpsrvdone()中EXEC SQL DISCONNECT...�Ҏ(gu��)��tpclose(); 实际可拷�?TUXDIR/apps/bankapp/appinit.c

6.需在ubb文�g中MACHINE节指定TLOGDEVICE,TLOGSIZE
�?TLOGDEVICE="/home/usr1/TLOGDEV"
TLOGSIZE=500

7.建立TLOG文�g直接拯��$TUXDIR/apps/bankapp/crtlog.sh.讑֮�相关的环境变量后�q�行该shell文�g.

8.启动事务用tpbegin(3,0),提交回滚用tpcommit/tpabort.

3.2 SYBASE XA
1.在RM文�g,�q�行sybase获得要连接的所有lib库的名称.然后��这些名�U�全部写在RM文�g�?#Sybase_11 for NT
SYBASE_XA_SERVER;sybase_xa_switch;C:\SYBASE_SERVER\lib\libxasrvlib.lib

2.ubbconfig 文�g中的 *GROUP�?
TMS_NAME=TMS_SYB TMSCOUNT=3 OPENINFO=" SYBASE_XA_SERVER: -Uuserid1 -Ppassword1 -Nconnection2 -Lxa_log -Tall "
具体察看Sybase文当中xa_open String中提供了解释

3.�q�行 buildtms -o $(TUXDIR)/bin/TMS_SYB -r SYBASE_XA_SERVER
4. 在tpsvrinit()中EXEC SQL CONNECT ...�Ҏ(gu��)�� tpopen, tpsrvdone()中EXEC SQL DISCONNECT...�Ҏ(gu��)��tpclose(); 实际可查�?TUXDIR/apps/bankapp/appinit.c
5.需在ubb文�g中MACHINE节指定TLOGDEVICE,TLOGSIZE
�?TLOGDEVICE="/home/usr1/TLOGDEV"
TLOGSIZE=500
6.建立TLOG文�g直接拯��$TUXDIR/apps/bankapp/crtlog.sh.讑֮�相关的环境变量后�q�行该shell文�g.
7.启动事务用tpbegin(3,0),提交回滚用tpcommit/tpabort.

3.3 INFORMIX XA
1. �q�行esql -lib获得要连接的所有lib库的名称.然后��这些名�U�全部加到RM文�g中INFORMIX-OnLine:infx_xa_switch:$ {INFORMIXDIR}/lib/esql/libinfxxa.a /usr/informix/lib/esql/libixos.a /usr/informix/lib/esql/libixgen.a /usr/informix/lib/esql/libixsql.a /usr/informix/lib/libixasf.a /usr/informix/lib/esql/libixos.a /usr/informix/lib/esql/libixgen.a /usr/informix/lib/esql/libixgls.a -lnsl_s -lm -lV3 -lcl -lsec /usr/informix/lib/esql/libixglx.a
2.ubbconfig 文�g�?br />*GROUP�?TMS_NAME=TMS_INFO TMSCOUNT=3 OPENINFO="INFORMIX-OnLine:test_tux"
具体察看Sybase文当中xa_open String中提供了解释
3.�q�行 buildtms -o $(TUXDIR)/bin/TMS_INFO -r INFORMIX-OnLine
4. 在tpsvrinit()中EXEC SQL CONNECT ...�Ҏ(gu��)�� tpopen, tpsrvdone()中EXEC SQL DISCONNECT...�Ҏ(gu��)��tpclose(); 实际可查�?TUXDIR/apps/bankapp/appinit.c
5.需在ubb文�g中MACHINE节指定TLOGDEVICE,TLOGSIZE
�?TLOGDEVICE="/home/usr1/TLOGDEV"
TLOGSIZE=500
6.建立TLOG文�g直接拯��$TUXDIR/apps/bankapp/crtlog.sh.讑֮�相关的环境变量后�q�行该shell文�g.
7.启动事务用tpbegin(3,0),提交回滚用tpcommit/tpabort.

四、Tuxedo多机方式配置要点
tuxedo多机方式配置有两个方�?br />4.1启动tlisten
tlisten在tuxedo启动时扮演控制者的角色,在非master��Z��由tlisten启动bbl和应用服务器,tlisten的启动方法�ؓ(f��)
tlisten -l //hostip:ipport
1�Q�注意这里的ipport必须和ubb文�g中NETWORK域的NLSADDR一�?最好都用IP地址�Q�以避免双方对同一机器名解释出不同的IP地址�?br />2�Q?tlisten必须在所有的机器上启�?启动后才能运行tmboot.��操作�pȝ��启动时就�q�行tlisten.
3�Q? 注意各个节点的tlisten都有PASSWORD�Q�存�?APPDIR%\.adm\tlisten.pw文�g下，如果那里没有�Q�就读TUXEDO�? TUXDIR%\udataobj\tlisten.pw文�g中的内容。各节点的tlisten password要保证绝对一��P��包括回�R�Q�）。否则会(x��)报错�Q�‘Security Violation’�?br />4.2 ubb文�g配置
对于多机模式一般就是指单一domain��理的多台机�?所有机器上仅需要一个ubb文�g,以下是ubb文�g的模�?br />*RESOURCES
IPCKEY80952
MAXACCESSERS40
MAXSERVERS35
MAXSERVICES75
MASTERSITE1,SITE2
OPTIONSLAN,MIGRATE // MIGRATE表示MASTER可以动态迁�U?br />MODELMP// 多机模式
*MACHINES
"PATRICK"LMID="site1"
APPDIR="D�Q?Bea/tuxedo/samples/atmi/simpapp"
TUXCONFIG="d:/Bea/tuxedo/samples/atmi/simpapp/tuxconfig"
TUXDIR=" d:/Bea /tuxedo"
UID=0
GID=0
TYPE="NT"
MAXWSCLIENTS=5
MAXACCESSERS=40

"test60"LMID="site2"
APPDIR="/bea/tuxedo/samples/atmi/simpapp"
TUXCONFIG="/bea/tuxedo/samples/atmi/simpapp/tuxconfig"
TUXDIR="/bea/tuxedo"
UID=1002
GID=101
TYPE="Sun"
MAXWSCLIENTS=15
MAXACCESSERS=100

*GROUPS
GROUP1 LMID=site1GRPNO=1OPENINFO=NONE
GROUP2 LMID=site2GRPNO=2OPENINFO=NONE

*SERVERS
DEFAULT:DEFAULT: RESTART=Y MAXGEN=5 REPLYQ=Y CLOPT="-A"

WSLSRVGRP=GROUP1 SRVID=20 CLOPT="-A -- -n //10.128.5.201:9009"
WSLSRVGRP=GROUP2 SRVID=10 CLOPT="-A -- -n //10.128.5.200:9009"
simpservSRVGRP=GROUP1 SRVID=3
simpservSRVGRP=GROUP2 SRVID=4

*SERVICES

*NETWORK
site1NADDR="http://10.128.5.201:6044"
NLSADDR="http://10.128.5.201:6045"

site2NADDR="http://10.128.5.200:6044"
NLSADDR="http://10.128.5.200:6045"
# BRIDGE="/dev/tcp"

4.3��理
只能在master��Z��q�行tmadmin�q�行��理。要获得�l�计信息在tmadmin中应�q�行default –m命��o(h��)�?br />$tmadmin
>default –m SITE1
>psr
>bbi

当MASTER��L��意外当机�Ӟ��TUXEDO仍可以正常运行，可以在backup的节点上手工做MASTER的动态迁�U�，在当前的backup节点�?DBBL充当MASTER�?br />$tmadmin
>m

Windows NT/2000下要注意的问题：(x��)
1.�׃��NT机器上MAXACCESSORS受IPC的限刉��常较小,因此��在MACHINES部分单独讄��MAXACCESSORS.
2.在MACHINES部分要单独设�|�UID=0和GID=0
3.和其他类型的CPU机器互连�?在MACHINES部分一定要指定不同的TYPE.否则��提�C�tlisten版本不匹配�?br />TUXEDO在SERVER和CLIENT之间�q�行数据交换�~�省�q�行数据��译,但一个domain的server之间�~�省不进行数据翻�?
5.有时LANG环境变量无法改变为C, 可以�?%TUXDIR%\locale创徏文�g�?mkdir %LANG%.
6.RM文�g使用中发现有效的RM后一定要有回�?否则��报RM不存�?

五、用JOLT�q�接Tuxedo和W(xu��)eblogic
5.1在Tuxedo上安装、配�|�JOLT Server
1 �?安装JOLT Server
2 -- set your environment
set TUXDIR=d:\bea\tuxedo
set JOLTDIR=%TUXDIR%\udataobj\jolt
set APPDIR=%TUXDIR%\samples\atmi\simpapp
set PATH=%TUXDIR%\bin;%JOLTDIR%\bin;%APPDIR%;%PATH%
set NLSPATH=%TUXDIR%\locale\C
set TUXCONFIG=%APPDIR%\tuxconfig

3 �?added in UBBconfig file
JSLSRVGRP=GROUP1 SRVID=6 CLOPT="-A -- -n //10.128.5.112:9001"JREPSVRSRVGRP=GROUP1 SRVID=7 CLOPT="-A -- -W -P d:\Bea\tuxedo\udataobj\jolt\repository\jrepository"JREPSVRSRVGRP=GROUP1 SRVID=8 CLOPT="-A -- -P d:\Bea\tuxedo\udataobj\jolt\repository\jrepository"

5.2 配置Weblogic Server 6.x
1,Download the Jolt client package for WLS from developer.bea.com, unzip it and copy the jar file to %WL_HOME%\lib. Then add the jar files into your Weblogic domain environment file:
classpath=%classpath%;%WL_HOME%\lib\jolt.jar;%WL_HOME%\lib\joltweblogic.jar

2,Config Jolt pool manager startup class in Weblogic
a,start Weblogic and access the console
b,create Startup class and Shutdown class
in console:Deployments->Startup & Shutdown,right click
select create a new StartUp class...:
name:demojoltpoolStartup
classname:bea.jolt.pool.servlet.weblogic.PoolManagerStartUp

3,Create a jolt pool
in console:Services->Jolt,right click
Select the panel:Configuration
in TAB General
name:demojoltpool
Minimum Pool Size:1
Maximum Pool Size:3
Click the button "Create"
in TAB address
Primary Address://hostname:port
Failover Address://hostname:port
Click the button "Apply"
Select Targets:
in Listbox Available:
select your server add into the listbox Chosen
Click the button "Apply"

4. Restart your Weblogic

5.3 Example setup
1.Run %WL_HOME%\config\example\setExampleEnv.cmd,
2.compile the SimpAppServlet by:
javac -d %EX_WEBAPP_CLASSES% SimpAppServlet.java
3.Edit WL_HOME%\config\examples\applications\examplesWebApp\WEB-INF\web.xml
add the servlet description:
JoltServlet examples.jolt.servlet.simpapp.SimpAppServlet JoltServlet /joltservlet

4.Edit a html and put it to %WL_HOME%\config\examples\applications\examplesWebApp
内容包含调用JoltServlet
Type some text here and click the Post button:

5.Goto %WL_HOME%\config\example, start the examples domain,
6.Access http://localhost:7001/examplesWebApp/jolt.html

六、TUXEDO动态配�|?br />TUXEDO 的动态配�|�可以通过tmadmin和tmconfig两个命��o(h��)行工具实��C��同��别的配置修改。tmadmin的作用主要是监控TUXEDO的运行，可以�? �Ҏ(gu��)��务的参数�Q�而tmconfig功能更强大，可以在线修改当前TUXEDO的系�l�UBB配置�Q�即通过MIB修改用UBBCONFIG生成的二�q�制 TUXCONFIG在内存的拯��?br />6.1 用tmadmin修改配置
�q�入tmadmin后用命��o(h��)help可以列出所有命令�?

6.2 用tmconfig更改TUXCONFIG�Q�UBBCONFIG�Q?br />tmconfig工具实际上遍历TUXCONFIG的内容�ƈ通过MIB API修改光��|�。要正确�q�行tmconfig�Q�徏议设�|�以下环境变量：(x��)
TUXDIR=/usr/tuxedo
TUXCONFIG=/usr/app/tuxconfig
EDITOR=vi

主要的界面如下：(x��)

$ tmconfig
Section: 1) RESOURCES, 2) MACHINES, 3) GROUPS 4) SERVERS
5)SERVICES 6) NETWORK 7) ROUTING q) QUIT 9) WSL
10) NETGROUPS 11) NETMAPS 12) INTERFACES [1]:

Operation: 1) FIRST 2) NEXT 3) RETRIEVE 4) ADD 5) UPDATE
6) CLEAR BUFFER 7) QUIT [1]: 4
Enter editor to add/modify fields [n]?
Perform operation [y]?

1. 用tmconfig增加��C��?

1.�q�入tmconfig后，选择2�Q�MACHINES��?br />2.然后可以先选择3�Q�RETRIEVE看看当前的配�|�，�~�省是第一个MACHINE的配�|?br />3.通过选择2�Q�NEXT可以一直向后搜索MACHINE配置�Q�直到空记录为止�?br />4.选择4�Q�ADD
Enter editor to add/modify fields [n]? y
5.�q�入vi�~�辑状态，可以按照一定格式增加配�|�。格式�ؓ(f��)�Q?br />MIB域名[tab]�?br />6.增加MACHINE必须加入以下的域�Q?br />oTA_TUXCONFIG
oTA_TUXDIR
oTA_APPDIR
oTA_TLOGDEVICE
oTA_TLOGSIZE
oTA_PMID
oTA_LMID
oTA_TYPE
例：(x��)
TA_TUXCONFIG /usr/apps/bank/tuxconfig
TA_TUXDIR /usr/tuxroot
TA_APPDIR /usr/apps/bank
TA_TLOGDEVICE /usr/apps/bank/TLOG
TA_ULOGPFX /usr/apps/bank/ULOG
TA_ENVFILE /usr/apps/bank/ENVFILE
TA_TLOGSIZE 150
TA_PMID SERVER109
TA_LMID SITE1
TA_TYPE Sun
7.存盘退出vi�Q�执行操作即可�?
8.�Ȁ�z�L��增的MACHINE�Q?重新选择2�Q�MACHINES �?gt; 5)UPDATE
9.�q�入vi后查找TA_STATE,��其��g��NEW改�ؓ(f��)ACTIVE
10.存盘退出vi�q�执行操作�?

2. 用tmconfig增加新Server�q�程

1.�q�入tmconfig后，选择2�Q�SERVER��?br />2.可以先选择3�Q�RETRIEVE看看当前的配�|�，�~�省是第一个SERVER的配�|?br />3.通过选择2�Q�NEXT可以一直向后搜索SERVER配置�Q�直到空记录为止�?br />4.选择4�Q�ADD
Enter editor to add/modify fields [n]? y
5.�q�入vi�~�辑状态，可以按照一定格式增加配�|�。格式�ؓ(f��)�Q�MIB域名[tab]�?br />6.增加MACHINE必须加入以下的域�Q?br />oTA_SERVERNAME
oTA_SRVGRP
oTA_SRVID
例：(x��)
TA_SERVERNAME /usr/apps/bank/teller_server
TA_SRVGRP GROUP1
TA_SRVID 15
7�Q�存盘退出vi�Q�执行操作即可�?

七、系�l�核心参数参�?br />Message Queues Parameters

·MSGMNI: Total Number of Queues (Use this formula: Add MAXACCESSERS + (No. Servers with Reply Queues) - (No. Servers in MSSQ Set) + (No. MSSQ Sets) + 7) to determine the appropriate value
·MSGMAP: Number of entries in control map used to manage message segments (Not defined in NT). Set to 2 * MSGMNI
·MSGMAX: Maximum message size in bytes. Set to the largest message size or 75% of the queue size (whichever is bigger)
·MSGMNB: This is the queue size itself (64K, 128K, etc.)
·MSGSSZ: Size of a segment in bytes (Not defined in NT). The value of MSGSSZ should be such that a multiple of MSGSSZ is equal to the size (including the BEA TUXEDO System header) of the most commonly sent message. Usually set to 16, 32, or 64.
·MSGTQL: Total Number of In-Flight messages in the system at once
·MSGSEG: Number of message segments in the system (Not defined in NT). You need to find out the queue space of your machine and then the following formula applies: MSGSEG * MSGSSZ = Machine Queue Space Size (note it will swap)
Semaphores Parameters

·SEMMNS: Maximum number of semaphores in the system. The minimum requirement for SEMMNS is MAXACCESSERS - MAXWSCLIENTS + 13 (local clients and all servers)
·SEMMNI: Maximum number of active semaphore sets. For small apps,(100 to 500 servers),10 sets are usually sufficient. For large apps, (>500 servers) 32-64 sets are usually sufficient (do a tmloadcf -c to see which is the best)
·SEMMSL: Maximum number of semaphores per semaphore sets (Not defined in NT). Use the formula: SEMMNS = SEMMNI * SEMMSL
·SEMMAP: Size of the control map used to control semaphore sets (Not defined in NT). Set to SEMMNI
·SEMMNU: Number of undo structures in the system. Set to SEMMNS
·SEMUME: Maximum number of undo entries per undo structure (Not defined in NT). Set to SEMMNS

Shared Memory Parameters

·SHMMAX: Maximum shared memory segment size in bytes. Bulletin Board Size (must be greater than 1,400,000). Largest BB today is approx. 5 MB (this parameter is normally set much higher for the database, so use their rules)
·SHMSEG: Maximum number of segments one process can attach to (for a busy application you need to set this from 32-64)
·SHMMNI: Maximum number of shared memory identifiers in the system. Normally the default of 100 is acceptable (unless more than 100 entities plan on allocating shared memory)
·SHMMIN: Minimum shared memory segment size in bytes. MUST be set to 1.

Other Tunables

·ULIMIT: Maximum file size. ULIMIT needs to be large enough so that you can install BEA TUXEDO and build servers. 4 megabytes recommended.
·MAXUP: Maximum number of processes per non-super user. The BEA TUXEDO system processes--servers and administrative processes—run with the UID specified in the application's UBBCONFIG file. MAXUP needs to be large enough to allow all of these processes to run.
·NOFILES: Maximum number of open files per process. A BEA TUXEDO server requires a minimum of four file descriptors.
·NPROC: Maximum number of processes (systemwide).
·NREGION: Number of region table entries to allocate. Most processes have three regions: text, data, and stack. Additional regions are needed for each shared memory segment and shared library (text and data) attached. However, the region table entry for the text of a ``shared text'' program is shared by all processes executing that program. Each shared memory segment attached to one or more processes uses another region table entry.
·NUMTIM: Maximum number of STREAMS modules that can be pushed by the Transport Layer Interface (TLI). A typical default value is 16; you should have it set to at least 256.
·NUMTRW: The number of TLI read/write structures to allocate in kernel data space. A typical default value is 16; you should have it set to at least 256.

Tuxedo�pȝ��q�_��的调试参数及(qi��ng)步骤
1�Q�配�|�MAXSERVERS、MAXSERVICES两个参数�Q�看是否满��ubbfile文�g的配�|�的服务数和服务参数的个数。Tmadmin——bbs�Q�看里面的参��C��数�?br />2�Q�数据库的可以连接数的大��是否满��ubbfile文�g里面同一个数据库�q�接得servers的数目。参照xa_NULL*.trc文�g的错误提�C��?br />3�Q�用命��o(h��)tmloadcf –c ubbfile看tuxedo的进�E�所需要的�׃�n内存配置。然后修改系�l�的�׃�n内存的配�|�。除了AIX�q�_��外，�pȝ��的共享内存参数——set shmsys:shminfo_shmmin要设�|��ؓ(f��)1�?br />4�Q�Tmunloadcf 看现在运行的TUXEDO环境�?br />5�Q�Tmadmin——crdl -b -z 创徏日志文�g�?br />6�Q�TUXEDO环境的设�|�顺序。Tuxconfig——tmadmin——TLOG�Q?br />

-- 作者：(x��) whiteclude
-- 发布旉��Q?2002/07/27 05:53pm

TUXEDO与ORACLE数据库的互连

(来源�Q�http://www.ccw.com.cn)

前言
�? 银行、电(sh��)信、金融等行业的大型计��机应用�pȝ��中，中间件的使用日益普及(qi��ng)�Q�中间�g已与操作�pȝ��、数据库�q�列��Z��大基��软�g。BEA Tuxedo作�ؓ(f��)最优秀的中间�g产品�Q�在我国的很多行业中�q�泛使用�Q�本文通过一个简单的例子介绍如何在TUXEDO中访问ORACLE数据库�?
�? 两层的C/S�l�构中，客户端直接访问数据库�Q�当采用TUXEDO中间件后�Q��Ş成三层结构。这�Ӟ��客户端不直接讉K��数据库，而是改�ؓ(f��)调用中间件TUXEDO 服务端上的服务，由TUXEDO服务端访问数据库�Q��ƈ把结果返回给客户端。TUXEDO服务端可以和ORACLE在同一台服务器上，也可以在不同的机�? 上，如果在不同的机器上，在TUXEDO的服务端所在的机器要安装一个ORACLE的客��L(f��ng)��?
TUXEDO服务端与ORACLE数据库连接有两种方式�Q?
1、不通过XA接口直接互连。适用于整个系�l�只有一个数据库的情��c(di��n)�?
2、通过XA接口互连�Q�对整个�pȝ��有一个数据库或多个数据库都适用�Q�徏议采用，本文介绍�q�种互连的配�|�方法�?
�pȝ��说明
TUXEDO版本:7.1 安装目录 d:\tuxedo71
ORACLE版本:8.1.5 安装目录 d:\ora81
操作�pȝ��Q?win2000
配置的步�?
一、ORACLE的的配置
1�Q�用internal用户�Q�缺省的口��o(h��)是oracle�Q�进入SQLPLUS
C:\>sqlplus internal/oracle
2�Q�运行ORACLE的安装�\径下�?rdbms/admin/xaview.sql
SQL> @d:\ora81\rdbms\admin\xaview.sql
3�Q�授�?
SQL>grant select on v$xatrans$ to public with grant option;
SQL>grant select on v$pending_xatrans$ to public with grant option;
4. 用system用户�Q�缺省的口��o(h��)是manager�Q�连接�ƈ授权
SQL>connect system/manager
SQL>grant select any table to public;
二、TUXEDO的配�|?
1�Q�修改TUXEDO安装路径的udataobj目录下的RM文�g�Q�把以Oracle_XA:xaosw:开头的一行用#注释掉，�q�加入一行：(x��)
Oracle_XA;xaosw;d:\ora81\rdbms\xa\oraxa8.lib d:\ora81\precomp\lib\msvc\orasql8.lib
如果是在UNIX环境下，则�ؓ(f��)�Q?
Oracle_XA:xaosw:-L${ORACLE_HOME}/lib -lclntsh
2. 在TUXEDO用户下创建TMS文�g:TMS_ORA8i�Q�TUXEDO通过TMS_ORA8i与ORACLE数据库采用XA协议�q�行通讯
buildtms -o d:\tuxedo71\bin\TMS_ORA8i -r Oracle_XA

注意:如果TUXEDO 服务端与ORACLE数据库不在同一台服务器上，可能�?x��)提�C�找不到库文件oraxa8.lib和orasql8.lib�Q�可到ORACLE数据库的服务端相应目录下把这两个文�g拷到当前机器ORACLE的客��L(f��ng)��下的对应目录下�?
3. 配置 UBBCONFIG
�Q?�Q�在*MACHINES节中增加�Q?
TLOGDEVICE = "/home/oracle/temp/simpdb/TLOG"
TLOGNAME=TLOG
TLOGSIZE=200
�Q?�Q�改*GROUPS节的配置为：(x��)(scott/tiger为本数据库所采用的用户及(qi��ng)口��o(h��)�Q�可�Ҏ(gu��)��需要更�?
*GROUPS
GROUP1 LMID=simple GRPNO=1
OPENINFO="Oracle_XA:Oracle_XA+Acc=P/scott/tiger+SesTm=600+MaxCur=5+LogDir=."
TMSNAME="TMS_ORA8i" TMSCOUNT=2
修改后的配置文�gubb内容如下�Q�用tmloadcf -y ubb重新生成tuxconfig
IPCKEY 123456
DOMAINID simpapp
MASTER simple
MAXACCESSERS 100
MAXSERVERS 50
MAXSERVICES 100
MODEL SHM
LDBAL N

*MACHINES
server LMID=simple
APPDIR="d:\test"
TUXCONFIG="d:\test\tuxconfig"
TUXDIR="d:\tux71"
TLOGDEVICE = "d:\test\TLOG"
TLOGNAME=TLOG
TLOGSIZE=100
*GROUPS
GROUP1 LMID=simple GRPNO=1
OPENINFO="Oracle_XA:Oracle_XA+Acc=P/scott/tiger+SesTm=600+MaxCur=5+LogDir=."
TMSNAME="TMS_ORA8i" TMSCOUNT=2
*SERVERS
DEFAULT:
CLOPT="-A"
test SRVGRP=GROUP1 SRVID=1
*SERVICES

4.重命名下列文�Ӟ��因�ؓ(f��)下列文�g名与ORACLE带的文�g名有冲突�Q�所以要改名�?
�Q?�Q�TUXEDO安装路径include目录下的下面文�g
把sqlca.h 改名�?sqlca.h.bbb
把sqlcode.h 改名�?sqlcode.h.bbb
把sqlda.h 改名�?sqlda.h.bbb
�Q?�Q�重命名TUXEDO安装路径lib目录下的下面文�g
把libsql.lib 改名�?libsql.lib.bbb
5.用TMADMIN创徏TLOG文�g�Q�TUXEDO用一个文件TLOG记录�Ҏ(gu��)��据库操作的日志。用于协调分布式数据库的提交与回滚�?
D:\>tmadmin
>crdl -b 500 -z d:\test\TLOG
>crlog -m simple
>q

三、服务端的程序：(x��)test.pc
功能:�Ҏ(gu��)��客户端传的EMPNO到表EMP中取ENAME的��|��q�把它返回给客户�?
#include
#include
#include

EXEC SQL INCLUDE sqlca;

EXEC SQL BEGIN DECLARE SECTION;
long al_empno=0;
char ac_ename[11]="";

EXEC SQL VAR ac_ename IS STRING(11);
EXEC SQL END DECLARE SECTION;

TEST(TPSVCINFO *rqst)
{

/*接收客户端来的数�?/
al_empno = (FBFR32 *)rqst->data;

EXEC SQL select ename into :ac_ename from EMP where empno=:al_empno;
if(sqlca.sqlcode!=0)
{
userlog("select from EMP failure�Q�sqlcode=%ld�Q?sqlerr=%s\n"�Q�sqlca.sqlcode�Q?char *)sqlca.sqlerrm.sqlerrmc);
strcpy(rqst->data�Q�sqlca.sqlerrm.sqlerrmc);
tpreturn( TPFAIL�Q?0�Q?rqst->data�Q?0�Q?0 );
}
/*把取出的�l�果�q�回�l�客��L(f��ng)��*/
strcpy(rqst->data�Q�ac_ename);
tpreturn( TPSUCCESS�Q?0�Q?rqst->data�Q?0�Q?0 );
}
四、编写客��L(f��ng)��E�序: testcli.c
功能:调用TUXEDO服务端的服务TEST�Q�取EMPNO=1000所对应的ENAME的��|��q�显�C�出�?
#include
#include "atmi.h"

main(argc�Q?argv)
{
long reqlen=1024;
char *reqbuf;

/* 与TUXEDO服务端徏立连�?*/
if (tpinit((TPINIT *) NULL) == -1)
{
(void) fprintf(stderr�Q?"Tpinit failed\n");
exit(1);
}
/* 分配发送缓冲区*/
reqbuf = (char *)tpalloc("STRING"�Q�NULL�Q�reqlen);
if ( reqbuf == (char *)NULL)
{
printf("tpalloc failed\n");
tpterm();
}
strcpy(reqbuf�Q?1000");
/*调用TUXEDO的服务TEST*/
if (tpcall("TEST"�Q?(char *)reqbuf�Q?0L�Q?(char **)&reqbuf�Q?(long *)&reqlen�Q?0< 0 )
{
printf("tpcall failed�Q�tperrno=%ld�Q�tperrtext=%s\n"�Q�tperrno�Q�tpstrerror(tperrno));
tpfree(reqbuf);
tpterm();
exit(1);
}
printf("name=%s\n"�Q�reqbuf);
tpfree(reqbuf);
tpterm();
return(0);
}
五、编译服务端�E�序
1.用ORACLE的PROC把test.pc 文�g预编译成test.c文�g
d:\test> proc test.pc include=%TUXDIR%/include
2.用buildserver把test.c�~�译成可执行文�g�Q�注�?r 后带的Oracle_XA 与RM文�g中的一致�?
d:\test> buildserver -o simpserv -f simpserver.c -r Oracle_XA -s TEST
六、编译客��L(f��ng)��E�序
d:\test> buildclient -o testcli -f testcli.c
七、用 tmboot –y 启动TUXEDO
�? 能看到所有的SERVER都启动成功。这�Ӟ��我们的服务端�E�序test �?x��)自动与ORACLE数据库徏立连接，�q�一直保持这个连接，直到TUXEDO�pȝ��或ORACLE数据库关闭。所以在我们的程序test.pc中看不到与数据库�q�接的语句，因�ؓ(f��)现在与数据库的连接由TUXEDO自动��理。如果TMS_ORA8i启动��p�|�?x��)在当前目录生成一�?.trc文�g�Q�记录失败的原因�Q? 同时TUXEDO的ULOG文�g中也�?x��)有一些错误信息。可参考这些错误信息进行错误分析�?
d:\test> tmboot -y
exec TMS_ORA8i-A :
process id=1072 ... Started.
exec TMS_ORA8i-A :
process id=528 ... Started.
exec test -A :
process id=876 ... Started.
八、运行客��L(f��ng)��E�序
�q�行后应能看到服务端�q�回的结果�?
d:\test> testcli
name=bill
到此�Q�整个配�|�过�E�就大功告成了。ORACLE的其他版本的配置�?qi��ng)在其他操作�pȝ��上的配置基本与本文所�q�差不多�Q�差别主要在RM文�g中所�q�的库文件可能会(x��)不样�?

Vincent Chen 2006-09-04 23:23 发表评论

Mon, 04 Sep 2006 15:16:00 GMT

TUXEDO在文件传输中的应�?/p>

1 引言

　　�q�几�q�来�Q�以交易中间件�ؓ(f��)框架基础的三层客��h��/服务器模式已被广泛证实�ؓ(f��)建立开攑ּ�关键业务应用�pȝ��的最佳环境�?/p>

　　TUXEDO是美国BEA公司的一�U�交易中间�g产品�Q�它在银行、电(sh��)信、邮�ѝ��金融证券等大规模关键事务处理领域中有着�q�泛的应用。它能够�? C/S环境下整合各�U�异构��^収ͼ�通过联机事务处理机制�Q�保证交易的完整性和数据的一致性。BEA TUXEDO是在企业、Internet �q�样的分布式�q�算环境中开发和��理三层�l�构的客�?服务器型关键��d��应用�pȝ��的强有力工具�?/p>

　　BEA TUXEDO 采用三层�l�构的客��h��/服务器模式组件��Y件模�?该结构利用交易中间�g��应用的业务逻辑、表�C�逻辑和数据分��Z��个不同的处理层：(x��)客户为第一表示逻辑层，�? 现用户交互和数据表示�Q�第二层的逻辑业务层�ؓ(f��)应用的主体，负责业务的逻辑处理�Q�第三层数据层负责对数据库的��索、读取和更新�{�操作。交易中间�g作�ؓ(f��)构造三层结构应用系�l�的基础�q�_��Q�提供了两个主要功能�Q�负责客��h��和服务器间的联接和通讯�Q�提供一个三层结构应用开发和�q�行的��^台。由此可见，交易中间件提供了一个基��的框架去帮助你徏立、运行和��理一个三层客��h��/服务器模式的应用�Q��你不需要从零做��P��大大�~�短了应用开发的旉��Q�提高了应用开发的成功率�?/p>

　　本文以应用TUXEDO的同步调用tpcall方式和FML�~�程方式��Z��Q�介�l�了在Windows客户端和Unix服务器之间完成文件传输的�? 法。客��L(f��ng)��调用VC++制作的传输文件的tuxedo动态链接库�Q�实现Windows客户端与Unix服务器端传输文�g�Q�包括上传和下蝲文�g两种方式�Q�的实现�Ҏ(gu��)��?/p>

2 客户端应用TUXEDO实现文�g传输�Ҏ(gu��)��

　　在客��L(f��ng)��Q�首先设�|�客��L(f��ng)��与服务器端在文�g传输中文件块的大��、文件的块标识等基本信息�Q�将字节数比较大的文件分为很多小块，利用TUXEDO 的同步调用tpcall方式循环调用后台的文件处理服务，��字节数较大的文件按着块的大小分多�ơ传输到UNIX后台。下面以下蝲文�g��Z��讲解使用 tuxedo同步调用tpcall方式完成文�g传输的例子�?/p>

　　首先利用TUXEDO的tpalloc甌��需要��用的发送和接收�~�存�Q��用Fchg32函数在缓存中攑օ�服务器端需要的域��|��(x��)文�g块的大小、文件的标识�{�基本信息�?/p>

SndBuf = (FBFR32 *)tpalloc("FML32", NULL, 1024);　/* 甌��发送的�~�存 */
iRet = Fchg32(SndBuf,BLOCKSIZE,0,(char *)&lBlockSize,0);　/* 讄��文�g块的大小 */
讄��完毕后，开始��用同步tpcall调用UNIX后台文�g处理FTPSVR服务�?
/* 客户端同步调用UNIX�q�_��文�g处理服务*/
iRet = tpcall("FTPSVR",(char *)SndBuf,0L,(char **)&RcvBuf,(long *)&len,0L);
iRet = Fget32(RcvBuf, FILELEN, 0, (char *)&lFileLen, 0);/* 接收文�g长度*/
接收文�g�q�将�W�一块数据写入文�?br />iRet = Fget32(RcvBuf, FILEDATA, 0, pszFileBuf, (FLDLEN32 *)&lFileDataLen);
fp = fopen(pszCltFileName, "wb+");　/* 创徏文�g*/
lBlkLen = fwrite(pszFileBuf,1,lFileDataLen,fp);　/* ��接收第一块数据写入文�?/
同时计算需要调用下载文件服务的�ơ数�Q�多�ơ调用文件服务，��后�l�文件下载到客户端�?br />lBlkNum = (lFileLen -1)/lBlockSize +1 ;
for(i=2; i…�?br />iRet = tpcall("FTPSVR",(char *)SndBuf,0L,(char **)&RcvBuf,(long *)&len,0L);
Fget32(RcvBuf, FILEDATA, 0, pszFileBuf, (FLDLEN32 *)&lBlockSize);
lBlkLen = fwrite(pszFileBuf, 1, lBlockSize, fp);
…�?br />�?/p>

3 UNIX服务器端实现�Ҏ(gu��)��

　　在Unix服务器端�Q�接收客��L(f��ng)��发送过来的�~�存内容�Q�如�Q�文件块的大��、文件块内容、文件块标识�{�。根据文件块的标识移动文件指针来写文�Ӟ��? �ơ文件指针移动的大小由文件块的大��决定，�q�将��d��的文件块的内�Ҏ(gu��)��入输出缓存中�Q��ƈ�q�回�l�客��L(f��ng)��。Unix服务器端�E�序例子说明如下�Q?/p>

FTPSVR(TPSVCINFO *rqst)
{
………�?br />RcvBuf = (FBFR32 *)rqst->data; /*指向接收客户端的�~�存*/
iRet = Fget32(RcvBuf, BLOCKID, 0, (char *)&lBlockID, 0); /* 接收client发送的块标�?/
fp = fopen(pszSvrFileName, "rb");　　/* 打开文�g�Q�准备读�?/
(fseek(fp, (lBlockID-1)*lBlockSize, 0)!=0)　 /* �Ҏ(gu��)��块标识移动文件指�?/
lReadLen=fread(pszFileBuf, 1, lBlockSize, fp);　 /* ��d��文�g�?/
Fchg32(SndBuf, FILEDATA, 0, pszFileBuf, (FLDLEN32 )lReadLen); /* ��文件块的内�Ҏ(gu��)��式放入tuxedo甌��的缓存中*/
tpreturn(TPSUCCESS, 0, (char *)SndBuf, 0L, 0);　 /* ��输出缓存返回给客户�?/
�?

4 WINDOWS�q�_��文�g传输的设�?/p>

4.1 WINDOWS客户端动态链接库的实�?/p>

　　使用PowerBuilder、Delphi、VB�{��Y件不能直接调�? C语言源代码，它们只能调用动态链接库文�g。下面我们讲�q�如何��用VC++6.0��Windows客户端的文�g传输的C、TUXEDO代码制作成动态链�? 库供Power Builder、Delphi、VB�{�程序调用�?br />　使用VC++可以制作三种DLL�Q�分别是
　(1)Non-MFC Dlls
　(2).Regular Dlls
　(3)Extension Dlls
　　Non-MFC DLL:指的是不用MFC的类库结构，直接用C语言写的DLL�Q�其输出的函��C��般用的是标准C接口�Q��ƈ能被非MFC或MFC�~�写的应用程序所调用。因为我们不使用MFC�c�d��Q�所以采用Non-MFC Dlls�?

　　每一个DLL必须有一个入口点�Q�就象用C�~�写的应用程序，必须有一个main函数一�? DllMain��是一个缺省的函数入口�?/p>

　　创徏一个动态链接库�Q�选择File->New菜单�Q�弹出New对话框。在Projects标签��下�Q�选择"Win32 Dynamic-Link Library"。Visual C++��׃��(x��)创徏动态链接库所需的工�E�文件�?br />创徏ftpfile.def文�g�Q�这个文件记录了可被外部应用�E�序使用的DLL库函数名字。这些名字信息和对应的函��C��|�的信息��被�~�译�q�动态链接库文�g中，然后应用�E�序�Ҏ(gu��)��函数名字和函��C��|�对照表来找到对应的函数。ftpfile.def内容如下�Q?/p>

LIBRARY "ftpfile"
EXPORTS
ftpfile; /*与C代码中的函数名称相同*/
��ftpfile.def�? 源程序ftpfile.cpp、头文�gpublic.h和ftpfld.h、tuxedo库文件wtuxws32.lib和libwsc.lib加入到工 �E�中。选择Project->add to project�Q?gt;files.然后开始编译动态链接库生成ftpfile.dll�?br />代码样例如下�Q?br />BOOL WINAPI DllMain( HMODULE hModule, DWORD dwReason, LPVOID lpvReserved )
/* 动态链接库函数入口*/
{
return TRUE;
}
LRESULT WINAPI ftpfile(char* CltFileName,char* SvrFileName,long lBlockSize,long lOptFlag) /* 动态链接库函数��M��*/
{
FBFR32 *RcvBuf,*SndBuf; /*变量声明*/
int iRet;
long i,lBlkLen,len,lFileLen,lBlkNum;
………�?br />/* 动态链接库�E�序��M��*/
SndBuf = (FBFR32 *)tpalloc("FML32", NULL, MAXBUFLEN); /*甌��发送缓�?/
if (SndBuf == NULL)
{
userlog("tpalloc sndbuf error errno=[%d] err=[%s]",tpstrerror(tperrno));
tpterm();
return TPALLOCERR;
}
RcvBuf = (FBFR32 *)tpalloc("FML32", NULL, MAXBUFLEN);/*甌��接收�~�存*/
iRet = Fchg32(SndBuf,BLOCKSIZE,0,(char *)&lBlockSize,0); /*把块大小攑օ�发送缓�?/
if (iRet <0){ /*错误处理*/
tpfree((char *)SndBuf);
tpfree((char *)RcvBuf);
tpterm();
return FCHGERR;
}
iRet = Fchg32(SndBuf,OPTFLAG,0,(char *)&lOptFlag,0);
…………………………�?br />}/* �E�序��M��l�束*/

4.2 WINDOWS客户端动态链接库的调�?/p>

　　以Power Builder7.0��Z��Q�讲�q�如何在Power Builder中调用文件传输的客户端动态链接库�?/p>

　　首先�Q�在Power Builder声明该函敎ͼ�声明如下�Q?br />Function Integer ftpfile(string CltFileName,string SvrFileName,long lBlockSize,long lOptFlag) LIBRARY "ftpfile.dll"
然后�Q�在�E�序中就可以应用了。示例如下：(x��)
string CltFileName
string SvrFileName
long lBlockSize
long lOptFlag /*讄��文�g上传或下载标�?/
integer iRet

CltFileName="..\data\report.txt"
SvrFileName="../up/form.txt"
LBlockSize=1024
LOptFlag=1
IRet = ftpfile(CltFileName,SvrFileName,lBlockSize,lOptFlag)
If (iret< 0){
messagebox('�pȝ��提示','调用ftpfile函数错误')
return
}

5 �l�束�?/p>

　　本文通过分析TUXEDO交易中间件的同步调用TPCALL和FML�~�程方式�Q�描�q�C��在Windows和UNIX�q�_��之间如何完成文�g传输的方法，概述了Windows�q�_��如何制作和调用动态链接库�?/p>

Vincent Chen 2006-09-04 23:16 发表评论

TUXEDO函数说明

Mon, 04 Sep 2006 15:01:00 GMT

摘要: TUXEDO函数说明 -攉��整理 ... 阅读全文

Vincent Chen 2006-09-04 23:01 发表评论