http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1533-exemplo-uso-dos-comandos-httpcreateform-httpaddparameter-httpsendform-httpgetresult/read.awp
Prezados,

Segue Exemplo de uso dos comandos: httpcreateform, httpaddparameter, httpsendform, httpgetresult:

Obs. Para descobrir o nome a ser usado no Form Virtual para as requisições de http. Use o Chrome visualizando o codigo http ou o firefox inspecionando o codigo http da pagina que deseja executar comandos.













Example: HTTPCreateForm / HTTPSendForm / HTTPRequest
//Example
//Identify the screen field name of html code
sPostParameter is string = "name = Adriano"
IF HTTPRequest("www.mysite.com", "", "", sPostParameter) = True THEN
Info("Request OK, result:", HTMLToText(HTTPGetResult(httpResult)))
END
HTTPCreateForm("FORM")
HTTPAddParameter("FORM", "name", "Adriano")
IF HTTPSendForm("FORM","www.mysite.com" ) = True THEN
Info("Request OK, result:", HTMLToText(HTTPGetResult(httpResult)))
END
//Example
//Identify the screen field name of html code
sPostParameter is string = "name = Adriano"
IF HTTPRequest("www.mysite.com", "", "", sPostParameter) = True THEN
Info("Request OK, result:", HTMLToText(HTTPGetResult(httpResult)))
END
HTTPCreateForm("FORM")
HTTPAddParameter("FORM", "name", "Adriano")
IF HTTPSendForm("FORM","www.mysite.com" ) = True THEN
Info("Request OK, result:", HTMLToText(HTTPGetResult(httpResult)))
END
ENVIAR UM ARQUIVO
HTTPCreateForm("FORM")
HTTPAddParameter("FORM", "Price", "3400")
HTTPAddFile("FORM", "Photo", "C:\Temp\MyPhoto.BMP")
...
HTTPSendForm("FORM", "www.mysite.com")
HTTPAddParameter("FORM", "Price", "3400")
HTTPAddFile("FORM", "Photo", "C:\Temp\MyPhoto.BMP")
...
HTTPSendForm("FORM", "www.mysite.com")
Assim é possível simplesmente usar sites que não possuem webservice e poder requisitar dados e recuperar informações, sem ter que abrir o site e fazer tudo em background. Recurso super interessante para extrair de sites como Sintegra, Receita Federal e outros sites que possuem formulários de dados. E assim fazer um preenchimento através de dados buscados em sites em seus sistemas.
Muito obrigado pelo exemplo Marcelo Santos.

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modifié, 24 juillet 2016 - 16:48
Nenhum comentário:
Postar um comentário