易语言客户端服务端

　　.版本 2
　　.程序集 窗口程序集1
　　.程序集变量 客户, 文本型
　　.子程序 __启动窗口_创建完毕
　　服务器1.端口 ＝ 19730
　　' 这里是将服务器跟客户端放在同一个窗口下写的
　　' 客户1连接服务器的3个条件，1：服务端已经运行。2：服务地址填写正确。3：端口要一致
　　' 本机测试用127.0.0.1就可以了，外网的话根据外网IP填写，或用域名解析。例如 花生壳等软件，解析后直接填入域名。
　　' 端口 0-65535 只要不跟其他程序使用的端口冲突就可以
　　.如果真 (客户1.连接 (“127.0.0.1”, 19730) ＝ 假)
　　信息框 (“连接服务器失败！”, 0, )
　　返回 ()
　　.如果真结束
　　信息框 (“连接服务器成功！”, 0, )

　　.子程序 _服务器1_客户进入
　　' 当客户连接进来以后可以先取回这个客户的IP,等下发送数据数用得到，有多个客户连接的话可以用数组保存
　　客户 ＝ 服务器1.取回客户 ()
　　.子程序 _按钮2_被单击
　　' 客户发送数据
　　客户1.发送数据 (“客户1发送来的数据”)
　　.子程序 _按钮1_被单击
　　' 服务器发送数据
　　服务器1.发送数据 (客户, “服务器1发送来的消息”, )
　　.子程序 _客户1_数据到达
　　.局部变量 消息, 文本型
　　' 客户取回服务器发来的消息
　　' 接收到的数据时字节集型的，先到下文本
　　消息 ＝ 到文本 (客户1.取回数据 ())
　　信息框 (消息, 0, )
　　' 当然，如果发送的不是文本，而是一个文件、一张图片的话，就不用到文本了。而应该用一个字节集型的变量来接收
　　.子程序 _服务器1_数据到达
　　.局部变量 消息, 文本型
　　' 接收客户发送的数据
　　消息 ＝ 到文本 (服务器1.取回数据 ())
　　信息框 (消息, 0, )

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fe3vjre22jv2jye333.html