用户需要在客户端安装目录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;