ASP로 이미지 업로드 작업 중인데, 아래 와 같이 오류가 발생 합니다.
어떤 부분이 잘못 되었는지, 확인 좀 부탁드립니다.
Status : 400
ResponseText : {“msg”:“Timed out uploading an image.”,“code”:-603}
Function readImage(imageLocation)
Const adTypeBinary = 1
Dim adoStream, imageData
Set adoStream = Server.CreateObject(“ADODB.Stream”)
adoStream.Open
adoStream.Type = 1
adoStream.LoadFromFile imageLocation
imageData = adoStream.Read
adoStream.Close : Set adoStream = Nothing
readImage = imageData
End Function
Function ToBin(toConvert)
Dim objStream, data
Set objStream = Server.CreateObject(“ADODB.Stream”)
objStream.Type = 2
objStream.Mode = 3
objStream.Open
objStream.WriteText toConvert
objStream.Position = 0
objStream.Type = 1
ToBin = objStream.Read
objStream.Close
Set objStream = Nothing
End Function
PhyImageUrl = "D:\WEB\editor\201805\20180528_event.jpg"
BOUNDARY = "---------------------------012345678901234567890123456"
TWO_HYPHENS = “–”
strReqS = “Content-Disposition: form-data; name=”“file”"; filename="“20180528_event.jpg”" " & vbCrLf &_
“Content-Type: image/jpeg” & vbCrLf & vbCrLf
Set objStream = Server.CreateObject(“ADODB.Stream”)
objStream.Type = 1 'adTypeBinary
objStream.Mode = 3 'adModeReadWrite
objStream.Open
objStream.Write ToBin(BOUNDARY & vbCrLf)
objStream.Write ToBin(strReqS)
objStream.Write readImage(PhyImageUrl)
objStream.Write ToBin(vbCrLf & BOUNDARY & TWO_HYPHENS & vbCrLf)
objStream.Position = 0
BINARYPOST = objStream.Read
objStream.Close
Set objStream = Nothing
Set objHttp = Server.CreateObject(“MSXML2.ServerXMLHTTP”)
objHttp.Open “POST”, “https://kapi.kakao.com/v1/api/story/upload/multi”, False
objHttp.SetRequestHeader “POST”, "/v1/api/story/upload/multi HTTP/1.1"
objHttp.SetRequestHeader “Connection”, "Keep-Alive"
objHttp.SetRequestHeader “Host”, "kapi.kakao.com"
objHttp.SetRequestHeader “Authorization”, "Bearer "& access_token
objHttp.SetRequestHeader “Cache-Control”, "no-cache"
objHttp.SetRequestHeader “Content-Type”, “multipart/form-data; boundary=”& BOUNDARY
objHttp.Send BINARYPOST
Response.write "
Status : "& objHttp.Status
Response.write "
ResponseText : "& objHttp.ResponseText
Response.End