Hello,
We would like some advice
We have developed a REST Operation
The code is:
Class Operaciones.REST.miSCS.miSCS Extends EnsLib.REST.Operation
{
Parameter INVOCATION = "Queue";
/// 📤 Subir la imagen del usuario
Method SubirImagen(pRequest As Mensajes.Request.miSCS.SubirImagen, pResponse As Mensajes.Response.miSCS.SubirImagen) As %Library.Status
{
set httpRequest = ##class(%Net.HttpRequest).%New()
set tResponse = ##class(%Net.HttpResponse).%New()
//set httpRequest.ContentType = "application/json"
set httpRequest.ContentType = "multipart/form-data"
set url = ##class(Util.TablasMaestras).getValorMaestra("MISCS.PARAMETRIZACIONES","url")
set path = ##class(Util.TablasMaestras).getValorMaestra("MISCS.PARAMETRIZACIONES","path")
set servicio = ##class(Util.TablasMaestras).getValorMaestra("MISCS.PARAMETRIZACIONES","servicio")
set recurso = ##class(Util.TablasMaestras).getValorMaestra("MISCS.PARAMETRIZACIONES","subirImagen")
set URL = "http://"_url_path_servicio_recurso
$$$LOGINFO("URL: "_URL)
/*
//Probamos a leer una imagen local y a enviarla
Set stream=##class(%Stream.FileCharacter).%New()
Set sc=stream.LinkToFile("Pictures\mi.jpg")
While 'stream.AtEnd {
Set linea=stream.Read()
}
$$$LOGINFO("linea: "_linea)
*/
set tFormVarNames = "expediente,imagen"
set tData("expediente") = pRequest.expediente
set tData("imagen") = pRequest.imagen
//set tData("imagen") = linea
set tSC = ..Adapter.SendFormDataArray(.tResponse,"POST",httpRequest,.tFormVarNames,.tData,URL)
$$$LOGINFO("tSC: "_tSC)
if $$$ISERR(tSC){
$$$ThrowOnError(tSC)
}
if (tResponse.Data.AtEnd = 0) {
$$$LOGINFO("En SubirImagen, tamaño de tResponse: "_tResponse.Data.Size)
set linea = tResponse.Data.Read()
$$$LOGINFO("Linea: "_linea)
}
set pResponse = ##class(Mensajes.Response.miSCS.SubirImagen).%New()
do pResponse.return.Write(linea)
Quit pResponse
}
XData MessageMap
{
<MapItems>
<MapItem MessageType="Mensajes.Request.miSCS.SubirImagen">
<Method>SubirImagen</Method>
</MapItem>
</MapItems>
}
