这段易语言代码,怎么转换成火山视窗呢,我在字节集这方面比较迷糊了有些,,\
|
服务器_提交数据 | 文本型 | | |
本地文件路径 | 文本型 | | | | 文件名 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 局_网址 | 文本型 | | | 局_提交数据 | 字节集 | | | 局_提交协议头 | 文本型 | | | 局_结果 | 字节集 | | | 局_返回 | 文本型 | | | ADD_协议头 | 类_POST数据类 | | | 局_方式 | 整数型 | | |
局_网址 = “http://www.518vps.com/apilivo.php?lx=1&lujing=%32%2F%70%68%70%B5%F7%D3%C3%C9%CF%B4%AB%2E%65”局_方式 = 1 局_提交数据 = 到字节集 (“----------------------------761452601140280315160516” + #换行符 )局_提交数据 = 局_提交数据 + 到字节集 (“Content-Disposition: form-data; name=” + #引号 + “file” + #引号 + “; filename=” + #引号 + 文件名 + #引号 + “” + #换行符 )局_提交数据 = 局_提交数据 + 到字节集 (“Content-Type: image/” + 文本_取右边 (文件名, “.”) + #换行符 + “” + #换行符 )局_提交数据 = 局_提交数据 + 读入文件 (本地文件路径 ) + 到字节集 ( #换行符 )局_提交数据 = 局_提交数据 + 到字节集 (“----------------------------761452601140280315160516”)ADD_协议头. 添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )ADD_协议头. 添加 (“Content-Type”, “multipart/form-data; boundary=--------------------------761452601140280315160516”, )局_提交协议头 = ADD_协议头. 获取协议头数据 ()局_结果 = 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , 局_提交数据, , , , , , , , , )局_返回 = 到文本 (编码_Utf8到Ansi (局_结果 )) 返回 (局_返回 )
火山代码我写成这样了
<火山程序 类型 = "通常" 版本 = 1 /> 如果 (来源对象 == 按钮_上传文件) { url = "http://sanfeng.xydtaoke.com/shangchuan.php?lx=1&lujing=%32%2F%31%32%33%2E%65%78%65" 文件字节集 = 读入文件 (编辑框2.内容, -1) 添加字节集 (最后提交的字节集, 文本到字节集 (提交数据)) 添加字节集 (最后提交的字节集, 文本到字节集 ("\r\n")) 添加字节集 (最后提交的字节集, 文件字节集) 添加字节集 (最后提交的字节集, 文本到字节集 ("\r\n")) 添加字节集 (最后提交的字节集, 文本到字节集 (提交数据1)) 返回文本 = 编码_Utf8到Unicode (网页_访问_对象 (url, 1, , , , 协议头, , , , 最后提交的字节集, , , , , , , 真, )) 信息框 ("123" + 返回文本, 0, "提示") 返回 (0) }
|