ADVPL Function to download a file using SOAP or REST api

download.prw

//---------------------------------------------------------------------
/*/{Protheus.doc} Download
Download de arquivo via HTTP (SOAP, REST)

@since   14/03/2016
@version P12
@return  logic
/*/
//---------------------------------------------------------------------
Static Function Download( oWebService, cPath, cFileName )
    Local xBytes := ReadBytes( cPath )

    If Nil == xBytes .Or. 0 <> FError()
        Return .F.
    EndIf

    oWebService:SetContentType( 'application/octet-stream' )
    oWebService:SetHeader( 'Content-Disposition', 'attachment; filename=' + cFileName )
    oWebService:SetHeader( 'Pragma', 'no-cache' )
    oWebService:SetResponse( xBytes )
Return .T.