找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 8752|回复: 9

[已回复] 帮忙写个安卓手机版POST上传图片是案例

[复制链接]

7

主题

14

回帖

28

积分

学前班

鲜花
0
猫粮
45
发表于 2018-6-13 14:45:34 | 显示全部楼层 |阅读模式
  • 打卡等级:坠落山崖

1082

主题

2110

回帖

4294

积分

院长

鲜花
7
猫粮
6352
QQ
发表于 2018-6-13 21:48:49 | 显示全部楼层
我的插件里有相关功能, 具体要你自己写了, 每个网站的数据都是不一样的

7

主题

14

回帖

28

积分

学前班

鲜花
0
猫粮
45
 楼主| 发表于 2018-6-15 15:16:33 | 显示全部楼层
紫猫 发表于 2018-6-13 21:48
我的插件里有相关功能, 具体要你自己写了, 每个网站的数据都是不一样的

就是插件功能不知道怎么使用,网站数据那边我自己会写,就是插件端如何写,麻烦给个案例,谢谢。
  • 打卡等级:坠落山崖

1082

主题

2110

回帖

4294

积分

院长

鲜花
7
猫粮
6352
QQ
发表于 2018-6-15 18:07:18 | 显示全部楼层
cheersgo 发表于 2018-6-15 15:16
就是插件功能不知道怎么使用,网站数据那边我自己会写,就是插件端如何写,麻烦给个案例,谢谢。 ...

可以用我插件以base64读取图片, 然后把base64字符串post提交到你们网站, 至于你们网站如何解密这个base64那是你们的事情了, 命令的话, 就是一个url.post 网址, 提交参数

7

主题

14

回帖

28

积分

学前班

鲜花
0
猫粮
45
 楼主| 发表于 2018-6-17 19:27:09 | 显示全部楼层
紫猫 发表于 2018-6-15 18:07
可以用我插件以base64读取图片, 然后把base64字符串post提交到你们网站, 至于你们网站如何解密这个base64 ...

url.post 网址, 提交参数

base64读取图片

这个图片的提交参数怎么整?比如图片是  /sdcard/1.png 这个图片。提交参数怎么写?谢谢

7

主题

14

回帖

28

积分

学前班

鲜花
0
猫粮
45
 楼主| 发表于 2018-6-19 08:27:38 | 显示全部楼层
o(︶︿︶)oo(︶︿︶)o

29

主题

8

回帖

81

积分

按键电脑班学员

鲜花
1
猫粮
211
QQ
发表于 2018-6-19 09:55:51 | 显示全部楼层
cheersgo 发表于 2018-6-17 19:27
url.post 网址, 提交参数

base64读取图片

Url.Post("http://www.XXXX.com","action=post&data=图片Base64数据")
后面的提交数据完全根据提交网站的参数传输设定来的,没有通用的 比如 action参数可能是 upload,那么提交数据就是"action=upload&data=图片Base64数据"这样子,你可以加我qq我帮你看一下
QQ9034986047

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
3
发表于 2018-6-29 22:20:10 | 显示全部楼层
直接urlpost

7

主题

14

回帖

28

积分

学前班

鲜花
0
猫粮
45
 楼主| 发表于 2018-7-27 07:14:17 | 显示全部楼层

能否帮写个案例?
  • 打卡等级:初涉江湖

0

主题

23

回帖

23

积分

按键电脑&手机班学员

鲜花
0
猫粮
189
发表于 2018-10-15 03:58:18 | 显示全部楼层
转成base64上传到数据库 哈哈 但是很慢的 不如直接http 呵呵
Dim 腾讯云数据库 = "http://**********/sql.php"

Function 测试图片转base64进行上传下载()
    Dim 图片路径(),base64内容()
    zm.NetDataInit 腾讯云数据库, "script"
    For i = 1 To 10 Step 1
        图片路径(i) = "/sdcard/Pictures/" & CStr(i) & ".jpg"
        base64内容(i) = zm.FileReadBinaryBase64(图片路径(i))
        //TracePrint base64内容(i)
        zm.NetDataSet "15" & CStr(i), base64内容(i)
    Next
       
    Dim 写入图片路径()
    //    For i = 1 To 10 Step 1
    //        写入图片路径(i) = "/sdcard/Pictures/15" & CStr(i) & ".jpg"
    //        If zm.FileWriteBinaryBase64(写入图片路径(i), base64内容(i)) Then
    //            TracePrint "写入成功"
    //        Else
    //            TracePrint "写入失败"
    //        End If
    //    Next
       
End Function
//测试图片转base64进行上传下载
Function 测试下载数据库base64内容并写入保存为图片()
    Dim 写入图片路径(),base64内容()
    zm.NetDataInit 腾讯云数据库, "script"
    For i = 1 To 10 Step 1
        base64内容(i) = zm.NetDataGet("15" & CStr(i))
        TracePrint base64内容(i)
        写入图片路径(i) = "/sdcard/Pictures/251" & CStr(i) & ".jpg"
        If zm.FileWriteBinaryBase64(写入图片路径(i), base64内容(i)) Then
            TracePrint "写入成功"
        Else
            TracePrint "写入失败"
        End If
    Next
End Function
//测试下载数据库base64内容并写入保存为图片
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-5-2 20:01

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表