Histórico da Página

import.css=/download/attachments/3279126062824/newLayouttecnologia.css

...

...

Função: HTTPCGet

...

Permite emular um client HTTP - Hypertext Transfer Protocol diretamente da máquina onde o SmartClient está sendo executado, através de uma função da linguagem AdvPL, acessando um determinado documento HTML, publicado em um servidor Web, utilizando o método GET, permitindo a passagem de parâmetros via URL e aguardando por um tempo determinado (time-out)

...

pela

...

resposta

...

do

...

servidor

...

solicitado.

Sintaxe

...

...

Bloco de código
collapse false
HttpCGet( < cUrl >, [ cGetParms ], [ nTimeOut ], [ aHeadStr ], [ @cHeaderGet ] )

Parâmetros

...

...

...

...

...

...

Retorno

...

Nome	Tipo	Descrição
cRet	caractere	Retorna a string que corresponde a requisição solicitada.

Observações

Importante

...

: Função disponível em versões iguais ou superiores a 7.00.

...

111010P

...

• O

...

• parâmetro cGetParams representa um texto que será enviado via "Get".

• (Exemplo

...

• "param1=

...

• value1&m2=value2").
• Caso não seja retornado o documento antes do término do time-out, especificado na chamada da função, ou não seja possível localizar o servidor; seja por falha de resolução de DNS ou por erro de sintaxe ao especificar a URL, a função retornará nulo (NIL).
• Ao utilizar a função HTTPCGet(), pode-se especificar um Content-Type diferenciado para o conteúdo postado. Caso não seja especificado um Content-Type, alguns servidores tratam a informação postada como sendo um dado do tipo 'application/x-www-form-url', ou seja, seria o equivalente a um formulário HTML postado via browser. Desta forma, outros servidores poderão não reconhecer tal informação postada dessa forma. Para especificar que o conteúdo postado deve ser tratado como um Get de formulário HTTP, deve-se passar no

...

• parâmetro um elemento 'Content-Type: application/x-www-form-url'.

Exemplos

#INCLUDE "TOTVS.CH"
User Function tstCGet()
  Local cUrl

      := "endereço do get"
  Local cGetPar

 := "String com parâmetros a ser enviado na URL"
  Local nTimeOut

 := 2 //

Segundos
  Local aHeaderStr:= {}
  Local cHeaderRet:= ""
  Local cResponse

  := ""
  Local cErro

    := ""
  aAdd(aHeaderStr,"Content-Type| text/xml; charset=utf-8" )
  aAdd(aHeaderStr,"Content-Length| " + Alltrim(Str(Len(cGetPar))) )
  cResponse := HttpCGet( cUrl , cGetPar , nTimeOut , aHeaderStr , @cHeaderRet )
  VarInfo("Header:", cHeaderRet)
  VarInfo("Conteudo:" ,cResponse) 
  VarInfo("Erro:", HTTPGetStatus(cErro) )
  VarInfo("Erro:", cErro )
Return

Abrangência

Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja também

• Interface HTTP