Discussion :

[PhilLU]

Bonsoir,
Je doit imprimer des barcode128 en utilisant la fonte code128.ttf.
La norme 128A demande d'ajouter un "start" (caractère ascii 208) avant et un "stop" (caractère ascii 211) après le code à générer.
J'ai tenté le code suivant et plusieurs variantes comme celui-ci:

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
var SIDbc : string;
start, stop : widechar;
start:= #208;
stop:= #211;
begin
SIDcong:=  Edit1.Text;
RichEdit1.Clear;
RichEdit1.SelAttributes.Name:='code 128';
SIDbc:= ansistring(start+SIDcong+stop);
// ou SIDbc:= Ansistring(Chr(208)+SIDcong+Chr(211));
RichEdit1.SetSelText(SIDbc+ #13#10);
Richedit1.Visible:=True;
richedit1.Print('My Document Name');
RichEdit1.Repaint;
sleep(1500);
Richedit1.Visible:=False;

Malheureusement le start et le stop ne sont pas transformés en barcode mais affichent un petit rectangle avant et après.
Comment régler ce problème???
Merci pour vos conseils!!!
Bonne soirée,
PhilLu

[Andnotor]

Impossible de dessiner un code 128 en remplaçant simplement des caractères par des traits (une police différente).
Le prototype est : Start_Code + Data + Checksum + Stop.

En prenant ceci en considération :

• Les code 128 est interprétable de trois façons différentes : A, B ou C.
  
  • A : ASCII
  • B : ASCII étendu
  • C : numérique
  
  
• Le type de codage est déterminé par le start : 103 (A), 104 (B), 105 (C), mais pas 208.
• lorsqu'on parle d'ASCII, on parle des caractères disponibles, mais il ne sont pas ordonnés comme la table
• Le checksum est un modulo 103. Il faut par conséquent le calculer pour le représenter.
• Le Stop vaut 106

Bref, utiliser une police est possible, mais il n'y a pas de rapport 1:1 (contrairement au code 39), il faut un minimum de calcul

[Lung]

Si c'est pour imprimer, pourquoi ne pas utiliser un composant fait pour ?
(Comme qrBarcode.pas qui fonctionne avec QuickReport, par exemple)