Envoyer des données JSON sur API REST par la méthode PUT

Version imprimable

11/05/2016, 15h16
Jon Shannow

Envoyer des données JSON sur API REST par la méthode PUT

Bonjour,

Voilà, je dois réaliser un petit programme qui enverra régulièrement des données à un site en http.
Je dois utiliser l'API REST, en utilisant la methode PUT et envoyer les données en format JSON
et regarder si j'ai une erreur ou pas !

J'avoue ne jamais avoir fais cela :?

Quelqu'un aurait un bout de code ? Une piste ?

Il faut que le programme tourne sur un PC sous Windows (XP/Vista/Seven/8 ou même 10) en 32 ou 64 bits.

Je pensais un programme 32 bits tout simple (j'ai à peine besoin d'une interface graphique, je programme sera executer automatiquement toutes les n min, ou déclenchement via un autre programme.

Merci d'avance

JS
11/05/2016, 16h02
Jipété

Citation:

Envoyé par Jon Shannow

Quelqu'un aurait un bout de code ? Une piste ?

Toi, t'as pas beaucoup cherché (oui, je sais, l'interface de recherche de ce forum est une calamité...)

M'en suis souvenu parce que c'est pas très vieux, et je ne sais pas du tout ce que ça vaut, mais tu voulais une piste, alors roule !
11/05/2016, 16h10
Jon Shannow

Citation:

Envoyé par Jipété

Toi, t'as pas beaucoup cherché (oui, je sais, l'interface de recherche de ce forum est une calamité...)

M'en suis souvenu parce que c'est pas très vieux, et je ne sais pas du tout ce que ça vaut, mais tu voulais une piste, alors roule !

Salut Jipété,

J'ai lu ce sujet, mais je n'ai pas tout compris, c'est après cette lecture que j'ai posté... :calim2:
11/05/2016, 16h34
Jipété

Citation:

Envoyé par Jon Shannow

J'ai lu ce sujet, mais je n'ai pas tout compris, c'est après cette lecture que j'ai posté... :calim2:

Ah, désolé de t'avoir violemment agressé, alors :P

Ceci étant dit, ça va peut-être (j'espère !) stimuler la curiosité de l'ami Jurassic Pork, qui a participé au sujet, mais lui il passe à pas d'heure (je le suspecte d'être à l'autre bout de la planète :coucou:), donc sois patient et dans l'attente, relis un coup Wikipedia.
Parce que je ne connaissais pas du tout ces termes (sauf à les avoir vus par ci par là) alors quand j'ai vu venir ce post et comme j'avais 5 minutes j'ai googlé un coup pour savoir de quoi qu'on causait, et ça ne m'a pas paru insurmontable.

Maintenant, c'est pas ma tasse de thé, ces trucs.
Courage...
12/05/2016, 00h31
jurassic pork

hello,
Si tu ne veux pas trop t'embêter tu peux utiliser curl qui est un programme en ligne de commande opensource. Il est capable de gérer les commandes REST. exemple :

Code:

curl -i -H "Accept: application/json" -X PUT -d "phone=1-800-999-9999" http://192.168.0.165/persons/person/1

On peut l'intégrer dans un programme Lazarus en utilisant un TProcess pour l'exécuter.

Ami calmant, J.P
12/05/2016, 09h38
Jon Shannow
Bonjour,
et merci de vos encouragements.

Comme le dit Jipété, tout ça à l'air assez simple sur le papier, c'est plus la manière de faire en Lazarus qui me pose un soucis, car je n'ai pas la moindre idée des objets/paramètres/méthodes que je dois utiliser.

Le principe est que je récupère des données de matériels électroniques divers via un programme développé sous Windev 10, et je dois greffer un programme qui, régulièrement, envoie ces données (pas toutes, certaines seulement, selon des paramètres) sur un serveur WEB.

Le serveur WEB est collaboratif, donc il a été défini des règles d'envois et de format des données (codifications, spécifications, ...)
Le choix s'est porté sur REST pour l'API d'envoi et JSON pour le format des données.

Comme Windev 10 n'est pas capable de faire autre chose que du POST ou du GET, je me suis que je pourrais le faire en lançant un programme Lazarus qui ferait le boulot en arrière plan. L'idée est de faire tourner le programme Lazarus avec un timer qui scrute la présence d'un fichier. Le programme Windev10 créant ce fichier toutes les n minutes, voire exceptionnellement en cas de problème (des alertes peuvent être reçues de la part du matériel, dans ce cas, on envoie ces alertes dés réceptions, ainsi que leurs corrections au cas où).

J'ai repris ton exemple JP, mais je ne suis pas sûr d'avoir besoin de tout ce que tu écris, et quelle est l'importance des lignes suivantes.
Code:

1 2 httpClient.AddHeader('Accept','application/json'); httpClient.AddHeader('Content-Type','application/json');
Bref, plein de questions, et pas beaucoup de réponses, je me fais l'impression d'un conducteur de voitures, de nuit, dans un épais brouillard et sans phares... :aie:

A+
JS
12/05/2016, 14h16
jurassic pork

hello,
pourquoi ne pas utiliser curl dans le code windev ? tu peux modifier le code windev ? quelle version ?

Ami calmant, J.P
12/05/2016, 14h50
Jon Shannow

Citation:

Envoyé par jurassic pork

hello,
pourquoi ne pas utiliser curl dans le code windev ? tu peux modifier le code windev ? quelle version ?

Ami calmant, J.P

C'est Windev 10, et oui, je peux le modifier, d'ailleurs il faut que je le modifie.
Je préfèrerais développer mon propre programme, car je vais devoir aller chercher des données dans un fichier DBF, les supprimer si c'est OK et les conserver pour les renvoyer en cas de problème.

Je pense qu'avec Lazarus je dois pouvoir m'en sortir.
12/05/2016, 15h04
jurassic pork

tu as quelle version de lazarus et sous quel O.S ? as-tu le paquetage indy installé ?
12/05/2016, 15h38
Jon Shannow

Citation:

Envoyé par jurassic pork

tu as quelle version de lazarus et sous quel O.S ? as-tu le paquetage indy installé ?

Lazarus 1.6 (la toute dernière) sous Windows. J'ai Windows 10, mais le système devra tourner de XP à 10 et en 32 ou 64 bit.

La bonne nouvelle, c'est que j'ai réussi. A 99.99% grâce à ton code ;).

Je ne suis pas sûr d'avoir besoin de tout, mais ça fonctionne. Donc, pour moi, c'est résolu ?

Juste par curiosité, c'est quoi Indy ? Et en quoi est-ce que ça m'aurait aidé ?

JS
12/05/2016, 16h36
jurassic pork

indy c'est une méga bibliothèque pour des fonctions réseaux (un peu une usine à gaz) . En fait j'avais trouvé une classe REST en pascal qui utilisait cette bibliothèque et donc cela simplifiait l'interfaçage mais si tu as réussi avec mon code tant mieux. Au fait tu as réussi à faire un PUT ?

Citation:

Envoyé par jurassic pork

indy c'est une méga bibliothèque pour des fonctions réseaux (un peu une usine à gaz) . En fait j'avais trouvé une classe REST en pascal qui utilisait cette bibliothèque et donc cela simplifiait l'interfaçage mais si tu as réussi avec mon code tant mieux. Au fait tu as réussi à faire un PUT ?

Oui, j'ai réussi et vérifier le résultat sur le site de débug qui a été mis en place. C'est nickel. Voici le code (je cache l'URL et les parties des données ~confidentielles).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Procedure Tform1.Bitbtn1click(Sender : Tobject); var http : TFPHTTPClient; st_DateTime : String; st_Retour : String; Begin http:=TFPHTTPClient.Create(nil); {JE ne sais pas si ces 2 lignes sont nécessaires...} http.AddHeader('Accept','application/json'); http.AddHeader('Content-Type','application/json'); st_DateTime:=FormatDateTime('yyyymmddhhmmss',now); http.RequestBody:=TStringStream.create('{"Code":"S0001",'+ '"DateMesure":"'+st_datetime+'",'+ '"TemperatureMesuree":18.0,'+ '"Consigne":17,'+ '"LieuMesure":"INT"}'); try st_retour:=http.Put('http://site/temperatures'); MessageDlg('Resultat','Réponse : '+inttostr(http.ResponseStatusCode)+chr(13)+chr(10)+http.ResponseStatusText+ chr(10)+chr(13)+st_retour,mtInformation,[mbOK],0); Finally http.Free; End; End;
Dans le code final j'imbriquerai un Try ... Except pour être capable de gérer les problèmes de communication internet (rares, mais existantes...)

Encore merci pour le bout de code, qui m'a donné une piste, après, un peu de recherche (ça ne fait jamais de mal) et de réflexion (uniquement le matin de 8h à 8h30, après je ne suis plus en état, l'âge que veux-tu...) et roule ma poule ! ;)