陈奕迅哪张专辑最好听:易语言通过Http协议上传下载文件

来源:百度文库 编辑:偶看新闻 时间:2024/04/28 18:12:55

.版本 2

.程序集 窗口程序集1
.程序集变量 程序集_数据, 字节集

.子程序 _按钮1_被单击

信息框 (客户1.连接 (“bbs.eyuyan.com”, 80), 0, )
' 信息框 (客户1.连接 (“www.e-sos.cn”, 80), 0, )
程序集_数据 = {  }
信息框 (客户1.发送数据 (“GET http://bbs.eyuyan.com/skins/newyear2009/logo.gif” + #换行符 + #换行符), 0, )
' 信息框 (客户1.发送数据 (“GET http://www.e-sos.cn/esos/images/world-e.gif” + #换行符 + #换行符), 0, )
' http://www.e-sos.cn/esos/images/world-e.gif
' http://bbs.eyuyan.com/skins/newyear2009/logo.gif

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

程序集_数据 = 程序集_数据 + 客户1.取回数据 ()
输出调试文本 (到文本 (程序集_数据))
' 暂停 ()
图片框1.图片 = 取字节集右边 (程序集_数据, 取字节集长度 (程序集_数据) - 寻找字节集 (程序集_数据, 到字节集 (“GIF89”), ) + 1)
写到文件 (“c:\1234567.gif”, 取字节集右边 (程序集_数据, 取字节集长度 (程序集_数据) - 寻找字节集 (程序集_数据, 到字节集 (“GIF89”), ) + 1))