1. Parameter LongTime = 40;
    3. /// Input: pJsonStr json格式的字符串
    4. ///             className: 类名 - 实际要获取信息的类+方法+参数
    5. ///             methodName: 方法名
    6. ///             params: 入参
    7. ClassMethod Connect(pJsonStr)
    8. {
    9.     s $zt = "ErrConnect"
    10.     s pJson = ##class(PHA.COM.Json).Parse(pJsonStr)
    11.     s pClassName = pJson.className
    12.     s pMethodName = pJson.methodName
    13.     s pParams = pJson.params
    14.     s st = $h
    15.     for {
    16.         hang 1 
    17.         s data = $ClassMethod(pClassName, pMethodName, pParams)
    18.         return:(data '= "") data
    19.         if ($SYSTEM.SQL.DATEDIFF("SECOND", st, $h) >= ..#LongTime){
    20.             return ""
    21.         }
    22.     }
    23.     q ""
    24. ErrConnect
    25.     q "-1^" _ $tr($ze, "^")
    26. }