Discussion :

[Guillaume110376]

Salut,

Je souhaite via une requête HTTP (méthode POST), récupérer sous format XML un ensemble de données depuis un site. Le site en question m'a confirmé que je pouvais utiliser du VBScript pour recevoir les données et ma donné comme exemple le code suivant (qui forcément n'est pas en VBS, mais en PHP).

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 <?php
//permet d'afficher le document en XML
  header('Content-type: text/xml; charset=UTF-8');
 
 //remplacer VOTRE_TOKEN par votre token
 define('TOKEN', 'VOTRE_TOKEN');
 
 //call à appeler, ici GetOrders
 define('CALL', 'GetOrders');
 
 //Indifférement Sandbox ou Production
 define('MODE', 'Sandbox');
 
 //Pas besoin de xml pour GetOrder
 $xml = '';
 
 echo callWS($xml);
 
 function callWS($xml){
 
     //url du web service
     $service_url = 'https://.../webservice/';
 
     //encapsule les données dans un tableau
     $curl_post_data = array(
         'TOKEN' => TOKEN, 
         'CALL' => CALL, 
         'MODE'=> MODE,
         'REQUEST' => $xml
         );
 
     $curl = curl_init();
     curl_setopt($curl, CURLOPT_URL, $service_url);
     curl_setopt($curl, CURLOPT_SSL_VERIFYPEER, false);
     curl_setopt($curl, CURLOPT_SSL_VERIFYHOST, false);
     curl_setopt($curl, CURLOPT_HEADER, false);
     curl_setopt($curl, CURLOPT_POST, true);
     curl_setopt($curl, CURLOPT_POSTFIELDS, $curl_post_data);
     curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
     $curl_response = curl_exec($curl);
     curl_close($curl);
 
     //XML à parser
     return $curl_response;
 }
 
 ?>

j'ai fais ce code VBS

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
 
Option Explicit
 
'Déclaration des variables
Dim oXMLHTTP
Dim StrTOKEN, StrCALL, StrMODE, StrREQUEST, strEnvelope, StrURL
 
'Initialisation des données pour la requête
StrURL = "https://.../webservice/"
StrTOKEN = "abcdef0123456789abcdef123456789abcdef123" 'fictif pour l'exemple
StrCALL = "GetOrders"
StrMODE = "Sandbox"
StrREQUEST = ""
strEnvelope = "Token=" & StrTOKEN & "&Call=" & StrCALL   & "&Mode=" & StrMODE & "&Request=" & StrREQUEST
 
'Objet XMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
With oXMLHTTP
	.open "POST", StrURL , False
	.setRequestHeader "Content-type: text/xml; charset=UTF-8","application/x-www-form-urlencoded"
	.send strEnvelope
	wScript.Echo .responseText
	.abort
End with

mais la réponse du serveur est le suivant

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
 
<Result>
<Request>
<Date>2012-08-08T17:20:00+02:00</Date>
<Call/>
<Token/>
<Mode/>
</Request>
<Response>
<Error>
<Type>Parametres</Type>
<Message>Token manquant</Message>
</Error>
</Response>
</Result>

Si quelqu'un aurait une idée sur où je bug ?
merci par avance

[ProgElecT]

Salut

J'ai un gros doute sur la ligne 14, les &

Code :

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

1
2
'strEnvelope = "Token=" & StrTOKEN & "&Call=" & StrCALL & "&Mode=" & StrMODE & "&Request=" & StrREQUEST
 strEnvelope = "Token=" & StrTOKEN & " Call=" & StrCALL & " Mode=" & StrMODE & " Request=" & StrREQUEST

[tsuji]

La ligne #14 devrait marcher comme telle sauf si les données contiennent les caractères qui doivent être mis en forme d'encodage-url; des données comme montrées sont épargnées d'encodage supplémentaire. Le problème c'est la ligne #20, plus spécifiquement, le premier paramètre doit être Content-type, tout court: c'est le nom de la clé.

Code :

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

1
2
	'.setRequestHeader "Content-type: text/xml; charset=UTF-8","application/x-www-form-urlencoded"    'incorrect
	.setRequestHeader "Content-type","charset=UTF-8; application/x-www-form-urlencoded"

[Guillaume110376]

Merci à tous pour votre aide.
Malheureusement je n'ai pu aboutir à mon programme.
Impossible de comprendre le pourquoi du comment.

[tsuji]

Tout d'abord, il faut y avoir la volontée d'études et de faire comprendre... sans ça, on n'y peut rien vous aider ou aider soi-même.

[Guillaume110376]

Tout d'abord merci de l’intérêt pour mon post.

Effectivement je baisse les bras sur cette problématique à défaut d'aboutir.

Il s'agit pourtant d'un simple appel POST via un xmlhttp, mais la gestion du TOKEN reste un mystère, même pour les développeurs du site en question.

J'ai bien tenté votre suggestion, mais avec toujours la même réponse du serveur: TOKEN manquant !

Si vous avez d'autres idées, je suis preneur et à votre écoute.

[tsuji]

J'ai regardé la version originale en php et tiré conclusion que la page qui expose la service devrait attender une requête de mime multipart/form-data. Ca explique pourquoi elle ne trouve pas les données postées.

Voici ce que je ferais pour tester: c'est un cas où on poste une requête de ce genre sans toutfois les données binaires. Pour les cas où elles contienent les données intransèquement binaires, c'est un peu plus compliqué que ça.

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
26
27
28
29
30
31
32
33
StrURL = "https://.../webservice/"
StrTOKEN = "abcdef0123456789abcdef123456789abcdef123" 'fictif pour l'exemple
StrCALL = "GetOrders"
StrMODE = "Sandbox"
StrREQUEST = ""
 
set odic=createobject("scripting.dictionary")
odic.add "TOKEN", StrTOKEN
odic.add "CALL", StrCALL
odic.add "MODE", StrMODE
odic.add "REQUEST", StrREQUEST
 
'assez arbitraire, d'ailleurs
boundary="----------------------------3a72933b6b94"
 
startpart="--" & boundary & vbcrlf
sformdata=""
for each entry in odic
    sformdata=sformdata & startpart
    sformdata=sformdata & "Content-Disposition: form-data;" & " "
    sformdata=sformdata & "name=""" & entry & """" & vbcrlf & vbcrlf
    sformdata=sformdata & odic(entry) & vbcrlf
next
 
sendform="--" & boundary & "--" & vbcrlf
 
set oxmlhttp=createobject("msxml2.xmlhttp.3.0")
with oxmlhttp
    .open "POST", StrURL, false
    .setRequestHeader "Content-type", "multipart/form-data; boundary=" & boundary & ";"
    .send sformdata & sendform
    wScript.Echo .responseText
end with

Voilà ce que vous pouvez faire pour tester la fonctionalité fondamentale.