「按键脚本」黑白图片上色分分钟搞定

大家好，我是3分钟学堂的郭立员。

今天和大家聊聊黑白照片上色的问题，当然肯定不是用photoshop一点点上色了。

这里用的是百度“黑白图像上色”的api接口，我们先来看一下上色效果。

使用api测试了几张黑白照片，上色以后的效果还行，这里我把代码发给大家看看。

Import "shanhai.lua"
Dim api=你的API Key
Dim Secret=你的Secret Key
Dim path="/sdcard/pictures/heibai.jpg"
Dim token=url.get("https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id="&api&"&client_secret="&Secret)
TracePrint token
dim mytoken=Encode.JsonToTable(token)
TracePrint mytoken["access_token"]
Dim base64=ShanHai.ReadFileBase(path)
Dim 图片=shanhai.CharToUrl(base64)
Dim post内容="access_token="&mytoken["access_token"]&"&Content-Type=application/x-www-form-urlencoded&image="&图片
Dim myjson=url.post("https://aip.baidubce.com/rest/2.0/image-process/v1/colourize",post内容)
TracePrint myjson
dim arr=shanhai.RegexFind(myjson,"image"": ""([^""]+)")
TracePrint "data:image/jpg;base64,"&arr(0)

使用代码之前，先去百度AI开放平台上新建一个api key，网址是

https://ai.baidu.com/ai-doc/IMAGEPROCESS/Bk3bclns3

平台直接用百度账号登录，不用重新注册，至于怎么新建应用我就不多说了。

写了这个代码其实我发现一个问题啊，我不知道用什么代码可以把base64的数据转成图片，在百度上找了半天也没有找到。

最后没办法，只能是用在线转换的网站解决了，网址：

http://tool.chinaz.com/tools/imgtobase/

好了，内容就这些，觉得还行的话，点个赞。