|
楼主 |
发表于 2024-4-23 00:52:20
|
显示全部楼层
重庆市重庆市
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 网站, CC网站
.程序集变量 tcps, ITcpServer
.程序集变量 客户句柄, 整数型
.程序集变量 连接id, 整数型
.子程序 __启动窗口_创建完毕
网站.创建 (取运行目录 ())
网站.注册接口 (&网站主线程, “/”)
网站.启动 (“0.0.0.0”, 1234)
.子程序 网站主线程
.参数 指针, 整数型
.局部变量 接口, CC接口
取回接口 (指针, 接口)
.判断开始 (接口.取地址 () = “/”)
客户句柄 = 接口.取服务器句柄 ()
连接id = 接口.取连接ID ()
tcps.SendBytes (客户句柄, 连接id, 编码_Ansi到Utf8 (#长连头))
.默认
.判断结束
.子程序 _按钮1_被单击
.局部变量 json, json对象
json.置文本 (“信息”, “你好”)
tcps.SendBytes (客户句柄, 连接id, 编码_Ansi到Utf8 (“data: ” + json.到JSON () + #换行符 + #换行符))
.子程序 _按钮2_被单击
tcps.Disconnect (客户句柄, 连接id, 真)
我自己研究出来了。 |
|