Доброе утро, я пытаюсь загрузить изображение (PNG) через ALM Api rest.Это функция:
Function uploadFicheroALM(nombreScript, rutaFichero, executionId, value)
leerConfiguracion
readContextoEjecucion
inicializarDatosALM
nombreFichero = rutaFichero
sBoundary = "--a123b"
contenidoFichero = URLEncode(convertirBase64("C:/Users/User/Desktop/prueba.png"))
requestUrl = almUrl&"/qcbin/rest/domains/"&almDominio&"/projects/"&almProyecto&"/runs/"&executionId&"/attachments"
'vbCrLf = salto de linea
auth = Base64Encode(almUser&":"&almPass)
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "POST", requestUrl, false
o.setRequestHeader "Authorization", "Basic "&auth
o.setRequestHeader "Content-type", "multipart/form-data; boundary=a123b"
'Description
request = request & sBoundary & vbCrLf
request = request & "Content-Disposition: form-data; name=""description""" & vbCrLf
request = request & "Descripcion de prueba" & vbCrLf
'File Name
request = request & sBoundary & vbCrLf
request = request & "Content-Disposition: form-data; name=""filename""" & vbCrLf & vbCrLf
request = request & "prueba.png" & vbCrLf
'File Name
request = request & sBoundary & vbCrLf
request = request & "Content-Disposition: form-data; name=""override-existing-attachment""" & vbCrLf
request = request & "y" & vbCrLf
'File
request = request & sBoundary & vbCrLf
request = request & "Content-Disposition: form-data; name=""file""" & vbCrLf & vbCrLf
request = request & "Content-Transfer-Encoding: base64" & vbCrLf
request = request & contenidoFichero & vbCrLf
request = request & "--a123b--"
o.send request
respuesta = o.responseText
End Function
Она может сообщать «описание», «имя файла» и «изображение», как вы видите на снимке:
Но если я открою картинку с изображением «Неизвестная ошибка файла», может кто-нибудь мне помочь? Заранее спасибо.