problème Cache LPR

Version imprimable

problème Cache LPR

Bonjour à tous !

Je viens vous voir aujourd'hui pour un petit problème avec la commande LPR.

En faite, j'envoi un fichier sur une imprimante de carte en LPR, ce fichier contient du code EPCL.
Jusque ici tout va bien, le code part bien, la carte s'imprime proprement et je n'ai aucune erreur.

Le problème survient à la seconde impression, le cache du LPR ne se vide pas, je me retrouve donc avec le texte de la nouvelle carte ET celui de l'ancienne (si le texte était plus long)

EX :

carte 1 : Mr albert jean-Gaston
carte 2 : Mme blu jeanne

J'imprime la première, c'est ok et le seconde donne "Mme blu jeanneGaston"

Cela ne viens pas des variables, elles sont bien remise à zéro et en plus le texte se "superpose"...
Concernant l'imprimante, c'est une Zebra P330i et l'impression ce passe bien avec un LP sous unix...

Désolé si je ne suis pas très clair... :/

Je vous joints mon code :

Code:

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
33
34
35
36
37
38
39
40
41
42
43
 
procedure TCarteClient.CreaFichier();
var 
F:textfile;
Content:string;
begin
 
Content:='SXY 1'                                                                                                               +#13
        +'+RIB 4'                                                                                                              +#13
        +'+C 10'                                                                                                               +#13
        +'F '                                                                                                                  +#13
        +'T 650 100 0 1 0 55 1  '+ttiers      +StringOfChar(' ', 15 - Length(ttiers))                                          +#13
        +'T 095 150 0 1 0 60 1 '+LeftStr(tnom,25)      {   +StringOfChar(' ', 48 - Length(tnom)) }                                           +#13
        +'T 095 250 0 0 0 60 1 '+LeftStr(tnom1,25)        +StringOfChar(' ', 45 - Length(tnom1))                                           +#13
        +'T 095 300 0 0 0 45 1 '+LeftStr(tlocal,25)       +StringOfChar(' ', 40 - Length(tlocal))                                          +#13
        +'T 095 350 0 0 0 45 1 '+LeftStr(tcpays,25)       +StringOfChar(' ', 40 - Length(tcpays))                                          +#13
        +'T 095 400 0 0 0 45 1 '+DateToStr(now)                                                                                +#13
        +'T 095 500 0 1 0 35 1 '+numcard      {+StringOfChar(' ', 08 - Length(numcard))}                                       +#13
        +'B 100 620 0 0 0 3 120 0 '+numcard2  {+StringOfChar(' ', 10 - Length(numcard2))}                                      +#13
        +'T 935 320 5 1 0 65 0     XXXXXXXXXXXX    '                                                                          +#13
        +'T 915 320 5 0 0 25 0                                        xxxxxx                                                '+#13
        +'T 880 325 5 0 0 30 1 xxxxxxxxxxxxxxxxxxxxxxxxxx'                                                                    +#13
        +'T 840 325 5 0 0 30 1 xxxxxxxxxxxxxxxxxxx'                                                                              +#13
        +'T 494 500 0 0 0 35 1 Tel'                                                                                            +#13
        +'T 590 500 0 0 0 35 1 : 00000000000000'                                                                              +#13
        +'T 490 540 0 0 0 35 1 Nuit'                                                                                           +#13
        +'T 590 540 0 0 0 35 1 : 00000000000000'                                                                             +#13
        +'T 490 580 0 0 0 35 1 Fax                '                                                                            +#13
        +'T 590 580 0 0 0 35 1 : 00000000000000'                                                                             +#13
        +'T 490 620 0 0 0 35 1 E-mail'                                                                                         +#13
        +'T 590 620 0 0 0 35 1 : xxxxxxxxxxxxxxxxxxxxx'                                                                        +#13
        +'I ' +#13                                                                                                                   ;
 
 assignfile(F,_fichier);
 Rewrite(F);
 Writeln(F,content);
 closefile(F);
// ShellExecute(0, 'open', 'lpr', PChar('-S AX555 -P pr1 '+_fichier), nil, SW_HIDE);
 ShellExecute(0, 'open', 'lpr', PChar('-S '+_Platine+' -P '+ _Port+' '+_fichier), nil, SW_HIDE);
 sleep (2000);
 DeleteFile(_fichier);
 
end;

donc je pense que le problème vient du LPR et d'une gestion du cache... j'espère que vous pourrez m'éclairer ! merci d'avance. ;)

17/03/2014, 08h37
Paul TOTH

ne faut-il pas ajouter un code reset en début d'impression ?
17/03/2014, 08h41
SergioMaster

Bonjour,

Citation:

Envoyé par aurik

donc je pense que le problème vient du LPR et d'une gestion du cache.

la conclusion est peut être erronée . Avant d'incriminer LPR , avez vous vérifié le Content (ou le contenu du fichier) au second passage ?

Citation:

l'impression ce passe bien avec un LP sous unix...

à priori oui si on considère qu'il s'agit du même programme (tiens Delphi compile pour UNIX ;) )

et enfin dernier point , les Zebras (enfin les versions que j'ai utilisé il y a déjà longtemps) elles aussi ont un cache !
[Edit] Grillé par Paul avec son "Reset"
si mes souvenirs sont bons Reset = ~JA en ZPL (j'ai triché , j'ai fait un :google:)

mon "donc" sera plus nuancé ;)
17/03/2014, 09h36
Invité

Merci pour vos réponse.

En ce qui concerne le code de "reset" le "F " s'en charge en EPCL.

Le content étant recréé à chaque appel de la procédure, il doit normalement être vide...

Pour l'Unix, je voulais dire par là que la même imprimante ne conserve pas le cache avec un autre programme qui tourne lui en Informix 4GL, je me suis donc tourné vers le LPR... :?
17/03/2014, 11h24
Paul TOTH

as-tu vérifier le contenu du fichier généré ? c'est encore le plus simple pour savoir s'il est correct.

TextFile utilise aussi un buffer interne, je lui préfère un File binaire avec un Reset(f, 1); BlockWrite(f, s[1], Length(s));...mais ton code devrait fonctionner je pense (il ajouter cependant un #13#10 en fin de fichier)

EDIT.

Bon après avoir tester des changement de paramètres / imprimante et code du fichier, il semblerait que ça fonctionne...

Mon Content ressemble à ça :

Code:

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
 
Content:='SXY 1'                                                                                                               +#13
        +''                                                                                                                    +#13
        +'+RIB 4'                                                                                                              +#13
        +'+C 10'                                                                                                               +#13
        +'F'                                                                                                                   +#13
        +'T 935 320 5 1 0 65 0     LA XXXXXXXXXXXX'                                                                          +#13
        +'T 915 320 5 0 0 25 0                                       xxxxxxx                                                '+#13
        +'T 880 325 5 0 0 30 1 XxxxxxxxxxxxxxxxxxxxxxxxxX'                                                                    +#13
        +'T 840 325 5 0 0 30 1 XXXXXXXXXXXXXXx'                                                                              +#13
        +'T 494 500 0 0 0 35 1 Tel'                                                                                            +#13
        +'T 590 500 0 0 0 35 1 : XXXXXXXXXXXX'                                                                              +#13
        +'T 490 540 0 0 0 35 1 Nuit'                                                                                           +#13
        +'T 590 540 0 0 0 35 1 : XXXXXXXXXXXXX'                                                                             +#13
        +'T 490 580 0 0 0 35 1 Fax'                                                                                            +#13
        +'T 590 580 0 0 0 35 1 : XXXXXXXXXXXXX'                                                                             +#13
        +'T 490 620 0 0 0 35 1 E-mail'                                                                                         +#13
        +'T 590 620 0 0 0 35 1 : xxxxxxxxxxxxxxxxxxxxx'                                                                        +#13
        +'T 650 100 0 1 0 55 1  '+ttiers                                                                                       +#13
        +'T 095 150 0 1 0 60 1 '+LeftStr(tnom,25)                                                                              +#13
        +'T 095 250 0 0 0 60 1 '+LeftStr(tnom1,25)                                                                             +#13
        +'T 095 300 0 0 0 45 1 '+LeftStr(tlocal,25)                                                                            +#13
        +'T 095 350 0 0 0 45 1 '+LeftStr(tcpays,25)                                                                            +#13
        +'T 095 400 0 0 0 45 1 '+DateToStr(now)                                                                                +#13
        +'T 095 500 0 1 0 35 1 '+numcard                                                                                       +#13
        +'B 100 620 0 0 0 3 120 0 '+numcard2                                                                                   +#13
        +'I'

j'ai ajouté un caractère "escape" après le "SXY 1" et ôté le retour chariot après le code d'impression (il causé une double impression)...

En tout cas, merci pour votre aide !