Discussion :

[Issam]

bonjour
je cherche a imprimer sur le port lpt1 avec ce code

Code :

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

1
2
3
4
5
6
7
8
{$I-} 
 AssignFile(ParrallelPort,'LPT1'); 
 Rewrite(ParrallelPort); 
 if IOResult=0 then begin 
   write(ParrallelPort,s); 
 end 
 else  MessageDlg('Vérifiez que votre imprimante est allumée et correctement reliée a '+#13+#10+'l''ordinateur puis réesséyez de nouveau .', mtWarning, [mbOK], 0); 
{$I+}

malheureusement ça ne marche que si l'imprimante est reliée et allumée sinon l'application plante

c'est une imprimante a ticket qui commande un tiroir caisse

merci et bonne fin de journée

[Just-Soft]

bonjour
je cherche a imprimer sur le port lpt1 avec ce code

Code :

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

1
2
3
4
5
6
7
8
{$I-} 
 AssignFile(ParrallelPort,'LPT1'); 
 Rewrite(ParrallelPort); 
 if IOResult=0 then begin 
   write(ParrallelPort,s); 
 end 
 else  MessageDlg('Vérifiez que votre imprimante est allumée et correctement reliée a '+#13+#10+'l''ordinateur puis réesséyez de nouveau .', mtWarning, [mbOK], 0); 
{$I+}

malheureusement ça ne marche que si l'imprimante est reliée et allumée sinon l'application plante

c'est une imprimante a ticket qui commande un tiroir caisse

merci et bonne fin de journée

je dois dire que ton problème n'est pas du tout claire, que cherche-tu ? je vois bien qu'il y a un message indiquant à l'utilisateur qu'il faut mettre l'imprimante sous tension d'où ma question que veux-tu ?

cordialement.

[Issam]

eh bien justement ça ne marche pas !!!

l'application plante sur cette ligne

Code :

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

write(ParrallelPort,s);

si l'imprimante n'est pas allumée

[Just-Soft]

Re;

plantage n'est pas synonyme de "n'imprime pas" car c'est tout à fait logique que l'imprimante n'écrit rien en mode off line.

mais si j'ai bien compris tu ne veux pas un message barbare donc tu dois vérifier d'abord si ton imprimante est sous ou hors tension (là dessus j'ai aucune idée) néanmoins si tu arrive à le savoir tu n'as qu'à rajouter un boolean comme p.e allume := TestImprimanteSousHorsTension avec TestImprimanteSousHorsTension une fonction qui te renseigne sur l'état de ton imprimante puis tu le rajoute dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
{$I-} 
if not(allume) then
ShowMessage('Mettez votre imprimante sous tension avant de lancer l''impression')
else begin
AssignFile(ParrallelPort,'LPT1'); 
 Rewrite(ParrallelPort); 
 if IOResult=0 then begin 
   write(ParrallelPort,s); 
 end 
end; 
{$I+}

[Issam]

tu ne connait pas cette fonction par hasard

Code :

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

TestImprimanteSousHorsTension

l'imprimante est une imprimante a ticket reliée a un tiroir-caisse

mais parfois pour différentes raisons(manque de papier, transformateur grillé, ... etc) mon client veux utiliser l'application sans imprimante

or ce n'est pas possible actuellement

bonne journée

[Just-Soft]

tu ne connait pas cette fonction par hasard

Code :

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

TestImprimanteSousHorsTension

c'est un nom que j'ai donné comme ça mais y'a pas de fonction prédéfinie qui porte ce nom ça je te l'assure

mais parfois pour différentes raisons(manque de papier, transformateur grillé, ... etc) mon client veux utiliser l'application sans imprimante

or ce n'est pas possible actuellement

mais pour ça j'aimerais bien savoir pourquoi est-ce impossible ? à ta place j'aurais mis une table temporaire où je mettrais les codes des tickets avec un état sur l'impression genre oui ou non avec une fréquence, une date d'impression, un descriptif (ticket imprimé, impression pas terminée, etc) comme ça ton utilisateur aaura l'occasion d'imprimer ces tickets une fois il a sous la main du papier. mais pour le courant je peux t'assurer que même ton application ne fonctionnera pas s'il est coupé pas uniquement l'imprimante ou alors faut prévoir un onduleur à plusieurs sorties et brancher l'imprimante.

Bonne chance.

[Issam]

c'est un nom que j'ai donné comme ça mais y'a pas de fonction prédéfinie qui porte ce nom ça je te l'assure

oui oui j'avais compris et c'est le but de ma question initiale


sinon l'application imprime un bout de texte au début de la session utilisateur
dés le démarrage de l'application genre :

Code :

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

Session ouverte : Lundi 27/04/2009

alors que si l'imprimante n'est pas allumée ou autre l'application plante

donc je veux quand même continuer a utiliser le logiciel même s'il n'ya pas d'imprimante

voilà