服务器与客户端传输图片文件可自行扩展

易语言 2020-04-16 20:15:07

服务器与客户端传输图片文件可自行扩展

可以带头像的注册登录,尝试了几天发现,直接读入发送,服务器会接收错误,现在找到方法了,分享给大家。

.判断开始 (取文本左边 (局_服务器数据, 寻找文本 (局_服务器数据, “|”, , 假) - 1) = “文件名”) ' 取文件名及文件长度
局_寻找的位置 = 寻找文本 (局_服务器数据, “|”, , 假) ' 寻找标识符位置
调试输出 (局_寻找的位置, 寻找文本 (局_服务器数据, “|”, 局_寻找的位置 + 1, 假))
局_文件名 = 取文本中间 (局_服务器数据, 局_寻找的位置 + 1, 寻找文本 (局_服务器数据, “|”, 局_寻找的位置 + 1, 假) - 倒找文本 (局_服务器数据, “|”, 局_寻找的位置 + 1, 假) - 1) ' +1标识从找到的位置下一位开始寻找
局_文件总长度 = 到整数 (取文本右边 (局_服务器数据, 取文本长度 (局_服务器数据) - 倒找文本 (局_服务器数据, “|”, , 假)))
局_完整文件数据 = { } ' 这个首次发送图片,文件数据清空
.判断 (局_服务器数据 = “ok”) ' 传输完成,图片框输出,并且写到文件
图片框1.图片 = 局_完整文件数据
调试输出 (取字节集长度 (局_完整文件数据))
调试输出 (“局_文件长度”, 局_文件名)
写到文件 (取运行目录 () + “\” + 局_文件名 + “.jpg”, 局_完整文件数据)
.默认
局_完整文件数据 = 局_完整文件数据 + 服务器1.取回数据 () ' 如果不是首次且没有完成 则 累计加图片数据