以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  企业微信素材上传不成功  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144128)
--  作者：erdbeer
--  发布时间：2019/12/11 15:54:00
--  企业微信素材上传不成功
Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/material/add_material?type=image&access_token={0}"
Dim hc As new HttpClient(CExp(url, Functions.Execute("GetQYAccessToken")))
hc.Files.Add("media","c:\\data\\sample.jpg") \'指定要上传的图片文件
Dim jo As JObject = JObject.Parse( hc.getdata)
If jo("errcode") = "0" Then
    Dim dr As DataRow = DataTables("Materials").AddNew()
    dr("Type") = "image"
    dr("MediaID") = jo("media_id")
    dr("FileName") = "sample.jpg"
    dr("UpdateTime") = Date.Now
    dr.Save()
Else
    MessageBox.Show(jo.ToString)
End If

按帮助的代码，MediaID 是空的？
看了企业微信的API，企业微信没有永久素材，那该怎么改代码呢？

上传临时素材

素材上传得到media_id，该media_id仅三天内有效
media_id在同一企业内应用之间可以共享

请求方式：POST（HTTPS）
请求地址：https://qyapi.weixin.qq.com/cgi-bin/media/upload?access_token=ACCESS_TOKEN&type=TYPE


执行下载素材的代码，出现404错误

远程服务器返回错误: (404) 未找到。

Error reading JObject from JsonReader. Path \'\', line 0, position 0.
--  作者：有点蓝
--  发布时间：2019/12/11 16:24:00
--  
Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/media/upload?type=image&access_token={0}"
--  作者：erdbeer
--  发布时间：2019/12/11 20:08:00
--  
我试看看


[此贴子已经被作者于2019/12/11 20:12:01编辑过]