PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → JSON => WIndev
JSON => WIndev
Iniciado por Chris, 28,ago. 2017 00:53 - 3 respuestas
Publicado el 28,agosto 2017 - 00:53
Bonsoir,

Est-ce que quelqu'un pourrait m'aider à transcrire ce code en Windev ?

$apikey='xxx';
$apisecret='xxx';
$nonce=time();
$uri='https://bittrex.com/api/v1.1/market/getopenorders…;
$sign=hash_hmac('sha512',$uri,$apisecret);
$ch = curl_init($uri);
curl_setopt($ch, CURLOPT_HTTPHEADER, array('apisign:'.$sign));
$execResult = curl_exec($ch);
$obj = json_decode($execResult);


Je vous remercie d'avance.

Chris
Miembro registrado
2.566 mensajes
Popularité : +222 (260 votes)
Publicado el 28,agosto 2017 - 09:13
Bonjour,

Quelque chose qui ressemble à ça
apikey est une chaîne="xxx"
apisecret est une chaîne="xxx"
nonce est une Durée = ChaîneVersDurée(DateHeureDifférence("19700101000000",Gauche(DateHeureSys(),14)),duréeCentième)/100
uri est chaîne = "https://bittrex.com/api/v1.1/market/getopenorders"
sign est un Buffer=HashChaîne(HA_HMAC_SHA_512,uri,ChaîneVersUTF8(apisecret)) // ce buffer doit être encodé, je suppose en base64 mais aucune certitude

ch est un httpRequête
ch..URL = uri
ch..Entête["apisign"] = sign
reponse est un httpRéponse = HTTPEnvoie(ch)
SI reponse.CodeEtat = 200 ALORS
vObj est un Variant = JSONVersVariant(reponse.Contenu)
FIN


--
Cordialement,

Philippe SAINT-BERTIN
Géode Informatique
Miembro registrado
2.566 mensajes
Popularité : +222 (260 votes)
Publicado el 28,agosto 2017 - 09:32
Correction, Le code suivant doit fonctionner

apikey est une chaîne="xxx"
apisecret est une chaîne="xxx"
nonce est une Durée = ChaîneVersDurée(DateHeureDifférence("19700101000000",Gauche(DateHeureSys(),14)),duréeCentième)/100
uri est chaîne = "https://bittrex.com/api/v1.1/market/getopenorders?apikey="+apikey+"&nonce="+nonce
sign est une chaîne = Minuscule(Remplace(BufferVersHexa(HashChaîne(HA_HMAC_SHA_512,ChaîneVersUTF8(uri),ChaîneVersUTF8(apisecret))),[" ",RC],""))

ch est un httpRequête
ch..URL = uri
ch..Entête["apisign"] = sign
reponse est un httpRéponse = HTTPEnvoie(ch)
SI reponse.CodeEtat = 200 ALORS
vObj est un Variant = JSONVersVariant(reponse.Contenu)
FIN

--
Cordialement,

Philippe SAINT-BERTIN
Géode Informatique
Mensaje modificado, 28,agosto 2017 - 09:33
Publicado el 20,julio 2018 - 09:01
"Correction, Le code suivant doit fonctionner"

Effectivement cela fonctionne parfaitement bien !
Moi qui chercher comment faire pour m'authentifier via Windev sur ce genre d'API, merci infiniment !