ENVIO SMS COMTELE

[Polirep]

Pessoal,

Alguem utiliza comando URL (comando internet) com o método POST?

Eu só conheço o método GET

oWS:OpenWS('https\\etc etc')

Inté

Alexandre

Polirep

[rochinha]

Amiguinho,

Métodos GET e POST fazem a mesma coisa. Estes métodos não são usados por VOCÊ e sim pelo servidor WEB.

Se você usar oWS:OpenWS('https\\etc etc') o retorno será o conteúdo da URL que você acessou.

Os métodos GET e POST apenas definem como você enviará informações à uma URL.

No método GET você envia seus parâmetros NA LINHA da URL ou seja são visíveis enquanto enviando. Veja o GoogleMaps

No método POST você envia seus parâmetros escondidos, ou seja são visíveis enquanto enviando. Exemplo página de login.

Portanto não importa se você envia o comando GET ou POST para o site dos correios, você irá receber o XML com o CEP da mesma forma.

Portanto pode usar tranquilamente seu comando. Como exemplo coloque:

? oWS:OpenWS('https\\etc etc')

[Polirep]

Rochina,

obrigado pelo retorno mas quando envio com o oWs:OpenWS('https\\etc etc') ele retorna

<Error>

<Message>

The requested resource does not support http method 'GET'.

</Message>

</Error>

[henning]

Segue um exemplo

*******************************************************************
function enviarLogDeErro(cLog)
*******************************************************************
* Envia o log de erro para o servidor
* Data de início: 08/08/2014
*******************************************************************
LOCAL oUrl, oInternet
LOCAL cData, cRet
LOCAL cParam1 := cLog, cParam2 := "hcprw"

oUrl := TURL():New( "http://www.seusite.com.br")
oUrl:cPath := "/logs"

oInternet := TIPClientHTTP():New(oUrl)
oInternet:cUserAgent := "Mozilla/4.0 (compatible; MSIE 5.01; WindowsNT 5.0)"

cData := ""
oUrl:cFile := "log.php"
WITH OBJECT oInternet
    IF :Open()
        IF :Post("log=" + cParam1 + "&sistema=" + cParam2)
            DO WHILE !Empty((cRet:=:Read()))
                cData += cRet
            ENDDO
        ENDIF
    ENDIF
    :Close()
END WITH

If cData == "true"
    MsgInfo("Log de erro enviado.")
EndIf

RETURN Nil

[Polirep]

Já resolvi.. obrigado a todos

Abraços

Alexandre

Polirep

[rubensma]

Alexandre, pode compartilhar sua solução?

Grato.