$PBExportHeader$f_waitforrslt_ws.srf
global type f_waitforrslt_ws from function_object
end type

forward prototypes
global function integer f_waitforrslt_ws (integer arg_wait_second)
end prototypes

global function integer f_waitforrslt_ws (integer arg_wait_second);// 是否 等到了结果
Long rslt
sys_buf_new = FALSE

// 等待结果
// 等待最长时间arg_waitsec
s_waitforwsrslt_para s_para
s_para.waitsecond = arg_wait_second
s_para.Title = '正在登录...' //arg_title 
s_para.if_allow_cancel = TRUE //arg_if_allow_cancel
OpenWithParm(w_waitforwsrslt,s_para)

//f_waitforrslt(arg_wait_second,'正在登录...',TRUE)
////messagebox('',string(sys_buf_s_rtlogin.blobdata ))

IF sys_buf_new THEN //有结果 
	//	arg_s_rtlogin=sys_buf_s_rtlogin
	rslt = 1
ELSE
	rslt = 0
END IF

RETURN rslt




end function