磊哥帮看看呗！

3826678

远程服务这个东[e].版本 2 .支持库 Exmlrpc .支持库 spec  .程序集 窗口程序集1 .程序集变量 同步客户端, 请求客户端 .程序集变量 异步客户, 请求客户端  .子程序 __启动窗口_创建完毕  ' 222.189.26.40 3101端口 这个服务端口，当有连接成功后， 那服务器会主动给客户端发送数据 ' 我用 那个基本客户下组件就能收到，用请求客户端 不管同步还是异步 我都取不出 远程服务器 发回来的数据  .子程序 _客户1_数据到达  编辑框1.加入文本 (“基本组件客户收到数据： ” ＋ 到文本 (客户1.取回数据 ()) ＋ #换行符) 调试输出 (“基本组件客户收到数据： ”, 客户1.取回数据 ())   .子程序 _按钮简单组件_被单击 .局部变量 状态, 逻辑型  状态 ＝ 客户1.连接 (“222.189.26.40”, 3101) .如果真 (状态)     编辑框1.加入文本 (“基本组件客户连接成功” ＋ #换行符) .如果真结束     .子程序 _按钮远程客户同步_被单击 .局部变量 状态, 逻辑型 .局部变量 结果, 字节集 .局部变量 发送结果, 整数型  状态 ＝ 同步客户端.连接 (3101, “222.189.26.40”, 真, ) .如果真 (状态)     编辑框1.加入文本 (“同步客户端连接成功” ＋ #换行符)      ' 发送结果 ＝ 同步客户端.同步发送字节集 ({ 0 }, 结果, 1000)     ' 调试输出 (发送结果) .如果真结束  ' 这个同步连接成功后，咋接收服务端发回来的信息呢？又没有消息地址，又没有数据到达   .子程序 _按钮远程客户异步_被单击 .局部变量 状态, 逻辑型  状态 ＝ 异步客户.连接 (3101, “222.189.26.40”, 假, &异步函数) .如果真 (状态)     编辑框1.加入文本 (“异步客户端连接成功” ＋ #换行符) .如果真结束   .子程序 异步函数 .参数 消息地址, 整数型 .局部变量 消息类型, 整数型, , , 连接意外断开返回0，如果客户端接收到数据返回1，出错返回-1  消息类型 ＝ 异步客户.取消息类型 (消息地址) .如果真 (消息类型 ＝ 0)     编辑框1.加入文本 (“异步客户端消息类型为0 连接断开” ＋ #换行符)  .如果真结束 .如果真 (消息类型 ＝ 1)     编辑框1.加入文本 (“异步客户端消息类型为1 有数据到达” ＋ #换行符)  .如果真结束 .如果真 (消息类型 ＝ -1)     编辑框1.加入文本 (“异步客户端消息类型为-1 出错” ＋ #换行符) .如果真结束  [/e]东！！

3826678

打包了一个源码

3826678

没有人啊现在这个会员哎！！！