最后一段代码是:
在共享对象lnv_userloginsrv的of_scan 函数代码如下:
Long ll_index, ll_temp
ll_index = il_Usedtail
/* SCAN */
DO WHILE ll_index <> 0
IF is_ul[ll_index].Valid THEN
/* 确定用户相应,否则在用户列表中删除 */
is_ul[ll_index].responds.POST of_IsOnline()
END IF
ll_index = is_ul[ll_index].Prenode
LOOP
/* 共享对象引用前验证有效。*/
IF Success! <> SharedObjectGet("userloginsrv", lnv_userloginsrv) THEN
SharedObjectRegister("n_cst_userloginsrv","userloginsrv")
SharedObjectGet("userloginsrv", lnv_userloginsrv)
END IF
IF IsValid( lnv_userloginsrv ) THEN
lnv_userloginsrv.POST of_scan()
END IF
RETURN 0
///////////////////////////////////////////////////////////////////////////////
在共享对象lnv_userloginsrv的of_scan 函数代码如下:
Long ll_index, ll_temp
ll_index = il_Usedtail
/* SCAN */
DO WHILE ll_index <> 0
IF is_ul[ll_index].Valid THEN is_ul[ll_index].responds.POST of_IsOnline()
END IF
ll_index = is_ul[ll_index].Prenode
LOOP
升级PB7不可行呀,客户端是一个项目,都是用6.5开发的,要升级牵涉的内容太多呢
现在有些进展:
If you are running 分布式PB on a multiple processor machine you should bind the process to a given CPU.
所以用了一段API函数(SetProcessAffinityMask),将程序绑定到一个CPU上,现在错误频率减少,单并没有避免!!
在线等!!!
急呀.......
各位帮帮忙呢!