marcioe Posted June 27, 2023 Report Share Posted June 27, 2023 Pessoal, bom dia Será que tem como baixar uma imagem da Internet, tipo assim https://www.google.com/search?q=7891114029734+JPG ou Assim https://www.google.com/search?q=CHAVE+PHILLIPS+1/8X5+JPG Dai fazer o Dowload, ou algo do genero Essa não funciona, a grande maioria dos produtos não localiza http://www.eanpictures.com.br:9000/api/gtin/7896806700069 Esse acima não dá certo Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 27, 2023 Report Share Posted June 27, 2023 https://www.pexels.com/pt-br/procurar/ferramentas/ https://pixabay.com/pt/images/search/ferramentas/ https://br.freepik.com/fotos-vetores-gratis/ferramenta https://pt.vecteezy.com/fotos-gratis/ferramentas Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 27, 2023 Author Report Share Posted June 27, 2023 Precisava de um exemplo (PRG) Quote Link to comment Share on other sites More sharing options...
emotta Posted June 27, 2023 Report Share Posted June 27, 2023 veja se essa função te ajuda Static Function DownLoadFile(cFile,cDestino) Local cEndereco := cFile Local oHttp Local cHtml Local lRet := .F. oHttp := TIpClientHttp():new( cEndereco ) oHttp:Open(cEndereco) cHtml := oHttp:readAll() If ValType(cHtml) == "C" .and. Len(cHtml) > 0 fErase(cDestino) MemoWrit(cDestino,cHtml) lRet := .t. EndIf Return lRet Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 27, 2023 Report Share Posted June 27, 2023 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42239&p=253843&hilit=GRABAR+IMAGEN&sid=06d293ba843ae6dbf27bbb7727a12518#p253843 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=39108&hilit=grabar+imagen&sid=06d293ba843ae6dbf27bbb7727a12518 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36967&p=220581&hilit=grabar+imagen&sid=06d293ba843ae6dbf27bbb7727a12518#p220581 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=31218&p=182144&hilit=grabar+imagen&sid=06d293ba843ae6dbf27bbb7727a12518#p182144 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=32803&p=193180&hilit=BAJAR+imagen&sid=06d293ba843ae6dbf27bbb7727a12518#p193180 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=41069&p=245863&hilit=DOWNLOAD+IMAGE&sid=06d293ba843ae6dbf27bbb7727a12518#p245863 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=40973&p=245490&hilit=DOWNLOAD+IMAGE&sid=06d293ba843ae6dbf27bbb7727a12518#p245490 Divirta-se, tem muito mais. Digite: "DOWNLOAD IMAGE" Regards, saludos. Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 27, 2023 Author Report Share Posted June 27, 2023 Olá amigo,s mas eu não sei exatamente onde a imagem esta, pois é uma pesquisa na net Exemplo ou seja eu não sei qual imagem a pessoa irá escolher *------------------------------------------------------------------------------- * Pesquisa a Foto Pelo Nome do produto * * https://www.google.com/search?q=chave *------------------------------------------------------------------------------- function FOTO_GOOGLE(v_Nome_Produto,v_Codigo_Barras) If !IsInternet() MsgInfo('Problemas Com Acesso a Internet !',SISTEMA) return .f. ENDIF *---------------------------------------------------------------------------- * Se o Código de Barras For em Branco, * Já Corta de Cara, e busca Pelo Nome *---------------------------------------------------------------------------- IF SUBSTR(v_Codigo_Barras,01,3) != '789' v_Codigo_Barras := '' ENDIF *---------------------------------------------------------------------------- IF !EMPTY(alltrim(v_Nome_Produto)+alltrim(v_Codigo_Barras)) IF SUBSTR(v_Codigo_Barras,01,3) = '789' WebEXE3("https://www.google.com/search?q=" + ALLTRIM(v_Codigo_Barras) + ' JPG' ) //Busca Pelo Código de Barras ELSE WebEXE3("https://www.google.com/search?q=" + ALLTRIM(v_Nome_Produto) + ' JPG' ) //Busca Pelo Nome ENDIF ELSE MsgStop('O Campo Nome ou Código de Barras Não Poderá Ser Vazio !',M->SISTEMA) ENDIF return Hoje está assim, dai ele abre o browse e pesquisa. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 28, 2023 Report Share Posted June 28, 2023 O que é ? WebEXE3 Abs. Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 28, 2023 Author Report Share Posted June 28, 2023 *---------------------------------------------------- Function WebExe3(cLink) // visualiza e navega na pagina *---------------------------------------------------- default cLink:="http://www.google.com" clink:=GetEnv( "ComSpec" )+" /C START "+STRTRAN(cLink," ","+") WAITRUN(cLink, 0 ) RETURN Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.