易语言服务器组件多线程Demo
<p><strong>普通版</strong></p><p>.版本 2</p>
<p>.支持库 spec<br><br>.子程序 _服务器1_数据到达<br>.局部变量 客户, 文本型<br><br>客户 ＝ 服务器1.取回客户 ()<br>线程_启动 (&子程序1, <span style="color: rgba(255, 0, 0, 1)">取变量数据地址 (客户)</span>, )<br><span style="color: rgba(255, 0, 0, 1)">延时 (100)</span><br><br>.子程序 子程序1<br>.参数 客户, 文本型<br><br><br>.计次循环首 (3, )<br> 线程_进入许可区 (许可证)<br> .如果真 (服务器1.发送数据 (客户, 到字节集 (文本_取随机汉字 (1000, 0)), 1))<br> 跳出循环 ()<br> .如果真结束<br> 线程_退出许可区 (许可证)<br>.计次循环尾 ()</p>
<p>服务器1.断开客户 (客户)</p>
<p> </p>
<p><strong>注意：</strong>取变量数据地址（）可以给线程传参文本型数据</p>
<p> 延时100毫秒是必须要加的，否则文本型传参会失败。</p>
<p>=============================</p>
<p><strong>内存版本</strong></p>
<p> </p>
<p>.版本 2<br>.支持库 spec<br>.支持库 EThread<br><br>.程序集 窗口程序集_启动窗口<br><br>.子程序 _服务器程序_数据到达<br>.局部变量 客户IP, 文本型<br>.局部变量 请求内容, 文本型<br>.局部变量 tempStr, 文本型<br>.局部变量 内存地址, 整数型<br><br>客户IP ＝ 服务器程序.取回客户 ()<br>请求内容 ＝ 到文本 (服务器程序.取回数据 ())<br>tempStr ＝ 客户IP ＋ “|@|” ＋ 请求内容<br>内存地址 ＝ 申请内存 (取文本长度 (tempStr) ＋ 1, 真)<br>写到内存 (tempStr, 内存地址, 取文本长度 (tempStr))<br>启动线程 (&数据到达, 内存地址, )<br><br>.子程序 数据到达<br>.参数 内存地址, 整数型<br>.局部变量 分割, 文本型, , "0"<br>.局部变量 请求内容, 文本型<br>.局部变量 客户IP, 文本型<br><br>分割 ＝ 分割文本 (指针到文本 (内存地址), “|@|”, )<br>释放内存 (内存地址)<br>客户IP ＝ 分割 <br>请求内容 ＝ 分割 <br>调试输出 (客户IP, 请求内容)<br><br><br>.子程序 _服务器程序_客户进入<br>.局部变量 客户IP, 文本型<br>.局部变量 内存地址, 整数型<br><br>客户IP ＝ 服务器程序.取回客户 ()<br>内存地址 ＝ 申请内存 (取文本长度 (客户IP) ＋ 1, 真)<br>写到内存 (客户IP, 内存地址, 取文本长度 (客户IP))<br>启动线程 (&客户进入, 内存地址, )<br><br>.子程序 客户进入<br>.参数 内存地址, 整数型<br>.局部变量 客户IP, 文本型<br><br>客户IP ＝ 指针到文本 (内存地址)<br>释放内存 (内存地址)<br>调试输出 (客户IP)<br><br><br>.子程序 _服务器程序_客户离开<br>.局部变量 客户IP, 文本型<br>.局部变量 内存地址, 整数型<br><br>客户IP ＝ 服务器程序.取回客户 ()<br>内存地址 ＝ 申请内存 (取文本长度 (客户IP) ＋ 1, 真)<br>写到内存 (客户IP, 内存地址, 取文本长度 (客户IP))<br>启动线程 (&客户离开, 内存地址, )<br><br>.子程序 客户离开<br>.参数 内存地址, 整数型<br>.局部变量 客户IP, 文本型<br><br>客户IP ＝ 指针到文本 (内存地址)<br>释放内存 (内存地址)<br>调试输出 (客户IP)</p>
<p> </p>
<p>原文转自：http://www.zhizhuowz.com/post-504.html</p>
<p> </p><br><br>
来源：https://www.cnblogs.com/hongyuyingxiao/p/13401757.html
頁:
[1]