Hi Guys,
I've a JSON file and I'm using the below code to post it but I'm geting "HTTP/1.1 415 Unsupported Media Type" error, could help pls?
Set BinaryMIMEPart=##class(%Net.MIMEPart).%New()
Set contentdisp="form-data; name="_$CHAR(34)_"file"_$CHAR(34)_"; filename="_$CHAR(34)_""_$CHAR(34)
Do BinaryMIMEPart.SetHeader("Content-Disposition",contentdisp)
Set stream=##class(%FileBinaryStream).%New()
Set stream.Filename=FilePath
Do stream.LinkToFile(FilePath) Set BinaryMIMEPart.Body=stream
Do BinaryMIMEPart.SetHeader("Content-Type","text/plain")
Set TextMIMEPart=##class(%Net.MIMEPart).%New()
Set TextMIMEPart.Body=##class(%GlobalCharacterStream).%New()
Do TextMIMEPart.Body.Write(FilePath)
Set TextMIMEPart.ContentType="text/plain"
Set TextMIMEPart.ContentCharset="us-ascii"
Do RootMIMEPart.Parts.Insert(BinaryMIMEPart)
Set writer=##class(%Net.MIMEWriter).%New()
Set SentHttpRequest=##class(%Net.HttpRequest).%New()
Set status=writer.OutputToStream(SentHttpRequest.EntityBody)
if $$$ISERR(status) {do $SYSTEM.Status.DisplayError(status) Quit}
Set status=writer.WriteMIMEBody(RootMIMEPart)
if $$$ISERR(status) {do $SYSTEM.Status.DisplayError(status) Quit}
S IP=$P(CallbackHost,"//",2)
Set SentHttpRequest.Server=$P(IP,"/")
et SentHttpRequest.Https=1
Set SentHttpRequest.SSLConfiguration="RTLS"
Set ContentType= "multipart/form-data; boundary="_RootMIMEPart.Boundary
Set SentHttpRequest.ContentType=ContentType
set url="/"_$P(IP,"/",2,*)
set status=SentHttpRequest.Post(url)
Set StateCode=SentHttpRequest.HttpResponse.StatusCode
Set StateL=SentHttpRequest.HttpResponse.StatusLine
Set Resp=SentHttpRequest.HttpResponse.Data.Read()
</p>
Thanks
</body></html>