FTP和TCP服务端和客户端的连接例子

取回的数据 ＝ 服务器类_取回数据 ()
分解封包_数组 ＝ 分割文本 (到文本 (取回的数据), “88888”, )
.判断开始 (分解封包_数组 [1] ＝ “1”) ' 1=公告，2=命令，
编辑框3.加入文本 (“客户消息：” ＋ #引号 ＋ 分解封包_数组 [2] ＋ #引号 ＋ #换行符)
.判断 (分解封包_数组 [1] ＝ “2”)

.如果真 (信息框 (“确定发公告？”, 0 ＋ 1, ) ＝ 0 且 删首尾空 (编辑框4.内容) ≠ “”)
.计次循环首 (超级列表框1.取表项数 (), 计次循环)
发送封包 (“1”, 编辑框4.内容, 超级列表框1.取表项数值 (计次循环 － 1))
.计次循环尾 ()

.如果真 (服务器类_启动 (取窗口句柄 (), 到整数 (编辑框2.内容), &数据到达, &客户进入, &客户离开))
编辑框3.加入文本 (“服务器启动成功” ＋ #换行符)