Foxtable(狐表)用户栏目专家坐堂 → [求助]上传素材错误


  共有1630人关注过本帖树形打印复制链接

主题:[求助]上传素材错误

帅哥哟,离线,有人找我吗?
2474842866
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:910 威望:0 精华:0 注册:2019/5/19 21:50:00
[求助]上传素材错误  发帖心情 Post By:2019/6/16 11:19:00 [只看该作者]

上传素材时,总是报错:

图片点击可在新窗口打开查看此主题相关图片如下:360截图20190616111726053.jpg
图片点击可在新窗口打开查看


代码如下:
'定义网址
Dim url As String = "https://api.weixin.qq.com/cgi-bin/media/upload?access_token={0}&type=image"
Dim hc  As new HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
'上传文件
hc.Files.Add("media","C:\Users\Administrator\Documents\图标库\f46e5501e0a1e44b1ce373cc32b3ded2")
'从服务器获取图片素材,并存在表格内
Dim str As String = hc.GetData
'解析内容
Dim jo As JObject = JObject.parse(str)
'判断是否成功,成功写入素材库
If jo("errcode") Is Nothing Then
Dim dr As DataRow = DataTables("Materials").AddNew()
dr("Type") = "image"
dr("Media") = jo("Media")
dr("URL") = url
dr("UpdateTime") = Date.now
dr("FileName") =  "f46e5501e0a1e44b1ce373cc32b3ded2.jpg"
Else
    MessageBox.Show(jo.ToString())
End If


服务器正常开启,内部函数正常,请问什么地方没有考虑到?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/17 10:34:00 [只看该作者]

1、你的图片文件没有后缀名?

 

hc.Files.Add("media","C:\Users\Administrator\Documents\图标库\f46e5501e0a1e44b1ce373cc32b3ded2.ico")

 

2、在调试接口调试一下测试

 

https://mp.weixin.qq.com/debug/cgi-bin/apiinfo?t=index&type=%E5%9F%BA%E7%A1%80%E6%94%AF%E6%8C%81&form=%E5%A4%9A%E5%AA%92%E4%BD%93%E6%96%87%E4%BB%B6%E4%B8%8A%E4%BC%A0%E6%8E%A5%E5%8F%A3%20/media/upload


 回到顶部