|
Home → WINDEV 25 → Baixando dados de produtos de um webservice soap e fazendo download das imagens de uma url |
Baixando dados de produtos de um webservice soap e fazendo download das imagens de uma url |
Started by Boller, Mar., 31 2022 5:45 AM - No answer |
| |
| | | |
|
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on March, 31 2022 - 5:45 AM |
BAIXANDO DADOS DE PRODUTOS DE UM WEBSERVICE SOAP E FAZENDO DOWNLOAD DAS IMAGENS DE UMA URL
//EXECUTANDO O WEBSERVICE E PEGANDO O BLOCO CSV E CHAMANDO A PROC QUE VAI INTERPRETAR O CSV
Resultado is string = ws_sel_prodsite_app()
InterpretaPlotaResulta(Resultado)
------------------------------------------------------------------------------------
PROCEDURE InterpretaBlocoCsv(Resultado)
HourGlass(True) L is int = 0 X is int = 1 Linha is string QtdLinhas is int = StringCount(Resultado,"§",IgnoreCase)
HDeleteAll(view_prodsiteapp)
LOOP(QtdLinhas)
L++ Linha = ExtractString(Resultado,L,"§",FromBeginning) TestaCODWEB is string = NoSpace(ExtractString(Linha,2,";",FromBeginning)) HReset(view_prodsiteapp) //a1 excel poneiro IF HReadSeek(view_prodsiteapp, CODWEB, TestaCODWEB, hIdentical) = False //nao achou view_prodsiteapp.NOMEWEB = ExtractString(Linha,1,";",FromBeginning) view_prodsiteapp.CODWEB = ExtractString(Linha,2,";",FromBeginning) view_prodsiteapp.NOMMARC = ExtractString(Linha,3,";",FromBeginning) view_prodsiteapp.REFERENCIA = ExtractString(Linha,4,";",FromBeginning) view_prodsiteapp.PRECO_A = ExtractString(Linha,5,";",FromBeginning) view_prodsiteapp.PRECO_B = ExtractString(Linha,6,";",FromBeginning) view_prodsiteapp.DESCUENTO = ExtractString(Linha,7,";",FromBeginning) view_prodsiteapp.STOCK = ExtractString(Linha,8,";",FromBeginning) view_prodsiteapp.FOTOS_PATH = "https://www.fastrax.com.py/documentos/"+NoSpace(view_prodsiteapp.CODWEB)+".png" IF HAdd(view_prodsiteapp) = True Thread_BuscaGravaFoto(view_prodsiteapp.CODWEB, view_prodsiteapp.FOTOS_PATH ) LooperAdd(LOOP_Compra_Rapida,view_prodsiteapp.CODWEB +TAB+ view_prodsiteapp.NOMEWEB +TAB+ view_prodsiteapp.NOMMARC +TAB+ view_prodsiteapp.REFERENCIA +TAB+ view_prodsiteapp.PRECO_A +TAB+ view_prodsiteapp.PRECO_B +TAB+ view_prodsiteapp.DESCUENTO +TAB+ view_prodsiteapp.STOCK)
END
END END
LooperDisplay(LOOP_Compra_Rapida,taInit) //refresh
HourGlass(False)
------------------------------------------------------------------------
PROCEDURE Thread_BuscaGravaFoto(codwebx, pathfoto)
NaoExiste is boolean = False
HReset(view_prodsiteapp_fotos)
IF HReadSeek(view_prodsiteapp_fotos,CODWEB,codwebx,hIdentical)= False THEN
NaoExiste = True
END
IF HNbRec(view_prodsiteapp) > 0 and NaoExiste = True
HTTPRequest(pathfoto)
imagemProduto is Image = HTTPGetResult()
view_prodsiteapp_fotos.CODWEB = codwebx view_prodsiteapp_fotos.FOTOBIN = imagemProduto view_prodsiteapp_fotos.FOTOTHUMB = dResize(imagemProduto,60,30,drStretched) IF imagemProduto..BitPerPixel > 0 THEN HAdd(view_prodsiteapp_fotos) ELSE END
END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/Message modified, March, 31 2022 - 5:50 AM |
| |
| |
| | | |
|
| | | | |
| | |
|