Moderador: Moderadores
cUrl := 'https://trayparceiros.commercesuite.com.br/auth.php?'+'response_type=code&consumer_key='+consumerkey+'&callback='+wcallback
aResult:= ""
cXml:=''
XML(@cXml,wnome,wsenha)
oHttp:= CreateObject( 'MSXML2.ServerXMLHTTP' )
oHttp:Open( "GET", cUrl, .f. )
oHttp:setRequestHeader('Content-Type' , 'application/json;charset=UTF-8')
oHttp:Send(cXml)
IF oHttp:status <> 200 // diferente de aprovado
MsgStop( Alltrim(Str(oHttp:status)) +" - "+ Alltrim(oHttp:ResponseText) , "Erro na requisição")
MemoWrit('resposta.html', oHttp:ResponseText)
RETURN NIL
ENDIF
MemoWrit('resposta.html', oHttp:ResponseText) // coloquei apenas para visualizar o retorno em caso de erro
x:= oHttp:responseText
//MSGINFO(x,"OK") // visualizar na tela
RETURN nil
*********************************************************************************************************
FUNCTION XML(cXml,wnome,wsenha)
cXml:=[{]+hb_eol()
cXml:= cXml + ["usuario": "]+wnome+[" ,]+hb_eol()
cXml:= cXml + ["senha": "]+wsenha+["]+hb_eol()
cXml:= cXml + [}]
HB_MemoWrit('login.xml',cXml)
RETURN cXml
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes