Je souhaite me connecter sur le player de la (relativement nouvelle) FreeBox Pop.
L'API de FREE est très bien documentée : https://dev.freebox.fr/sdk/os/ comme par exemple la première requête d'authentification
Pour information, l'API de FREE prévoit une requéte "discovery"
Merci de votre aide
L'API de FREE est très bien documentée : https://dev.freebox.fr/sdk/os/ comme par exemple la première requête d'authentification
Je ne sais pas comment "écrire" cette requête POST telle que l'API suggère de le faire. J'ai bien reconstitué l'adresse url pour se connecter et une string JSON avec les 4 paramètres demandés. Mais quelle est l'instruction pour envoyer cette demande ?Request authorization
This is the first step, the app will ask for an app_token using the following call. A message will be displayed on the Freebox LCD asking the user to grant/deny access to the requesting app.
Once the app has obtained a valid app_token, it will not have to do this procedure again unless the user revokes the app_token.
POST /api/v4/login/authorize/
Example request:
POST /api/v4/login/authorize/ HTTP/1.1
Host: mafreebox.freebox.fr
{
"app_id": "fr.freebox.testapp",
"app_name": "Test App",
"app_version": "0.0.7",
"device_name": "Pc de Xavier"
}
Pour information, l'API de FREE prévoit une requéte "discovery"
J'ai eu un retour du serveur FREE sur ma requête GET ci-dessous :If you make a HTTP get request on http://mafreebox.freebox.fr/api_version you can get the same API information as provided in mDNS.
Example request:
GET /api_version HTTP/1.1
Host: mafreebox.freebox.fr
Je reçois une réponse correcte mais elle ne contient pas le fameux "HTTP/1.1 200 OK", ce qui me fait douter de la qualité de mon code !Dim Ligne1 as String = "/api_version"
Dim MyJob As HttpJob
MyJob.Initialize("",Me)
MyJob.Download2("http://mafreebox.freebox.fr"&Ligne1, Array As String("VersionList","HTTP/1.1","MethodList","GET"))
Wait for (MyJob) JobDone (MyJob As HttpJob)
.....
Merci de votre aide