PowerBuilder - Utilizando HTTP Post

Recentemente tive a necessidade de utilizar o HTTP Post, chamando uma URL passando um XML e recebendo um XML de resposta.

 

No final das contas, o processo é simples, mas não achei nada "pronto" na Web de como utiliza-lo.

 

Abaixo vão os passos necessários para criação de um objeto que chama o método HTTP Post:

 

1 - Objeto com resultado Web

    - Crie um User Object do tipo Standart/InternetResult

    - Declare uma variável de instancia onde será armazenada o retorno (No nosso exemplo, criamos a variável VISRetornoWeb )

    - Na função InternetData(), atribua o parâmetro da função para a variável criada no passo acima

        VISRetornoWeb = string(data)

 

        return 1

 

2 - Criando objeto para disparar metodo HTTP Post

    - Cria um objeto do tipo Custom

    - Crie uma instancia do objeto criado na etapa 1 (No nosso caso, a instancia chama UOI_internet_resultado)

    - Crie uma função para chamar o método HTTP Post com os seguintes argumentos

        * Value String p_URL

        * Value String p_ParametroWeb (Parâmetros que serão passados para Web)

        * Reference String p_RetornoWeb (Parâmetros que serão retornados da Web)

    - Coloque o seguinte código na função

Blob Vlblb_args
String Vls_headers
Long Vll_ret

 

p_retornoWeb = ''

 

Vlblb_args = blob(p_parametroWeb)

 

vll_ret = UOI_Inet.PostURL(p_url, Vlblb_args, vls_headers,  UOI_internet_resultado)

 

if vll_ret = 1 then
 VISMSG = ""
elseif vll_ret = -1 then
 VISMSG = "Erro ao chamar o objeto de acesso a internet."
 Return -1
elseif vll_ret = -2 then
 VISMSG = "A URL informada é inválida."
 Return -1
elseif vll_ret = -4 then
 VISMSG = "Não foi possível conectar a Internet."
 Return -1
elseif vll_ret = -5 then
 VISMSG = "Não foi possível conectar a Internet utilizando protocolo seguro (HTTPS)."
 Return -1
elseif vll_ret = -5 then
 VISMSG = "Ocorreu um erro na requisão a Internet."
 Return -1
else
 VISMSG = "Ocorreu um erro não documentado no acesso a Internet. - Codigo :" + string(vll_ret)
 return -1
end if

 

p_retornoWeb = uoi_internet_resultado.visretornoweb

 

return 1