[求助]移动开发指南帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]移动开发指南帮助

共有3143人关注过本帖树形打印复制链接主题：[求助]移动开发指南帮助

无限5180

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00

[求助]移动开发指南帮助 发帖心情

Post By：2019/3/26 12:06:00 [显示全部帖子]

老师《foxtable移动开发指南》中的关于微信永久素材，在公众号的帮助中，找不到“删除永久素材”的帮助，请老师指点一下。

无限5180

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00

Post By：2019/3/26 15:09:00 [显示全部帖子]

Dim tb As Table = e.Form.Controls("table1").Table

tb.DataSource = DataTables("Materials")

Dim dr As DataRow = tb.DataTable.find("编号 = '" & bh & "' ")

If dr IsNot Nothing Then

Dim url As String = "https://api.weixin.qq.com/cgi-bin/material/del_material?access_token='{0}'&media_id='{1}'"

Dim med As String = dr("mediaID")

Dim hc As new HttpClient(CExp(url, Functions.Execute("GetAccessToken"),med))

Dim jo As JObject = JObject.Parse( hc.getdata)

If jo("errcode") = "0" Then

messagebox.show("微信服务器已删除")

Else

messagebox.show("微信返回错误:" & jo.ToString)

Return

End If

End if

返回错误：

{

"errcode": 40001,

"errmsg": "invalid credential, access_token is invalid or not latest hint: [4bdjjA0243vr29!]"

}

但：GetAccessToken没有问题呀，因为上传图片时能执行GetAccessToken

无限5180

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00

Post By：2019/3/26 15:30:00 [显示全部帖子]

命令窗口：

Dim st As String = Functions.Execute("GetAccessToken")

output.show("GetAccessToken:" & st)

执行结果：

GetAccessToken:19_2a0zygmLD4NVOE80Y09j8ipgNili8aWuNsE3Wtbuku9IfPjmOqvAx58Q0KU4pxRophlBkkDGUNH5C-PrAqlBaeWYPN77U5VyPsJ2OTlplZKXQMWdEp97MAROjkOcyg3Va3UhP0mE9CAxkwQmFVWgACAWMN

测试没有问题，但用在删除就有问题

[此贴子已经被作者于2019/3/26 15:34:58编辑过]

无限5180

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：284 积分：2793 威望：0 精华：0 注册：2012/10/26 0:45:00

Post By：2019/3/26 18:01:00 [显示全部帖子]

谢谢老师，原因找到了，是我把CExp函数的变量加了单引号造成的错误。

下一主题 >> << 上一主题

主题：[求助]移动开发指南帮助