ADVPL Post com arquivo HTTPQuote filename FWRest

                                                    
                                          
User Function file()     
Local cRoute := '' 
Local cHeaderRet := '' 
Local cDirDest := '' 
Local aHeader := {}
Local cCRLF := CRLF
Local cParameters := 'Content-Disposition: form-data; name="'+aFileXML[1][1]+'"; filename="'+cDirDest + aFileXML[1][1]+'" ' + cCRLF     //Envio de Arquivo especificando o Content-Type                     

aadd(aHeader,'User-Agent: Mozilla/4.0 (compatible; Protheus '+GetBuild()+')')
aadd(aHeader,"account-key:"+::cAccounKey)
aadd(aHeader,"app-key:"+::cAppKey)
aAdd(aHeader,"Content-Type: multipart/form-data")

cRespJSON       := HTTPQuote(cRoute, "POST", "", cParameters, , aHeader, @cHeaderRet) 

Return( Nil )                                                    

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Um abraço, e até a próxima