Discussion :

[franculo_caoulene]

Salut,

Il y a quelques temps j'ai tenté de générer des images de codes à barres. J'ai bien réussi à les générer mais la qualité des images faisait que les codes à barres n'étaient pas lisibles par le scanner.
J'ai donc décidé de créer les images (de bonne qualité) moi même et de les coller les unes aux autres afin de constituer mon code.
Seulement, je ne vois pas comment je pourrais faire cette concaténation.
Je ne souhaite pas utiliser un webcontrols.image pour chaque caractère.
Je suis dans le flou total là et j'en appelle à votre expérience!

Auriez-vous une idée sur la façon de procéder, en utilisant qu'un webcontrols.image (ou bien un façon simple d'en implémenter 50 ) et sans redénérer l'image qui me ramènerait à mon problème de qualité original.

Merci d'avance.

[Ditch]

En utilisant un objet Bitmap, tu devrais pouvoir en faire une seule image.

J'arrive à créer une image avec des choses que je génère de manière dynamique avec cette méthode. Cela devrait t'aider.

Code :

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

1
2
3
Bitmap bm = new Bitmap(largeur, hauteur);
Graphics g = Graphics.FromImage(bm);
gr.Draw(...);

d'apres mes souvenirs. Il faut peut etre définir le style de trait etc aussi. Mais c'est faisable :d

[franculo_caoulene]

J'ai déjà fait ce genre de truc. Le problème c'est que l'image n'est pas assez nette pour le scanner et celui-ci ne reconnait pas le code à barres. C'est pourquoi j'ai fait des images nettes avec photoshop et je souhaite les concaténer (sans les modifier) telle une chaîne de caractères.

[franculo_caoulene]

J'ai réussi à faire mon code à barre avec des images concaténées grâce à un placeholder.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Function CodeBarre(ByVal chaine As String, ByRef PH As PlaceHolder) As PlaceHolder
        Dim i As Int16
 
        For i = 0 To chaine.Length - 1
            Dim cb As Image = New Image()
            cb.ImageUrl = "moncheminphysique" & chaine.Substring(i, 1) & ".gif"
            Dim espace As Image = New Image()
            espace.ImageUrl = "moncheminphysique\nbsp.gif"
            PH.Controls.Add(cb)
            PH.Controls.Add(espace)
        Next
        Return (PH)
    End Function

Seulement j'ai deux interrogations maintenant.
1/ Pourquoi la fonction précédente insère bien mon image nbsp.gif mais pas la fonction qui suit?! Puisque c'est toujours la même image.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Function CodeBarre(ByVal chaine As String, ByRef PH As PlaceHolder) As PlaceHolder
        Dim i As Int16
        Dim espace As Image = New Image()
        espace.ImageUrl = "moncheminphysique\nbsp.gif"
 
        For i = 0 To chaine.Length - 1
            Dim cb As Image = New Image()
            cb.ImageUrl = "moncheminphysique" & chaine.Substring(i, 1) & ".gif"
            PH.Controls.Add(cb)
            PH.Controls.Add(espace)
        Next
        Return (PH)
    End Function

2/ Comment positionner un placeholder comme on le souhaite sur la page? Car ni dans le contrôle image, ni dans le placeholder j'ai t'attribut style (ou du moins je ne peux pas le définir).

Merci d'avance.

[franculo_caoulene]

Même avec un div ca ne fonctionne pas!

Code :

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

1
2
3
<DIV ID="CB">
			<asp:PlaceHolder id="PlaceHolder1" runat="server"></asp:PlaceHolder>
</DIV>

Je désespère! Je ne trouve pas de solution! Comment faites vous?

[franculo_caoulene]

J'ai trouvé une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim i As Int16
        PH.Controls.Add(New LiteralControl("<span style=""position:absolute;left:5;top:100;"">"))
        For i = 0 To chaine.Length - 1
            Dim cb As HtmlImage = New HtmlImage()
            Dim espace As HtmlImage = New HtmlImage()
 
            cb.Src = "images/CodeBarre/" & chaine.Substring(i, 1) & ".gif"
            espace.Src = "images/CodeBarre/nbsp.gif"
            PH.Controls.Add(cb)
            PH.Controls.Add(espace)
        Next
        PH.Controls.Add(New LiteralControl("</span>"))
        Return (PH)