Sunny服务器套件问题

SK在线

谁有Sunny服务器套件的ws服务端例子，他的站，例子删了好像，找不到了！有的留个e例子，谢谢！

CVBSMDS

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

Sunny服务器套件.添加GET路由 (“/ws”, 取子程序地址 (&ws))
判断 (Sunny服务器套件.启动HTTP服务器 (“:8080”))
调试输出 (“启动成功”)
调试输出 (“请打开：http://www.websocket-test.com/” ＋ #换行符 ＋ #换行符 ＋ “然后输入地址：ws://127.0.0.1:8080/ws” ＋ #换行符 ＋ #换行符 ＋ “查看效果”)
信息框 (“请打开：http://www.websocket-test.com/” ＋ #换行符 ＋ #换行符 ＋ “然后输入地址：ws://127.0.0.1:8080/ws” ＋ #换行符 ＋ #换行符 ＋ “查看效果”, 0, , )
调试输出 (“启动失败”, Sunny服务器套件.获取运行时的错误信息 ())

子程序名	返回值类型	公开	备 注
ws
参数名	类 型	参考	可空	数组	备 注
Context

变量名	类 型	静态	数组	备 注
id	文本型
sunny	Sunny
WsContext	整数型

sunny ＝ 取回sunny对象 (Context)
WsContext ＝ sunny.请求.升级至WS路由 (到整数 (&Events), 编码_Ansi到Utf8 (“你好！！”))
' WsContext 这里可以把 WsContext 保存下来 可以用于后期主动给客户发送消息
Sleep (300)
Sunny服务器套件.Ws_给指定客户Duan发送消息 (WsContext, 编码_Ansi到Utf8 (“欢迎光临！！”))

子程序名	返回值类型	公开	备 注
Events
参数名	类 型	参考	可空	数组	备 注
WsContext	整数型
MsgType	整数型				1为 正常接收消息。-1 为断开

变量名	类 型	静态	数组	备 注
ws	SunnyWs

如果真 (MsgType ＝ -1)
调试输出 (“断 开 连 接”)
返回 ()
ws.置WsContext (WsContext)
调试输出 (“接收的消息是：” ＋ ws.取消息_UTF8 ())
ws.发送字符串_UTF8 (“您发送的消息是：” ＋ ws.取消息_UTF8 ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> <br /> Sunny服务器套件.添加GET路由 (“/ws”, 取子程序地址 (&ws))<br /> <br /> .判断开始 (Sunny服务器套件.启动HTTP服务器 (“:8080”))<br />     调试输出 (“启动成功”)<br />     调试输出 (“请打开：http://www.websocket-test.com/” ＋ #换行符 ＋ #换行符 ＋ “然后输入地址：ws://127.0.0.1:8080/ws” ＋ #换行符 ＋ #换行符 ＋ “查看效果”)<br /> <br />     信息框 (“请打开：http://www.websocket-test.com/” ＋ #换行符 ＋ #换行符 ＋ “然后输入地址：ws://127.0.0.1:8080/ws” ＋ #换行符 ＋ #换行符 ＋ “查看效果”, 0, , )<br /> .默认<br />     调试输出 (“启动失败”, Sunny服务器套件.获取运行时的错误信息 ())<br /> .判断结束<br /> <br /> <br /> .子程序 ws<br /> .参数 Context<br /> .局部变量 id, 文本型<br /> .局部变量 sunny, Sunny<br /> .局部变量 WsContext, 整数型<br /> <br /> sunny ＝ 取回sunny对象 (Context)<br /> WsContext ＝ sunny.请求.升级至WS路由 (到整数 (&Events), 编码_Ansi到Utf8 (“你好！！”))<br /> ' WsContext 这里可以把 WsContext 保存下来 可以用于后期主动给客户发送消息<br /> Sleep (300)<br /> Sunny服务器套件.Ws_给指定客户Duan发送消息 (WsContext, 编码_Ansi到Utf8 (“欢迎光临！！”))<br /> <br /> .子程序 Events<br /> .参数 WsContext, 整数型<br /> .参数 MsgType, 整数型, , 1为 正常接收消息。-1 为断开 <br /> .局部变量 ws, SunnyWs<br /> <br /> .如果真 (MsgType ＝ -1)<br />     调试输出 (“断 开 连 接”)<br />     返回 ()<br /> .如果真结束<br /> ws.置WsContext (WsContext)<br /> <br /> 调试输出 (“接收的消息是：” ＋ ws.取消息_UTF8 ())<br /> ws.发送字符串_UTF8 (“您发送的消息是：” ＋ ws.取消息_UTF8 ())

SK在线

CVBSMDS 发表于 2025-11-1 22:40
[e=0].版本 2
.支持库 spec

谢了哥们！！！