ADVPL - Como baixar imagens web para o sistema?

Segue exemplo de como realizar o download de imagens. É altamente recomendado adicionar tratamentos se o download foi bom sucedido.

Pode se utilizar as funções type e valtype para verificação.

O exemplo está no gitHub..

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} GETURLIMG
Salva imagem por URL
 
@author     Eurai Rapelli
@since      06/05/2015
 
@param      cUrl , Caracter , Endereço HTTP
@return     cCaminho , Caracter , Local onde foi armazenado arquivo
 
@example    U_GetUrlImg( 'https://udesenv.com.br/assets/images/universo-desenvolvedor-logo-320.webp' )
 
@see        http://www.udesenv.com.br
 
@obs        Conteudo pode ser utilizado desde que respeite as referencias do autor.
/*/
User Function GETURLIMG( cUrl )
Local cHtml := ''
Local cCaminho := ''
Local cPath    := '\'
 
 
 
Default cUrl := 'https://udesenv.com.br/storage/media/uploads/202107/advpl_vscode.png'
 
 
cHtml := HttpGet( cUrl )
 
cCaminho := cPath + SubStr( cUrl, Rat("/",cUrl) + 01 )
MemoWrite( cCaminho, cHtml )
 
 
Return( cCaminho )

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

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