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

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

.判断开始 (取文本左边 (局_服务器数据, 寻找文本 (局_服务器数据, “|”, , 假) － 1) ＝ “文件名”) ' 取文件名及文件长度

局_寻找的位置 ＝ 寻找文本 (局_服务器数据, “|”, , 假) ' 寻找标识符位置

调试输出 (局_寻找的位置, 寻找文本 (局_服务器数据, “|”, 局_寻找的位置 ＋ 1, 假))

局_文件名 ＝ 取文本中间 (局_服务器数据, 局_寻找的位置 ＋ 1, 寻找文本 (局_服务器数据, “|”, 局_寻找的位置 ＋ 1, 假) － 倒找文本 (局_服务器数据, “|”, 局_寻找的位置 ＋ 1, 假) － 1) ' +1标识从找到的位置下一位开始寻找

局_文件总长度 ＝ 到整数 (取文本右边 (局_服务器数据, 取文本长度 (局_服务器数据) － 倒找文本 (局_服务器数据, “|”, , 假)))

局_完整文件数据 ＝ { } ' 这个首次发送图片，文件数据清空

.判断 (局_服务器数据 ＝ “ok”) ' 传输完成，图片框输出，并且写到文件

图片框1.图片 ＝ 局_完整文件数据

调试输出 (取字节集长度 (局_完整文件数据))

调试输出 (“局_文件长度”, 局_文件名)

写到文件 (取运行目录 () ＋ “\” ＋ 局_文件名 ＋ “.jpg”, 局_完整文件数据)

.默认

局_完整文件数据 ＝ 局_完整文件数据 ＋ 服务器1.取回数据 () ' 如果不是首次且没有完成 则 累计加图片数据