- 积分
- 23
- 阅读权限
- 100
- 鲜花
- 0
- 猫粮
- 189
- 在线时间
- 75 小时
- 精华
- 0
- 注册时间
- 2018-5-18
- 性别
- 保密
- 最后登录
- 2024-3-21
按键电脑&手机班学员
- 鲜花
- 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内容并写入保存为图片 |
|