quinta-feira, 3 de março de 2016

Outro exemplo criado por Leandro Desis - WX - Busca CEP - Republica Virtual CEP - Exemplos



Forum.pcsoft.fr/pt-BR/pcsoft.br.windev/242-busca-cep-republica-virtual-cep-exemplos/read.awp

Prezados,

Outro exemplo criado por Leandro Desis:




Procedure Busca_Cep(sCep is string)

ResultadoXml is string = ""

arrRetorno is array of strings
arrRetorno = ["","","","",""]

ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ sCep +"&formato=xml")

IF ok = True THEN

ResultadoXml = HTTPGetResult()

NoXml is string = XMLExtractString(ResultadoXml,"webservicecep")

arrRetorno[1] = XMLExtractString(NoXml,"uf")
arrRetorno[2] = XMLExtractString(NoXml,"cidade")
arrRetorno[3] = XMLExtractString(NoXml,"bairro")
arrRetorno[4] = XMLExtractString(NoXml,"logradouro")
arrRetorno[5] = XMLExtractString(NoXml,"tipo_logradouro")

ELSE
arrRetorno[1] = ""
arrRetorno[2] = ""
arrRetorno[3] = ""
arrRetorno[4] = ""
arrRetorno[5] = ""
END

RESULT(arrRetorno)



Para deixar uma mensagem de aguarde......

OpenChild(WIN_msgWait,"Aguarde... Buscando informação dos sites do correio......")

arrAux is array of string
arrAux = Busca_Cep(StringDelete(EDT_CEP, "-"))

Close(WIN_msgWait)










Wx - Somando 2 imagens uma delas transparente sobre uma foto ou video obtidos com a webcam com WL (Montagem de Imagens)




//Código para somar as imagens, enviado pelo sr Jerome:

IMGBackground is an Image // Image from webcam

IMGPNG is an Image

dCopy(IMGPNG ,IMGBackGround)

//Please note that the final image IMGBackground.

//Image must have the same size.



Links de referencia:
http://help.windev.com/en-US/search2.awp…
http://help.windev.com/en-US/…
http://help.windev.com/en-US/…
http://help.windev.com/en-US/…
http://help.windev.com/en-US/…
http://help.windev.com/en-US/…


Forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1013-somando-2-imagens-uma-delas-transparente-sobre-uma/read.awp









Curso WinDev - String - 004 - Transformar String Base 64 Em pdf






Video youtube


http://doc.windev.com/en-US/?3024035&name=Uncrypt
http://doc.pcsoft.fr/fr-FR/?3024035&name=decrypte_fonction

http://doc.windev.com/en-US/?1000019412&name=fSaveBuffer
http://doc.pcsoft.fr/fr-FR/?1000019412&name=fsauvebuffer_fonction

Blog - WinDev - Curso String - 001/... - Zeros direita - Rigth
Blog - WinDev - Curso String - 002 - Retirar texto Bloco String
Blog - WinDev - Curso String - 003 - Tamanho das Strings - Length
Blog - WinDev - Curso String - 004 - Transformar String Base 654 Em pdf
Blog - WinDev - Curso String - 005 - Retirar Texto do Lado Esquerdo e Direito
Blog - WinDev - Curso String - 006 - Complet - Completar Strings - Remessa Banco
Blog - WinDev - Curso String - 007 - Contains - Contem
Blog - WinDev - Curso String - 008 - Tirar pontos Cnpj - Replace
Blog - WinDev - Curso String - 009 - String - Placa - LLL9999
Blog - WinDev - Curso String - 010 - StringBuild
Blog - WinDev - Curso String - 011 - StringFormat
Blog - WinDev - Curso String - 012 - StirngIncrement
Blog - WinDev - Curso String - 013 - Tirando Enter Observação


Nessa aula vou mostrar como transformar String Bsae 64 Em pdf

Cette leçon va vous montrer comment transformer chaîne BSAE 64 en pdf

Dans cette conférence, je vais vous montrer comment transformer chaîne Base64 en pdf
 


s_xml_documento is string="D:\amarildo\Giuliano_Sapucaia\xmlserv_15417338000110\xmlserv_Retorno\12-nfsepdf.xml"
s_meu_xml is string=fLoadText(s_xml_documento)
SAI_xml=s_meu_xml
XMLDocument("XML1",s_meu_xml)
s_string_em_formato_base64 is string=XMLRead("XML1","/resPedidoLoteNFSePDF/NFS-ePDF")   
s_transforma_pdf is string = Uncrypt(s_string_em_formato_base64 ,"",cryptNone,encodeBASE64)
//No Mobile // s_transforma_pdf = Uncrypt(s_string_em_formato_base64 ,"",cryptNone)
// //no Mobile o ultimo parâmetro e ignorado
fSaveBuffer("E:\aleva\teste3.pdf",s_transforma_pdf)
ShellExecute("E:\aleva\teste3.pdf")






















Teste

Teste
teste