Discussion :

[bugz57]

Bonjour,
Je vous préviens je suis novice en vb (premier programme : hier matin).
J'ai développé un module sur une page web qui doit pouvoir être appelé à partir d'une application vb. Je dois lui envoyé des variables en POST.

J'ai trouvé deux façons de réaliser ça : utiliser l'objet Inet ou l'objet

XmlHttpRequest :

Code :

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

1
2
3
4
5
6
 
Dim ObjetXhr As MSXML.XMLHTTPRequest
Set ObjetXhr = CreateObject("Microsoft.XMLHTTP")
ObjetXhr.Open "POST", AdresseServeurWeb() + "MaPageWeb?get=xxxx", False
ObjetXhr.setRequestHeader "Content-Type", "Application/x-www-form-urlencoded"
ObjetXhr.send "post=yyy"

Inet :

Code :

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

1
2
3
4
5
6
7
 
Dim strURL As String, strFormData As String
 
strURL = AdresseServeurWeb() + "MaPageWeb?get=aaaa"
 
strFormData = "post=bbbb"
Me.InetSignature.Execute strURL, "POST", strFormData

Dans les deux cas ma page est appelé, les variables GET sont présentes, mais pas les POST.

[Vld44]

salut,

j'ai un javascript dans lequel je fais appel à xmlhttprequest, voilà comment ça se présente :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var method   = "POST";
var filename = "mapage1.php";
var data     = "qsdsqdsqsqqdq";
 
xhr_object.open(method, filename, true);
 
xhr_object.onreadystatechange = function() {
   if(xhr_object.readyState == 2) {
    window.location.replace('mapage2.php');
   }
}
 
xhr_object.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
xhr_object.send(data);

La différence c'est le flag de synchronisation ... Essaye pour voir

edit : ah oui, ta variable "post=yyy" me parait une mauvaise idée intuitivement :p

Appelles-là autrement on sait jamais

[bugz57]

En ce qui concerne le nom des variables je suis d'accord ça porte a confusion mais c'était pour l'exemple.

Ben effectivement tout ca fait beaucoup penser à l'ajax. Mais bizarement chez moi ne marche pas aussi facilement.

J'ai essayé ca :

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
 
Dim ObjetXhr As MSXML.XMLHTTPRequest
Set ObjetXhr = CreateObject("Microsoft.XMLHTTP")
 
ObjetXhr.Open "POST", AdresseServeurWeb() + "MaPageWeb?varget=xxxx", False
 
ObjetXhr.onreadystatechange = FunctionReadyStateChange()
 
ObjetXhr.setRequestHeader "Content-Type", "Application/x-www-form-urlencoded"
ObjetXhr.send "varpost=yyyyyy"
 
Private Function FunctionReadyStateChange()
    Debug.Print ObjetXhr.readyState
    If ObjetXhr.readyState = 4 Then
        MsgBox "Done"
    End If  
End Function

J'ai une erreur d'exécution 424 : un objet est requis. (très explicite les erreurs VB)

le debug me renvoie un affichage du readyState = 1

[ProgElecT]

Pour l'erreur signalée, c'est une question de portée de la variable, n'étant pas declaré public avec Dim (mais dans l'entête du Form) mais dans une procedure, elle n'est utilisable que dans celle-ci, donc dans la fonction elle est non connue.
l'appel à la fonction devant être faite ainsi

Code :

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

ObjetXhr.onreadystatechange = FunctionReadyStateChange(ObjetXhr)

et la petite modification de la fonction

Code :

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

1
2
3
4
5
6
7
8
Private Function FunctionReadyStateChange(ObjetApasser As Object) As Integer
FunctionReadyStateChange = 0
   Debug.Print ObjetApasser.readyState
    If ObjetApasser.readyState = 4 Then
        MsgBox "Done"
    End If  
FunctionReadyStateChange = ObjetApasser.readyState
End Function

là au moins l'erreur n'existera plus.
En VB (peut être pas dans certains autres languages de programmation)une fonction renvoie une reponse dans son NOM, d'ou l'ajout que j'ai fait dans ta fonction.

[DarkVader]

FunctionReadyStateChange ne sert à rien dans ce code en mode synchrone -
il n'est utilisé qu'en mode asynchrone -
de plus, placé à cet endroit il ne peut que bloquer l'exécution (readystate ne sera modifié qu'après l'exécution de la méthode send).
En mode synchrone, Send ne rendra la main qu'après réponse du serveur,
il est donc nécessaire par précaution d'ajouter un settimeouts.
soit

Code :

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

1
2
3
4
5
6
7
8
    With ObjetXhr
        .Open "POST", AdresseServeurWeb() + "MaPageWeb", False  
        .SetTimeouts 20000,20000,20000,20000  
        .setRequestHeader "Content-Type", "Application/x-www-form-urlencoded"    
        .send "varpost=yyyyyy"
 
        If .Status = 200 Then ret = .ResponseText
    End With

[bugz57]

Tout d'abord je tiens à vous remercier pour vos réponses.

Je crois que le setTimout est défini pour une autre version de MSXML, enfin j'ai voulu en mettre une plus récente mais le code plante.

J'ai fouillé un peu plus, et je sens que je vais devoir avoir une remise à niveau en ce qui concerne le HTTP.
Lors d'une requête post, les variables sont-elles bien transmisent dans le corps de la tramme sous la forme nomVar1=valeur&nomVar2=valeur ?

Si c'est le cas quand on exécute l'instruction

Code :

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

1
2
 
ObjetXhr.send "varpost=maVariablePOST"

la chaine "varpost=maVariablePOST" se retrouve normalement dans le corps de la tramme.
J'ai voulu vérifier que c'était bien :

Mon programme VB :

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
 
    Dim ObjetXhr As New MSXML2.XMLHTTP30
 
    Dim varPost As String
    varPost = "varpost=maVariablePOST"
    With ObjetXhr
        .Open "POST", AdresseServeurWeb() + "MaServletJava", False
   '    .setTimeouts 20000, 20000, 20000, 20000
        .setRequestHeader "Content-Length", CStr(Len(varPost))
        .setRequestHeader "Content-Type", "Application/x-www-form-urlencoded"
        If .readyState = 1 Then .send varPost
        If .Status = 200 Then
            MsgBox .responseText
        End If
    End With

Je récupère ma variable dans une servlet java :

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
 
public void doPost(HttpServletRequest pRequest, HttpServletResponse pResponse) throws ServletException, IOException {
	System.out.println("POST");
	Enumeration en = pRequest.getParameterNames();
	while(en.hasMoreElements()){
	   String nomPost = (String)en.nextElement();
           System.out.println("  -->  "+nomPost+"="+pRequest.getParameter(nomPost));
	}
	pResponse.getOutputStream().println(" < Requete POST > "+pRequest.getContentLength());
	InputStream input = pRequest.getInputStream() ;
	String str = "" ;
	for (int a = input.read(); a != -1; a = input.read()) {
	    str += ((char) a);
        }
	System.out.println("corps : "+str);
	pResponse.getOutputStream().println(str)  ;		
}

A la sortie je récupère donc :
pRequest.getParameter("varpost") -> null
pResponse.getOutputStream() -> "varpost=maVariablePOST"
Le log :

POST
corps : varpost=maVariablePOST

Si j'execute ma servlet à partir d'un naviteur internet, le résultat est inversé rien dans le corps et les variables sont valorisées avec l'instruction pRequest.getParameter("varpost")

Question simple : Pourquoi ? les variables en POST ne sont-ils pas dans le corps ? sinon ou sont-elles ? Comment les mettre au bonne endroit en VB ? Est-ce un problème d'encodage ? faut-il ajouté quelque chose dans le header ?

[DarkVader]

Tout d'abord je tiens à vous remercier pour vos réponses.

Je crois que le setTimout est défini pour une autre version de MSXML, enfin j'ai voulu en mettre une plus récente mais le code plante.

J'ai fouillé un peu plus, et je sens que je vais devoir avoir une remise à niveau en ce qui concerne le HTTP. .../...

setTimeout est disponible via la référence à « Microsoft WinHTTP Services, version 5.1»
Les données en Méthode Post sont bien transmises dans le Header contrairement à la méthode GET où elles sont transmises via l'adresse.

Je ne comprends toujours pas le if r.readystate

[bugz57]

Si le readystate est inutile je supprime pas de problème. La syntaxe me rappelle tellement l'ajax c'est un réflexe de vouloir faire de l'asynchrone

D'accord pour GET et POST mais pourquoi je ne peux pas récupérer mes variables POST en java comme je le faisais avec un envoi classique de formulaire html. Je trouve ça étrange...

[DarkVader]

Ecrit un script php pour tester la récupération de tes données -
cela tiens en peu de lignes et tu sauras d'où viens le problème.

[bugz57]

Je vais tenter ça chez moi ce weekend (pas très envie d'installer un serveur php sur le joli matériel de bureau ) , je te tiens au courant.

[bugz57]

Bonjour,
J'ai appelé php. Sans grande surprise ni illumination même résultat que par java...

code VB :

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
Dim ObjetXhr As New MSXML2.XMLHTTP30
    Dim page As String
    page = "http://localhost:5454/test.php"
    Dim varPost As String
    varPost = "varpost=maVariablePOST"
    Dim ret As String
    With ObjetXhr
        .Open "POST", page + "?varget=maVariableGet", False
        .setTimeouts 20000, 20000, 20000, 20000
        .setRequestHeader "Content-Length", CStr(Len(varPost))
        .setRequestHeader "Content-Type", "text/xml"
        .send varPost
        If .Status = 200 Then
            Debug.Print (.responseText)
        End If
    End With

code PHP :

Code php :

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
 
<?php 
echo $_SERVER['content-length'] ;
echo "GET : ";
foreach($_GET as $k => $v){
	echo "$k = $v ; " ; 
}
echo "POST : ";
foreach($_POST as $k => $v){
	echo "$k = $v ;" ; 
}
echo "REQUEST : ";
foreach($_REQUEST as $k => $v){
	echo "$k = $v ;" ; 
}
echo "ROW_POST : ".$HTTP_RAW_POST_DATA ;
?>

résultat :
GET : varget = maVariableGet ; POST : REQUEST : varget = maVariableGet ;ROW_POST : varpost=maVariablePOST

[Vld44]

si ça se trouve ils ont désactivé post dans apache.ini

[bugz57]

Si seulement...,
En principe je fonctionne avec un serveur tomcat. L'application que je veux appeler est sous java et je suis sur que les variables post sont bien activées puisque le bug survient juste quand l'appel provient de VB.

J'ai installé wamp avec les paramètres par défaut, juste pour faire le test avec php. J'ai vérifier php.ini : post_max_size = 8M

Et lors d'une requête get via un formulaire html, pas de problème.

Donc le problème ne vient pas de là.
Je pensais plutôt que .send("varpost=maVariablePost") doit être mal formé, un caractère de retour à la ligne qui manque, un élément à rajouter dans le header, genre une subtilité http que j'ai pas saisi, mais de ce côté je bloque un peu.

Parce que dans mon cas je n'arrive pas à récupérer mes variables sous leur forme habituelle. Mais j'arrive à récupérer la chaine "varpost=maVariablePost" avec la fonction request.getInputStream() en java et avec $HTTP_RAW_POST_DATA en php.

Au pire je me contente de ça, et je récupère mes données de cette manière. Mais je suis pas sur que ce soit très propre

[Vld44]

je suis sur que les variables post sont bien activées puisque le bug survient juste quand l'appel provient de VB.

je comprends plus rien, tu viens pas d'essayer en live sous php et n'as pas constaté que ça ne marchait pas non plus ?

[bugz57]

Bonjour,

Excusez moi si mes explications ont paru flou.

Quand on récupère en php des variables en post, on utilise la synthaxe :
$_POST["varpost"]

Avec cette instruction je n'atteins rien.

Par contre si j'utilise $HTTP_RAW_POST_DATA, il me retourne la chaine "varpost=maVariablePost".

Donc ca veut dire que si je veux récupérer mes différentes variables je suis obligé de faire un traitement sur ma chaine.