以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]上传素材错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136571)

--  作者:2474842866
--  发布时间: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


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

--  作者:有点甜
--  发布时间: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