易语言 服务器组件,易语言服务器组件多线程例程

易语言服务器组件多线程例程

@382399306.版本 2

.支持库 EThread

.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _服务器程序_数据到达

.局部变量 线程参数, 线程参数

线程参数.客户IP ＝ 服务器程序.取回客户 ()

线程参数.请求内容 ＝ 到文本 (服务器程序.取回数据 ())

启动线程 (&数据到达, 取变量地址 (线程参数), )

延时 (100)  ' 延时不可以删

.子程序 数据到达

.参数 变量地址, 整数型

.局部变量 线程参数, 线程参数

交换_变量交地址ASM (线程参数, 变量地址)

调试输出 (线程参数.客户IP, 线程参数.请求内容)

.子程序 _服务器程序_客户进入

.局部变量 线程参数, 线程参数

线程参数.客户IP ＝ 服务器程序.取回客户 ()

启动线程 (&客户进入, 取变量地址 (线程参数), )

延时 (100)  ' 延时不可以删

.子程序 客户进入

.参数 变量地址, 整数型

.局部变量 线程参数, 线程参数

交换_变量交地址ASM (线程参数, 变量地址)

调试输出 (线程参数.客户IP)

.子程序 _服务器程序_客户离开

.局部变量 线程参数, 线程参数

线程参数.客户IP ＝ 服务器程序.取回客户 ()

启动线程 (&客户离开, 取变量地址 (线程参数), )

延时 (100)  ' 延时不可以删

.子程序 客户离开

.参数 变量地址, 整数型

.局部变量 线程参数, 线程参数

交换_变量交地址ASM (线程参数, 变量地址)

调试输出 (线程参数.客户IP)

.子程序 __启动窗口_创建完毕

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)