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

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

.判断开始 (取文本左边 (局_服务器数据, 寻找文本 (局_服务器数据, “|”, , 假) &＃xff0d; 1) &＃xff1d; “文件名”) &＃39; 取文件名及文件长度

局_寻找的位置 &＃xff1d; 寻找文本 (局_服务器数据, “|”, , 假) &＃39; 寻找标识符位置

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

局_文件名 &＃xff1d; 取文本中间 (局_服务器数据, 局_寻找的位置 &＃xff0b; 1, 寻找文本 (局_服务器数据, “|”, 局_寻找的位置 &＃xff0b; 1, 假) &＃xff0d; 倒找文本 (局_服务器数据, “|”, 局_寻找的位置 &＃xff0b; 1, 假) &＃xff0d; 1) &＃39; &＃43;1标识从找到的位置下一位开始寻找

局_文件总长度 &＃xff1d; 到整数 (取文本右边 (局_服务器数据, 取文本长度 (局_服务器数据) &＃xff0d; 倒找文本 (局_服务器数据, “|”, , 假)))

局_完整文件数据 &＃xff1d; { } &＃39; 这个首次发送图片&＃xff0c;文件数据清空

.判断 (局_服务器数据 &＃xff1d; “ok”) &＃39; 传输完成&＃xff0c;图片框输出&＃xff0c;并且写到文件

图片框1.图片 &＃xff1d; 局_完整文件数据

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

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

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

.默认

局_完整文件数据 &＃xff1d; 局_完整文件数据 &＃xff0b; 服务器1.取回数据 () &＃39; 如果不是首次且没有完成 则 累计加图片数据