Discussion :

[roman67]

Bonjour à tous,

Lorsque j'encode en base 64 un fichier texte avec uniquement la lettre B, la string de sortie comporte une erreur.

Résultat="QgA="
Au lieu de "Qg=="

Je ne comprends pas pour la commande rajoute un A.
Le A est rajouté pour n'importe quel fichier d'entrée (autre fichier texte, jpg, pdf)
Y'a t il un paramètrage à réaliser dans la commande ToBase64String


Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim srcFile as string ="C:/Donnees/test.txt"
Dim inFile As System.IO.FileStream
Dim binaryData() As Byte
inFile = New System.IO.FileStream(srcFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
ReDim binaryData(inFile.Length)
Dim bytesRead As Long = inFile.Read(binaryData, 0, inFile.Length)
inFile.Close()
Dim base64String As String
base64String = System.Convert.ToBase64String(binaryData, 0, binaryData.Length)

[GuruuMeditation]

Ton fichier fait quelle taille? Il y a peut-être un caractère style retour à la ligne qui est dedans. On ne le vois pas, mais l'encodeur va le prendre.

[roman67]

C'était bien un caractère en trop. Le caractère null.
L'erreur provenait de la longueur de binaryData qu'il faut affecter comme tel

Code :

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

ReDim binaryData(inFile.Length - 1)

Merci à toi pour ton aide!