有谁用过TUXEDO + PB + oracle 开发过三层应用？很急

luckysxn 2003-03-11 10:52:34

如题

...全文

53 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

wkliangsdqd 2003-09-23

打赏
举报

楼上的可以参考

ss14149062 2003-06-30

打赏
举报

声明例子：
Function Integer tpinit (Long TPINFO ) LIBRARY “wtuxws32.dll“
Function Integer tpterm () LIBRARY “wtuxws32.dll“
Function Integer tpcall (String SVCNAME , Long IDATA , Long ILEN, ref Long ODATA ,ref Long OLEN , Long flags ) LIBRARY “wtuxws32.dll“
Function Integer tpacall (String SVCNAME , Long IDATA , Long ILEN , Long flags ) LIBRARY “wtuxws32.dll“
Function Long tpalloc (String BUFTYPE , String SUBTYPE , Long BUFSIZE ) LIBRARY “wtuxws32.dll“
Function Long tprealloc (Long buffer , Long BUFSIZE ) LIBRARY “wtuxws32.dll“
Subroutine tpfree (Long buffer ) LIBRARY “wtuxws32.dll“
Function integer gettperrno() library “wtuxws32.dll“
Function integer getFerror() library “wtuxws32.dll“
Function Integer Fchg32( Long RCVBUF,long FLDID,long OCC,ref String value,ref long LEN ) LIBRARY “wtuxws32.dll“
Function integer Fget32( Long RCVBUF,long FLDID,long OCC,ref String value,ref long LEN) library“wtuxws32.dll“
Function integer Foccur32( Long fbfr,long FLDID) library“wtuxws32.dll“

程序中调用tuxedo例子：

tpinfo=tpalloc(“TPINIT“,““,240)
tpalloc (String BUFTYPE , String SUBTYPE , Long BUFSIZE )
ret = tpinit(0)
if ret<0 then
ret=gettperrno( )
messagebox('信息提示','tpinit error')
else
reqbuf = tpalloc(“FML32“, ““, 65535)
Fchg32(reqbuf,iv_gh_code,0,gv_gh,gh_len)//Fchg32( Long RCVBUF,long FLDID,long OCC,ref String value,ref long LEN )
Fchg32(reqbuf,iv_fhy_code,0,gv_gh,fh_len)
Fchg32(reqbuf,iv_tx_code,0,gv_tx,gv_tx_len)
ret= tpcall(“ADP_MILK“,reqbuf,my_len,reqbuf,my_len,0)
if (ret<0) then
ret=gettperrno( )
retstr=“tpcall:“+ tpstrerror(ret)
messagebox('信息提示',retstr)
else
my_len=0
Fget32(reqbuf,iv_zhye_code,0,ls_zhye,my_len)
Fget32(reqbuf,iv_cwbm_code,0,is_error_code,my_len)
end if
tpfree(reqbuf)
ret=tpterm()
end if
end if

phuang 2003-03-19