易语言用服务器,客户端组件做一个注册登录软件 客户端注册后账号密码发送到服务器并保存。类似聊天室那种

版本 2

程序集 启动窗口程序集

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

' 当某客户连接进来时，将其加入在线列表。

列表框1加入项目 (服务器1取回客户 (), )

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

局部变量 客户, 文本型

局部变量 项目数

局部变量 变量1

' 当某客户断开连接时，将其从在线列表中删除。

客户 ＝ 服务器1取回客户 ()

项目数 ＝ 列表框1取项目数 ()

计次循环首 (项目数, 变量1)

如果真 (列表框1取项目文本 (变量1 － 1) ＝ 客户)

列表框1删除项目 (变量1 － 1)

跳出循环 ()

如果真结束

计次循环尾 ()

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

局部变量 项目数

局部变量 变量1

局部变量 收到数据, 字节集

' 将所收到的信息转发给所有在线客户。

收到数据 ＝ 服务器1取回数据 ()

项目数 ＝ 列表框1取项目数 ()

计次循环首 (项目数, 变量1)

服务器1发送数据 (列表框1取项目文本 (变量1 － 1), 收到数据, 1)

计次循环尾 ()

以上是 服务器 的代码

版本 2

程序集 启动窗口程序集

子程序 _按钮1_被单击

' 连接服务器

如果真 (客户1连接 (地址编辑框内容, 到数值 (端口编辑框内容)) ＝ 假)

信息框 (“连接失败！”, 0, )

返回 ()

如果真结束

发送按钮禁止 ＝ 假

发送编辑框获取焦点 ()

子程序 _发送按钮_被单击

如果真 (客户1发送数据 (发送编辑框内容) ＝ 假)

信息框 (“发送失败！”, 0, )

如果真结束

发送编辑框内容 ＝ “”

发送编辑框获取焦点 ()

子程序 _客户1_数据到达

信息编辑框加入文本 (取字节集数据 (客户1取回数据 (), #文本型) ＋ #换行符)

以上是 客户端 的代码

注意：（#重要提示#   使用客户端前，需打开 “服务器” 才能连接服务器！！！）

客户端发送数据（到字节集（“标识”+“文件名称”+“|”）+读入文件（路径））

-------------------------服务器端

未处理=服务器取回数据（）

如果真（“标识”=到文本（取字节集左边（未处理，4））

数组=分割字节集（取字节集右边（未处理，取字节集长度（未处理）-4），到字节集（“|”））

写到文件（取运行目录（）+“\”+到文本（数组[1]）,数组[2]）