| 12345678910111213141516171819202122232425262728293031323334353637 |
- $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
|
