IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

problème Cache LPR


Sujet :

Langage Delphi

  1. #1
    Invité
    Invité(e)
    Par défaut 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 : 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
    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.

  2. #2
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Points : 28 430
    Points
    28 430
    Par défaut
    ne faut-il pas ajouter un code reset en début d'impression ?
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  3. #3
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 021
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 021
    Points : 40 934
    Points
    40 934
    Billets dans le blog
    62
    Par défaut
    Bonjour,
    Citation Envoyé par aurik Voir le message
    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 ?
    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 )

    mon "donc" sera plus nuancé
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  4. #4
    Invité
    Invité(e)
    Par défaut
    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...

  5. #5
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Points : 28 430
    Points
    28 430
    Par défaut
    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)
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  6. #6
    Invité
    Invité(e)
    Par défaut
    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 : 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
     
    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 !
    Dernière modification par Invité ; 18/03/2014 à 12h09.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème cache squid
    Par beloge2002 dans le forum Réseau
    Réponses: 1
    Dernier message: 08/06/2010, 15h41
  2. Problème cache hibernate avec MySQL
    Par bierfoot dans le forum Hibernate
    Réponses: 0
    Dernier message: 14/01/2009, 15h51
  3. [WD9] Problème cache ligne d'une table
    Par cactus666 dans le forum WinDev
    Réponses: 3
    Dernier message: 21/11/2007, 23h30
  4. HTTPService + TomCat = problème cache
    Par fages dans le forum Flex
    Réponses: 1
    Dernier message: 26/09/2007, 10h21
  5. Probléme cache avec IE et XML/XSL coté client.
    Par rataflo dans le forum XSL/XSLT/XPATH
    Réponses: 3
    Dernier message: 06/08/2005, 20h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo