Problème avec les données binaire

Version imprimable

Je cherche à écrire une classe VB pour encoder et décoder des données en Base64. Mon code marche très bien pour les chaîne de caractères conventionnel mais plante lamentablement lorsqu'il s'agit de données binaire.

L'encodage consiste à convertir les données binaires en une chaîne de caractère ASCII puis d'encoder la chaine en base64. Le decodage quand à lui se limite à décoder une chaîne en base64 et l'écrire dans un fichier vierge ou dans une variable (suivant qu'il s'agisse de données binaires ou de texte).

J'ai trouvé un article (particulièrement indigeste) sur MSDN parlant de ce problème, mais l'anglais n'est pas mon fort et les notions abordées commence à me dépasser légèrement. :p

http://msdn.microsoft.com/library/de...og6_topic1.asp
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ' Récupération de données binaires dans un fichier Private Function getBinaryFile(strFilePath As String) ' Déclaration des variables Dim oStream Dim i, strValue ' Création de l'objet Set oStream = New ADODB.Stream ' Ouverture de l'objet oStream.Open ' On récupère les données binaires du fichier oStream.Type = 1 oStream.LoadFromFile strFilePath ' On convertit les données binaires en ASCII strValue = StrConv(oStream.Read, vbUnicode) For i = 1 To LenB(binValue) Step 2 strValue = strValue & Chr(AscB(MidB(binValue, i, 1))) Next ' On renvoie les données binaires getBinaryFile = strValue ' On détruit l'objet Set oStream = Nothing End Function
Mais le résultat est éroné même s'il est similaire à l'original comme le rajout de " 'd" en debut de chaine ou les changements des "Ž" en "}" ou encore des "‰" en "0".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Original (extrait): GIF89aËè³ ï ïïïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, Ëè (...) FgT!ÃÒŽÙi‰ ©É 9‰ ; Copie (extrait): 'dGIF89aËè³ ï ïïïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, Ëè (...) FgT!ÃÒ}Ùi0 ©É 90
Je ne pense pas que l'encodage/decodage en base64 soit fautif puisque c'est un code que j'ai recyclé à partir de l'ASP et qu'il fonctionnait parfaitement avec des mail contenant du text en base64 (chaîne de caractères) et des images jointes (données binaires).

Donc voilà, si quelqu'un a des conseils sur comment éffectuer proprement la conversion de données binaire en chaines de caractère sous VB6, ou l'adresse d'un tutorial simple et explicite sur ce sujet, je suis preneur. :)
Merci d'avance pour toutes propositions permettant de faire avancer mon schmilblick. ^^

A noter que sous ASP, la conversion du binaire en ASCII était plus simple (le code ci dessous ne reprend que la convertion binaire vers ASCI):
Code:

1 2 3 4 5 6 7 8 Private Function BinaryToString(binValue) Dim i, strValue For i = 1 To LenB(binValue) strValue = strValue & Chr(AscB(MidB(binValue, i, 1))) Next BinaryToString = strValue End Function

J'ai fait quelques essais de copie de fichier en binaire en recopiant le flux binaire du fichier source vers le fichier cible sans encodage/decodage en base64.

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
43
44
45
46
47
48
 
    Private Sub BinaryCopy(strFilePathSource As String, strFilePathTarget As String)
        Dim oStream
        Dim iFile As Integer
        Set oStream = New ADODB.Stream
        oStream.Open
        oStream.Type = 1
        oStream.LoadFromFile strFilePath
        iFile = FreeFile
        Open "D:\essais1.bmp" For Binary As #iFile
 
' Cas 1: En renvoyant directement le flux binaire on se retrouve avec une concatenation
' en debut de fichier d'une chaine de 12 caractères "  (d      ".
'        Put #iFile, , oStream.Read
 
' Cas 2: Si on tente de tronquer les 12 premier caractères on se retrouve avec un
' fichier complètement éroné, aussi bien avec Mid qu'avec MidB on perd la moitié des
' données...  X(
'        Put #iFile, , Mid(oStream.Read, 13)
'        Put #iFile, , MidB(oStream.Read, 13)
 
' Cas 3: En convertissant d'abord le flux en unicode avant de le renvoyer dans le
' fichier, on se retrouve avec une concaténation en debut de fichier d'une chaine de 4
' caractères ""
'        Put #iFile, , StrConv(oStream.Read, vbUnicode)
 
' Cas 4: En convertissant d'abord le flux en unicode puis en tronquant les 4 premier
' caractères avant de le renvoyer dans le fichier, on se retrouve avec un fichier dont
' les 4 premier caractères ont été corrompue.
'        Put #iFile, , Mid(StrConv(oStream.Read, vbUnicode), 5)
 
' Cas 5: En convertissant d'abord le flux en unicode puis en tronquant les 4 premier
' caractères avant de le renvoyer dans le fichier, on se retrouve avec un fichier dont
' les 4 premier caractères ont été corrompue.
        Put #iFile, , StrConv(Mid(oStream.Read, 5), vbUnicode)
 
        Close #iFile
 
' Si on écrase les quatre premier octet avec une chaine contenant les 4 premiers
' caractères du fichier original, après avoir appliquer le cas 4 ou le cas 5, on se
' retrouve avec un fichier sain... (O_O)
        iFile = FreeFile
        Open "D:\essais1.bmp" For Binary As #iFile
        Put #iFile, , "GIF89"
        Close #iFile
 
        Set oStream = Nothing
    End Sub

09/08/2005, 10h34
AlainTech

Je ne comprends pas le but de transformer des données binaires en caractères.
Il y aura forcément perte d'information...
09/08/2005, 11h48
Lachessis

Il y a perte d'information si tu interpretes les caractères spéciaux.
La convertion est nécessaire si on ne veut pas que VB interpréte les dit caractères quand on passe les données à la fonction d'encodage.
Si j'envoie directement du binaire à la fonction d'encodage en base64, les données seront tronquées au premier caractère nul (dans un gif yen a un parmis les 10 premiers caractères). Sinon, comme je l'ai dit plus haut, je recycle un code qui marchait très bien en ASP, cad qu'en suivant le cursus :

binaire --convertion--> ASCII --encodage--> base64 --decodage--> ASCII --convertion--> binaire

...j'avais bien des données identique en entrée et en sortie. :(

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 Private Sub BinaryCopy(strFilePathSource As String, strFilePathTarget As String) Dim oStream Dim iFile As Integer ' On ouvre le fichier source Set oStream = New ADODB.Stream oStream.Open oStream.Type = 1 oStream.LoadFromFile strFilePath ' On récupère les données en tronquant les 4 premier caractères. strValue = StrConv(MidB(oStream.Read, 5), vbUnicode) ' On ferme le fichier source Set oStream = Nothing ' On encode les données strValue = Base64Encode(strValue) ' On affiche le résultat de l'encodage MsgBox "strValue: " & strValue ' On decode les données strValue = Base64Decode(strValue) ' On écrit les données dans un nouveau fichiers iFile = FreeFile Open "D:\essais1.bmp" For Binary As #iFile Put #iFile, , strValue Close #iFile ' On écrase manuellement les quatre premiers caractères iFile = FreeFile Open "D:\essais1.bmp" For Binary As #iFile Put #iFile, , "GIF8" Close #iFile End Sub
Avec cette procédure j'arrive bien à encoder puis décoder une image gif de 26ko sans qu'elle soit corrompue... Donc la logique est bonne, il y a juste un bug lors de l'écriture des données dans le fichier cible.

A prioris, le problème vient du fait que la ligne...
Code:

1 2 Put #iFile, , strValue
...écrit la chaîne de caractères précédé de sa taille. Ce qui est encore plus étrange à mon gout, c'est que cette erreur ne se produit pas tant qu'on ne passe pas la chaine de caractère par le biais d'une variable (qui aurait pu être utile pour stocker les 4 premiers caractères qu'on tronque).

Donc en fait, il faudrait juste trouver le moyen d'écrire la chaine de caractère sans la précéder de sa taille. :)

Si j'ai bien compris mon probkème viens du fait que la mèthode put interprète les chaines de caractères BSTR comme de simple chaine LPWSTR. Il me faut donc convertir ma chaine strValue en Byte Array ou en chaîne LPWSTR.

J'ai trouvé quatre solutions pour effectuer celà (les temps sont pris sur un sur un P4 2800):

La première consiste à convertir la chaîne BSTR en Byte Array puis d'écrire le Byte Array dans le fichier cible. Mais ce code semble particulièrement lent...
26 ko ---> 405 ms
400 ko ----> 284'000 ms
680 ko ----> 1'161'000 ms
15'850 ko ----> quelques jours ?
Code:

1 2 3 4 5 6 7 8 9 10 Dim b() As Byte ReDim b(1 To Len(strValue)) As Byte For i = 1 To Len(strValue) b(i) = Asc(MidB(strValue, i + i - 1)) Next iFile = FreeFile Open strFilePathTarget For Binary As #iFile Put #iFile, , b Close #iFile
La deuxième solution consiste à convertir la chaîne BSTR en une chaîne LPWSTR puis d'écrire la chaîne LPWSTR dans le fichier cible. Cette méthode semble beaucoup plus rapide que la précédante mais la chaîne obtenue ne serras pas exploitable en dehors de la function où elle a été créée.
26 ko ----> 31 ms
400 ko ----> 330 ms
680 ko ----> 547 ms
15'850 ko ----> 13'258 ms
Code:

1 2 3 4 5 6 7 8 9 10 Dim tmp As String iFile = FreeFile Open strFilePathTarget For Binary As #iFile tmp = Space(Len(strValue)) For i = 1 To Len(strValue) Mid(tmp, i, 1) = Chr(Asc(MidB(strValue, i + i - 1, 2))) Next Put #iFile, , tmp Close #iFile
La troisième solution (et la plus barbare) consiste à écrire la chaîne BSTR dans le fichier cible, puis récupérer les données (en tronquant les 4 premiers caractères) qui viennent d'être écrite dans un Byte Array, éffacer le fichier cible qui viens d'être créer, et enfin, écrire le Byte Array dans le fichier cible final. Ce code est l'un des plus éfficace...
26 ko ----> 15 ms
400 ko ----> 15 ms
680 ko ----> 63 ms
15'850 ko ----> 1'250 ms
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 iFile = FreeFile Open strFilePathTarget For Binary As #iFile Put #iFile, , strValue Close #iFile Dim bytValue() As Byte iFile = FreeFile Open strFilePathTarget For Binary As #iFile ReDim bytValue(1 To Len(strValue)) As Byte Get #iFile, 5, bytValue Close #iFile If Dir(strFilePathTarget) <> "" Then Kill strFilePathTarget iFile = FreeFile Open strFilePathTarget For Binary As #iFile Put #iFile, , bytValue Close #iFile
La dernière reprend la solution évoquer plus haut dans le thread et est tout aussi barbare... Mais elle est la plus éfficace.
26 ko ----> 15 ms
400 ko ----> 15 ms
680 ko ----> 47 ms
15'850 ko ----> 1'171 ms
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim b() As Byte ReDim b(1 To 4) As Byte For i = 1 To 4 b(i) = Asc(MidB(strValue, i + i - 1)) Next iFile = FreeFile Open strFilePathTarget For Binary As #iFile Put #iFile, , Mid(strValue, 5) Close #iFile iFile = FreeFile Open strFilePathTarget For Binary As #iFile Put #iFile, , b Close #iFile