Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
collapsefalse
SetProxy( < cServer >, < nPort >, [ cUser ], [ cPass ], [ lClient ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cServer

caractere

Indica o endereço do servidor de proxy HTTP.

X

 

nPort

numérico

Indica a porta do servidor de proxy HTTP.

X

 


cUser

caractere

Indica o usuário para proxy HTTP.

  



cPass

caractere

Indica a senha para proxy HTTP.

  



lClient

lógico

Indica se irá definir na conexão feita pelo SmartClient (.T.) ou pelo AppServer (.F.). Valor padrão: .F..

  



Observações

  • Caso o parâmetro lClient seja .T., a configuração será apenas para conexões SSL feitas pelo SmartClient.
  • O parâmetro lClient está disponível a partir da build 7.00.131227A com data de geração superior a 17/03/2016.

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
#include "totvs.ch"
#include "xmlcsvcs.ch"

user function tstpost()
  Local cUrl := "http://www.google.com"
  Local nTimeOut := 120
  Local aHeadOut := {}
  Local cHeadRet := ""
  Local cPostRet := ""
   
  AAdd( aHeadOut, 'User-Agent: Mozilla/4.0 (compatible; Protheus ' + GetBuild() + ')' )
  AAdd( aHeadOut, 'Content-Type: application/x-www-form-urlencoded')
  
  SetProxy( "myproxyserver.com", 8080 )
  
  sPostRet := HttpPost( cUrl, "REQUEST=1212", "EXAMPLEFIELD=DUMMY", nTimeOut, aHeadOut, @cHeadRet )
  
  if !empty( sPostRet )
    conout( "HTTPPost OK" )
    varinfo( "WebPage", cPostRet )
  else
    conout( "HTTPPost Failed." )
  endif
  
  varinfo( "Header", cHeadRet )
return

...