[VB.NET] Concaténer des images

Version imprimable

25/11/2004, 12h06
franculo_caoulene

[VB.NET] Concaténer des images

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 :D ) et sans redénérer l'image qui me ramènerait à mon problème de qualité original.

Merci d'avance.
25/11/2004, 17h33
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:

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
26/11/2004, 09h32
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.

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

Code:

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:

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.

26/11/2004, 15h32
franculo_caoulene
Même avec un div ca ne fonctionne pas!
Code:

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?

J'ai trouvé une solution :

Code:

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)