天软金融分析.NET函数大全 > TSL函数 > 第三方交互函数 > TS-OPI及TS-OPS支持函数 > TS-OPS使用范例(基于OPSServer类) > 1、注册OPS服务,启动监听

重载模式    

  • 用户需要在客户端安装目录funcext文件夹中新建.tsf文件并定义一个类,继承OPSServer,并重写CallBack/WaitSubscription方法。
    类示例
    type myopsserver = class(opsserver)
      class function CallBack(name , param, realdata); override;
      begin
        if name = 'hahaha' then
        begin
          return callinarray(name , param);
        end;
      end;

      class function hahaha(a = 1000, b = 200);
      begin
        return array("a*b": a * b);
      end;

      class function WaitSubscription(name , param, realdata); override;
      begin
        sleep(3000);
        return array("time": now());
      end

    end;

    使用示例
    url := "https://opi.tinysoft.com.cn/Service/OPS/Register/";
    durl := "https://opi.tinysoft.com.cn/Service/OPS/data/";
    username := "yourname"; //需换成天软账号
    password := "yourpass"; //需换成对应密码
    sessionkey := ""; //支持特殊租户(调用功能列表为*)
    opslist := "hahaha,__subscription__/time"; //要注册的TS-OPS服务列表
    ops := new myopsserver(durl, "", opslist, "", "", url, "", nil , username, password, sessionkey, false );
    //注册TS-OPS服务,并启动监听
    while ops.waitmessage(50000000) do
    begin
    end;