WinHttpRequest requête POST

Version imprimable

Bonjour,

Alors voila j'ai un petit soucis avec une requête WinHttpRequest qui quand elle est trop longue est tronqué.

En admettant que xmldoc ("Microsoft.XMLDOM") contient le xml que je veux envoyer et la fonction suivante:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Set whrReq = New WinHttp.WinHttpRequest With whrReq .Open "POST", "https://monserveur.com/importexprot" .SetTimeouts 30000, 30000, 30000, 30000 .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" .SetCredentials "toto", "test", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER .Send "&flow='import'&iename='Test.test'&xmldata=" + xmldoc.XML .WaitForResponse 30000 If .StatusText = "OK" Then getHTTPResponse = .ResponseText MsgBox "Ok c'est passé!" End If If .StatusText <> "OK" Then getHTTPResponse = "" MsgBox "C'est PAS passé!" End If End With Set whrReq = Nothing
Le problème est que si mon XML devient trop grand il se fait automatiquement tronqué...

Avez-vous une idée de ou je dois chercher pour résoudre ce problème?

Pour info mon authentification marche et si le XML est plus petit je le recoit en entier et je peux le traiter.

Merci

10/02/2010, 15h28
totoen

Bon après quelques recherches je viens de remarquer que c'est de faire:

xmldoc.XML qui renvoit un XML tronqué!

Donc la je sais plus trop quoi faire pour corriger ce problème alors si vous auriez une idée ca serai génial ?

Merci
10/02/2010, 16h12
Arkham46

Bjr,

Citation:

Envoyé par totoen

xmldoc.XML qui renvoit un XML tronqué!

y a-t-il une erreur dans le xmldoc?
il y a un objet parseerror ou quelque chose d'approchant dans lequel il y a les éventuelles erreurs du XML

Citation:

Envoyé par Arkham46

Bjr,

y a-t-il une erreur dans le xmldoc?
il y a un objet parseerror ou quelque chose d'approchant dans lequel il y a les éventuelles erreurs du XML

Non je n'ai pas d'erreur dans parseerror et mon xml est valide ;)

Par exemple j'arrive à sauvegarder mon xml dans un fichier mais quand je veux l'envoyé il arrive tronqué sur le serveur!

Méthode pour sauver dans une fichier (si ca peux aider):

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
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub SaveFile(xmldoc, Version)
'-- Indenter le fichier créé
Set rdr = CreateObject("MSXML2.SAXXMLReader")
Set wrt = CreateObject("MSXML2.MXXMLWriter")
Set oStream = CreateObject("ADODB.STREAM")
oStream.Open 'Ouverture objet stream..
oStream.Charset = "ISO-8859-1"
 
wrt.indent = True
wrt.Encoding = "ISO-8859-1"
wrt.output = oStream ' "Connexion" de l'objet Writer à l'objet Stream
Set rdr.contentHandler = wrt
Set rdr.errorHandler = wrt
rdr.Parse xmldoc
wrt.flush
 
 
    Dim file_name As Variant
    Dim defaultName As Variant
    defaultName = "Account" + Version + ".xml"
    ' Obtention du nom de fichier
    file_name = Application.GetSaveAsFilename(InitialFileName:=defaultName, FileFilter:="XML Files,*.xml,All Files,*.*", _
        Title:="Save As XML File Name")
 
    ' Si l'utilisateur a cliquer cancel
    If file_name = False Then Exit Sub
 
    ' Sauvegarde du nom de fichier
    If LCase$(Right$(file_name, 4)) <> ".xml" Then
        file_name = file_name & ".xml"
    End If
 
 
 
' Sauver le fichier créé
oStream.SaveToFile file_name, 2
 
' Détruire les objets
Set rdr = Nothing
Set wrt = Nothing
Set xmldoc = Nothing
End Sub

Et la le xml est nickel ;)

Merci beaucoup poiur ton aide :ccool:

10/02/2010, 16h25
Arkham46

ben alors dur dur

ça tronque où?

un nombre de caractères fixe?
un caractère spécial (genre avec un accent) que l'encodage n'aime pas?
15/02/2010, 11h54
totoen

Bonjour,

Alors effectivement le xml se tronque toujours a la meme place la où il y a un & .

Mais si j'ai pas de & mais des é, à, ü tout ce passe comme il faut! et le xml qui arrive sur le serveur est juste

Ce qui fait que l'ore d'un appel en dure comme-ceci:

Code:

.Send "&flow=import&zip=0&iename=test.test&xmldata=<?xml version='1.0' encoding='ISO-8859-1'?><Description Language='fr'>Caisse & magasin</Description>"

le xml qui arrive sur le serveur est incomplet :

Code:

<?xml version='1.0' encoding='ISO-8859-1'?><Description Language='fr'>Caisse

Avez-vous une solution pour que je puisse passer ce & dans mon send?

Car à voir le & est interpréter comme un nouveau paramètre par le requète POST et donc il by-pass la fin de mon XML... enfin je suppose

Car comme je transforme mes & en & et le ' par ' ca me pose pas mal de problème...

D'avance merci
15/02/2010, 12h48
Arkham46

bjr,

essaye de remplacer les & dans xmldata par %26
15/02/2010, 13h30
Montor

& < > " sont des caractère spéciaux pour le XML
15/02/2010, 14h25
totoen

Youpi ca marche merci beaucoup pour ton aide Arkham46 :ccool:

Merci Zutatous je le savais déjà ca ;) mais t'as juste oublié l'apostrophe (') qui se transforme en '
15/02/2010, 14h45
Montor

Non elle n'est pas toujours le cas pour (') a vérifier ' pense a utilser une fonction Urlencode ^^