Discussion :

[joefou]

Bonjour à tous !

Je rencontre un soucis ave la création d'un fichier binaire dans lequel j'inscris des instructions à destination d'une imprimante spéciale ; voici le code utilisé:

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
 
        Try
            If File.Exists(CheminFichier) Then
                File.Delete(CheminFichier)
            End If
            Fichier = New FileStream(CheminFichier, FileMode.Create, FileAccess.Write)
            BW = New BinaryWriter(Fichier)
            Texte = ChrW(10)
            Texte += "123456"
            Texte += ChrW(29) & "w" & ChrW(0) & ChrW(0)
            Texte += ChrW(29) & "P" & ChrW(1)
            Texte += ChrW(29) & "h" & ChrW(60)
            Texte += ChrW(29) & "H" & ChrW(0)
            Texte += ChrW(29) & "f" & ChrW(0)
            Texte += ChrW(29) & "k" & ChrW(4) & CodeBox.Text.Trim() & ChrW(0)
            Texte += ChrW(10)
            Texte += removeAccents("Libellé produit")
            Texte += ChrW(12)
            BW.Write(Texte)
            BW.Flush()
            Fichier.Flush()
        Catch Iex As Exception
            MsgBox(Iex.Message, MsgBoxStyle.Exclamation)
        Finally
            If Not BW Is Nothing Then
                BW.Close()
            End If
            If Not Fichier Is Nothing Then
                Fichier.Close()
            End If
            Fichier = Nothing
        End Try

Le contenu du fichier ainsi créé est visible sur la pièce jointe (je n'ai pas pu le mettre directement visible dans le message )

En l'occurrence j'ai toujours un "4" en début de fichier, et je ne l'inscrit nulle part. Qu'ai-je omis dans mon code ?

D'avance merci !