Discussion :

[FromChevre]

Bonjour,
Pour application Accès (donc VBA ...)
Je reçois d'un webservice un fichier XML dont un des champs contient les données d'un fichier compressé.
Le but du jeu : décompresser le fichier, et lire les informations du contenu.
Problème :
- Je reçois bien les informations du xlm général (visibles en expression espionne)

Code XML :

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

1
2
3
4
5
6
7
8
9
10
11
12
<?xml version='1.0' encoding='UTF-8'?>
<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
   <S:Body>
      <IpBGetInventaireResponse xmlns="http://www.idele.fr/XML/Schema/" xmlns:ns2="http://www.fiea.org/types/">
         <ReponseStandard><ns2:Resultat>true</ns2:Resultat></ReponseStandard>
      <ReponseSpecifique>
         <NbBovins>185</NbBovins>
         <MessageZip>UEsDBC0AAAAIAO ... AAAABAAEAUAAAACIeAAAAAA==</MessageZip>
         </ReponseSpecifique>
      </IpBGetInventaireResponse>
   </S:Body>
</S:Envelope>

- Les données de la balise <MessageZip> sont extraites avec une fonction MID, placée dans la variable Inventaire (j'ai essayé string et Byte)

Code :

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

1
2
3
4
Debut = InStr(1, sxml, "<MessageZip>") + Len("<MessageZip>")
    NbCar = InStr(1, sxml, "</MessageZip>") - Debut
 
    Inventaire = Mid(sxml, Debut, NbCar + 1)

- En enregistrant le fichier avec le code suivant, je ne peux pas le lire sous windows (message : Fichier n'est pas valide) :

Code :

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

1
2
3
4
5
fileNmb = FreeFile
 
    Open CurrentProject.Path & "\" & "ESSAI.zip" For Binary Access Write As #fileNmb
    Put #fileNmb, 1, Inventaire
    Close #fileNmb

- En tentant de convertir en bin64, erreur "Paramètre incorrect" sur l'instruction Put

Code :

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

1
2
3
4
5
6
7
8
9
10
 Set oXml = New DOMDocument60 ' CreateObject("Msxml2.DOMDocument")
    Set oNode = oXml.createElement("base64")
    oNode.DataType = "bin.base64"
    oNode.text = Inventaire
 
    fileNmb = FreeFile
 
    Open CurrentProject.Path & "\" & "ESSAI.zip" For Binary Access Write As #fileNmb
    Put #fileNmb, 1, oNode.nodeTypedValue
    Close #fileNmb

Avez-vous une idée ? Pour ma part, je sèche ...

[laurent_ott]

Bonjour.
J'ai peut-être une piste : un fichier ZIP comme tout fichier a une signature, les premiers octets du fichier, pour indiquer que c'est un fichier ZIP, peu importe son extension car c'est la signature qui est lue.
Il faut donc s'assurer dans la variable "Inventaire" qu'il y a bien cette signature : &H06054b50
Pour que Windows (et les logiciels de décompression) le reconnaisse comme tel.

Voici un exemple pour créer un fichier Zip avec sa signature, mais sans données.
C'est juste une idée, au cas où ça peut aider.

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
25
26
27
28
'---------------------------------------------------------------------------------------
Private Function CreateZipFile(FileName As String, Optional MsgIfError As Boolean = True) As Boolean
'---------------------------------------------------------------------------------------
Dim FileNo As Integer
Dim ZIPFileEOCD(0 To 22) As Byte
 
' Gestion des erreurs:
Err.Clear
On Error GoTo Gest_Err
 
' Signature of the EOCD:  &H06054b50
ZIPFileEOCD(0) = val("&H50") ' 80
ZIPFileEOCD(1) = val("&H4b") ' 75
ZIPFileEOCD(2) = val("&H05") '  5
ZIPFileEOCD(3) = val("&H06") '  6
 
FileNo = FreeFile
Open FileName For Binary Access Write As #FileNo
Put #FileNo, , ZIPFileEOCD
Close #FileNo
 
CreateZipFile = True
 
Gest_Err:
If Err.Number <> 0 And MsgIfError = True Then _
    MsgBox FileName & vbCrLf & vbCrLf & "Erreur: " & Err.Number & " - " & Err.Description, vbCritical, "CreateZipFile"
Err.Clear
End Function