Discussion :

[Roland Chastain]

Bonjour !

Je vous propose d'apprendre à interroger un web service JSON et à analyser les données reçues.

Le web service que j'ai choisi pour cet exemple fournit des informations sur le calendrier liturgique catholique. La documentation de l'API se trouve à l'adresse suivante :

http://calapi.inadiutorium.cz/api-doc

Je souhaite consulter la date du jour dans le calendrier. Voici comment interroger le web service :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
uses
  fphttpclient;
 
const
  URL = 'http://calapi.inadiutorium.cz/api/v0/fr/calendars/general-fr/today';
 
var
  vJSONText: string;
 
begin
  vJSONText := TFPCustomHTTPClient.SimpleGet(URL);

Afin de bien comprendre ce qui se passe (et afin de pouvoir éventuellement travailler sans connexion), je colle directement dans mon code la chaîne de caractères renvoyée précédemment par la méthode SimpleGet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  vJSONText := '{"date":"2018-04-01","season":"easter","season_week":1,"celebrations":[{"title":"Dimanche de Pâques de la Résurrection du Seigneur","colour":"white","rank":"Triduum Pascal","rank_num":1.1}],"weekday":"sunday"}';

Voici comment convertir cette chaîne de caractères en données JSON sous la forme du type TJSONData :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
uses
  fpjson, jsonparser;
 
{ ... }
 
var
  { ... }
  vJSONData: TJSONData;
 
begin
  { ... }
 
  vJSONData := GetJSON(vJSONText);

Le premier avantage de cette conversion est de pouvoir reformater la chaîne de caractères :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  WriteLn(vJSONData.FormatJSON());

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
{
  "date" : "2018-04-01",
  "season" : "easter",
  "season_week" : 1,
  "celebrations" : [
    {
      "title" : "Dimanche de Pâques de la Résurrection du Seigneur",
      "colour" : "white",
      "rank" : "Triduum Pascal",
      "rank_num" : 1.1000000000000001E+000
    }
  ],
  "weekday" : "sunday"
}

Le principal avantage est de pouvoir accéder à la donnée de son choix :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  WriteLn(vJSONData.FindPath('celebrations').Items[0].FindPath('title').AsString);

Non seulement ça fonctionne, mais à présent les accents s'affichent correctement (dans la console de Notepad++).

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

Dimanche de Pâques de la Résurrection du Seigneur

Comme vous le voyez, on accède à une table associative ({}) par la méthode FindPath, et on accède à un tableau ([]) par la variable Items.

Vous trouverez ci-joint le code source complet de l'exemple.

Joyeuses Pâques !

[Roland Chastain]

Pour vous exercer, voici d'autres web services que j'ai essayés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  URL: array[1..9] of string = (
    // Obtenir votre adresse IP
    'http://checkip.dyndns.org',
    // Savoir dans quel pays se trouve une adresse IP
    'https://api.ip2country.info/ip?41.83.38.206',
    // Calendrier liturgique catholique
    'http://calapi.inadiutorium.cz/api/v0/la/calendars/general-la/today', // latin
    'http://calapi.inadiutorium.cz/api/v0/fr/calendars/general-fr/today', // français
    // Nom d'utilisateur aléatoire
    'https://randomuser.me/api/',
    // Informations sur un livre à partir de son ISBN
    'https://www.googleapis.com/books/v1/volumes?q=isbn:2070394565',
    // Chercher dans le catalogue d'un marchand de disque
    'https://itunes.apple.com/search?term=elisabeth+schwarzkopf',
    // Tournois en cours sur le site lichess.org
    'https://lichess.org/api/tournament',
    // Recherche sur le site de la BNF
    'http://gallica.bnf.fr/services/Categories?SRU=gallica%20all%20%22lamartine%22'
  );

[Roland Chastain]

Connaissez-vous d'autres web services envoyant des données au format JSON ?

Concernant Gallica, je crois comprendre en lisant cette page que le service le plus utile est celui qui renvoie du XML. Quelqu'un aurait-il un exemple simple de lecture d'un fichier XML avec les unités standard de Free Pascal ?

P.-S.
Apparemment il y a tout ce qu'il faut là. En plus c'est en français. Merci au traducteur.
Il y a aussi ce tutoriel.