Discussion :

[AdD92]

Bonjour,
J'apprends (niveau zéro) à utiliser un Web Services. Nous avons un progiciel qui utilise des Web Services pour des ajouts/modifications de données.
Si, en exploitation nous utiliserons BizTalk, aussi bien pour des tests unitaires que pour des opérations ponctuelles, je compte utiliser VbScript que je maîtrise bien mais également qui est très rapide à mettre en œuvre pour du "one shoot".

J'ai écris 2 programmes : Lecture et Écriture.
Lecture me permet de voir si le Web Services est actif. Il fonctionne parfaitement bien.
Par contre, pour Écriture, si le pg "fonctionne" apparemment bien, en réalité, pas du tout : j'essaye d'aller écrire des données via le Web Services.
Dans un premier temps, les données sont "fausses" et ont pour but, non seulement de vérifier que le pg "fonctionne" bien mais surtout pour recevoir tous les codes retour que j'aurai à gérer dans le futur. Or, quoi que j'envoie, le Web Services me renvoie un 200 au lieu d'un 201 et/ou un 204.
Hypothèses :

• Je n'ai rien compris au code que j'ai glané ici et là (il y a beaucoup de vrai, même si je comprends la logique)
• Le Web Services fonctionne mal
• Le Web Services fonctionne bien, mais mon interprétation est mauvaise (et donc ... ?)
• ...

Bref, je patauge et j'aimerai avoir vos avis.
Grand merci d'avance.
Cordialement.
Gilles Cartairade

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
21
22
23
24
25
MsgBox "Lecture"
  Dim strURL, http, doc
'  Dim http As MSXML2.ServerXMLHTTP60  'ServerXMLHTTP60  ou (old) ServerXMLHTTP
'  Dim doc As MSXML2.DOMDocument
  ' URL du flux à lire
  'https://solfi-test.age.dompap.net/
  ' strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/ImportStandardTIT"
  ' strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/GAPAIE"
  strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/OD"
  ' Lecture du flux
  Set http = CreateObject("MSXML2.XMLHTTP")
  http.Open "GET", strURL, False
  http.send ""
  ' En cas de réussite, le code renvoyé est 200
  If (http.status = 200) Then
      MsgBox "OK"
      Set doc = http.responseXML
      MsgBox doc.XML
 '     Debug.Print doc.XML
  Else
      MsgBox "Retour Code Erreur : " & http.status & " - " & http.statusText, vbExclamation
  End If
  ' On libère les objets
  Set doc = Nothing
  Set http = Nothing

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
21
  MsgBox "Ecriture"
  Dim strURL, sEnvlength, http,doc, maj
  Set http = CreateObject("MSXML2.XMLHTTP")
  strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/OD"
'  maj = "{""estModifiable"":""true"",""etablissement"":""GPMD"",""exercice"":""2017"",""monnaie"":""EUR"",""pieces"":[{""Description"":""00006348"",""Journal"":""OD"",""Objet"":""00006348"",""lignesODCompta"":[{""Compte"":""4231000"",""MontantCredit"":0,""MontantDebit"":1,""NatureAuxiliaire"":""Fournisseur"",""referenceExterne"":"""",""tiersCode"":""099990""},{""Compte"":""5122400"",""MontantCredit"":0,""MontantDebit"":0,""referenceExterne"":""""},{""Compte"":""4231000"",""MontantCredit"":0,""MontantDebit"":3,""NatureAuxiliaire"":""Fournisseur"",""referenceExterne"":"""",""tiersCode"":""099990""},{""Compte"":""5122400"",""MontantCredit"":0,""MontantDebit"":0,""referenceExterne"":""""},{""Compte"":""4231000"",""MontantCredit"":0,""MontantDebit"":3,""NatureAuxiliaire"":""Fournisseur"",""referenceExterne"":"""",""tiersCode"":""099990""},{""Compte"":""5122400"",""MontantCredit"":0,""MontantDebit"":0,""referenceExterne"":""""}],""numeroPiece"":"""",""referenceExterne"":""00006348""}]}"
  maj = "coucou"
  sEnvlength = Len(maj)
' GET : Insert   POST : Update
  http.Open "POST", strURL, False
  http.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
  http.setRequestHeader "Content-Length", sEnvlength
  http.send (maj)
  If (http.status = 200) Then
      MsgBox "OK"
      Set doc = http.responseXML
      MsgBox doc.XML
  Else
      MsgBox "Retour Code Erreur : " & http.status & " - " & http.statusText, vbExclamation
  End If
  Set doc = Nothing
  Set http = Nothing

[AdD92]

Bonjour,

Autre chose : Lors d'un test, nous (le DBA et moi) avons arrêté l'instance SQL Serveur. Or, à notre plus grande surprise, le pg Lecture a continué à répondre "200" !!!

Je me pose donc les questions suivantes :

• L'url utilisée pointe sur une autre instance que celle imaginée : Comment le vérifier ?
• Il y a une couche de dialogue entre le serveur SQL Serveur qui "interprète" mal la réponse du Serveur : Comment le vérifier ?
• Il est temps que j'aille boire un café ! (je fatigue).

Bref, notre fournisseur du Web Service étant aux abonnés absents, je me tourne vers vous pour arriver à me dépatouiller.
Merci d'avance.
Cordialement.

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
21
22
23
24
MsgBox "Lecture"
  Dim strURL, http, doc
'  Dim http As MSXML2.ServerXMLHTTP60  'ServerXMLHTTP60  ou (old) ServerXMLHTTP
'  Dim doc As MSXML2.DOMDocument
  ' URL du flux à lire :  <a href="https://solfi-test.age.dompap.net/" target="_blank">https://solfi-test.age.dompap.net/</a>
'   strURL = "https://solfi-test.age.dompap.net/2/2/api/ImportStandard/ImportStandardTIT"
   strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/ImportStandardTIT"
'  strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/TIT"
'  strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/GAPAIE"
  Set http = CreateObject("MSXML2.XMLHTTP")
  http.Open "GET", strURL, False
  http.send ""
  ' En cas de réussite, le code renvoyé est 200
  If (http.status = 200) Then
      MsgBox "OK"
      Set doc = http.responseXML
      MsgBox doc.XML
 '     Debug.Print doc.XML
  Else
      MsgBox "Retour Code Erreur : " & http.status & " - " & http.statusText, vbExclamation
  End If
  ' On libère les objets
  Set doc = Nothing
  Set http = Nothing

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
21
22
23
  MsgBox "Ecriture"
  Dim strURL, sEnvlength, http,doc, maj
  Set http = CreateObject("MSXML2.XMLHTTP")
  strURL = "https://solfi-test.age.dompap.net/api/ImportStandard/OD"
'  maj = "{""estModifiable"":""true"",""etablissement"":""GPMD"",""exercice"":""2017"",""monnaie"":""EUR"",""pieces"":[{""Description"":""00006348"",""Journal"":""OD"",""Objet"":""00006348"",""lignesODCompta"":[{""Compte"":""4231000"",""MontantCredit"":0,""MontantDebit"":1,""NatureAuxiliaire"":""Fournisseur"",""referenceExterne"":"""",""tiersCode"":""099990""},{""Compte"":""5122400"",""MontantCredit"":0,""MontantDebit"":0,""referenceExterne"":""""},{""Compte"":""4231000"",""MontantCredit"":0,""MontantDebit"":3,""NatureAuxiliaire"":""Fournisseur"",""referenceExterne"":"""",""tiersCode"":""099990""},{""Compte"":""5122400"",""MontantCredit"":0,""MontantDebit"":0,""referenceExterne"":""""},{""Compte"":""4231000"",""MontantCredit"":0,""MontantDebit"":3,""NatureAuxiliaire"":""Fournisseur"",""referenceExterne"":"""",""tiersCode"":""099990""},{""Compte"":""5122400"",""MontantCredit"":0,""MontantDebit"":0,""referenceExterne"":""""}],""numeroPiece"":"""",""referenceExterne"":""00006348""}]}"
  maj = "coucou"
  sEnvlength = Len(maj)
' GET : Insert   POST : Update
  http.Open "POST", strURL, False
'  http.Open "GET", strURL, False
'  http.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
  http.setRequestHeader "Content-Type", "application/json; charset=utf-8"
  http.setRequestHeader "Content-Length", sEnvlength
  http.send (maj)
  If (http.status = 200) Then
      MsgBox "OK"
      Set doc = http.responseXML
      MsgBox doc.XML
  Else
      MsgBox "Retour Code Erreur : " & http.status & " - " & http.statusText, vbExclamation
  End If
  Set doc = Nothing
  Set http = Nothing

[tsuji]

Si le service web est du type restful et qu'il réponse avec un message d'encodage json, il faut le faire découvrir avec responseText au lieu de responseXML. Et puis, le http.status qui n'est pas 200 n'empêche pas de faire la même. On peut faire simplement chaque fois comme ça sans restriction.

Code vbs :

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

1
2
3
4
  http.send ""
  s = http.responseText
  MsgBox "Retour http.status : " & http.status & " - " & http.statusText & vbcrlf & "http.responseText : " & s
  'Debug.Print "Retour http.status : " & http.status & " - " & http.statusText & vbcrlf & "http.responseText : " & s

Quant à http.status qui ne coincide pas ce qu'on attend, ça peut être dû à mal interprétation de tous les côtés, et en tout cas, il faut d'abord établir que la fonctionnalité requise soit effectivement faite côté serveur et puis on s'occupe l'émis du http.status approprié après, je pense. Et le code en question est en gros capable de bien mener ce qu'on veut transmettre du côté client au départ. C'est le côté serveur qu'il faut s'en occuper à ce moment là.

[AdD92]

Merci pour tout.

J'ai "tanné" mon fournisseur pour qu'il résolve mon problème.

J'avais réalisé un test unitaire sur tous les web services mis à disposition et envoyé les codes retour (status) au fournisseur.
Ces codes retour l'ont interpelé et il s'est penché (sérieusement) sur mon cas.
Finalement, il s'est avéré que l'URL n'était pas bonne mais l'appel arrivait - à 90% - par des "chemins dérivés" au serveur, les 10% restant fournissant un 404.
Ce sont les 404 qui leur ont mis la puce à l'oreille : En effet, ils n'utilisent pas le code retour (status) mais donnent toute l'information dans le http.responseText.
Le status répond toujours (doit toujours répondre) 200 (faux positif).
Maintenant que l'URL est bonne, le status est toujours 200, mais dans le http.responseText, j'ai la bonne information.
Le fournisseur pense que ça serait une bonne idée de s'intéresser au Status Code ... Ben voyons !
Enfin !
En tout cas, grand merci pour les avis, cela m'a permit de mieux comprendre les Web Services.
Merci.
Cordialement.