Discussion :

[totoen]

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 :

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
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

[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

[Arkham46]

Bjr,

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

[totoen]

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 :

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
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

[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?

[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 VBA :

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

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

le xml qui arrive sur le serveur est incomplet :

Code XML :

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

<?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