Outlook Rest api,如何存储照片?
Outlook Rest api, how to store the photo?
我认为这是一个非常简单的问题,抱歉。
我有
GET https://outlook.office.com/api/v2.0/me/contacts('AAMkAGE1M2IyNGNm===')/photo/$value
Content-Type: image/jpg
阅读照片。
但现在我不知道如何将这张照片值保存为jpg文件。
这个问题是不是太蠢了?
我正在尝试使用 ADODB 将 HTTP.responsetext 中的二进制流作为二进制流写入磁盘。
但是无法读取创建的文件。
Dim bytA() As Byte
bytA = web_HTTP.ResponseText
Set photo = CreateObject("ADODB.Stream")
photo.Type = 1
photo.Open
photo.Position = 0
photo.Write bytA
photo.SetEOS
photo.Position = 0
photo.SaveToFile "Test" & ".jpg", adSaveCreateOverWrite
photo.Close
如果有任何建议或提示,我将不胜感激。
需要帮助!
好的,这是我自己的答案:
photo.Write web_HTTP.ResponseBody
使用 ResponseBody(数组)代替 ResponseText!
我认为这是一个非常简单的问题,抱歉。
我有
GET https://outlook.office.com/api/v2.0/me/contacts('AAMkAGE1M2IyNGNm===')/photo/$value
Content-Type: image/jpg
阅读照片。
但现在我不知道如何将这张照片值保存为jpg文件。
这个问题是不是太蠢了?
我正在尝试使用 ADODB 将 HTTP.responsetext 中的二进制流作为二进制流写入磁盘。
但是无法读取创建的文件。
Dim bytA() As Byte
bytA = web_HTTP.ResponseText
Set photo = CreateObject("ADODB.Stream")
photo.Type = 1
photo.Open
photo.Position = 0
photo.Write bytA
photo.SetEOS
photo.Position = 0
photo.SaveToFile "Test" & ".jpg", adSaveCreateOverWrite
photo.Close
如果有任何建议或提示,我将不胜感激。
需要帮助!
好的,这是我自己的答案:
photo.Write web_HTTP.ResponseBody
使用 ResponseBody(数组)代替 ResponseText!