Discussion :

[JP.NUAGE]

Bonjour à tous.

J'espère être sur le bon forum.

J'utilise un imprimante EPSON TM-T88IV connectée à un port USB.

L'impression des tickets de caisse se passe parfaitement. A la fin du ticket, le tiroir caisse s'ouvre. De ce côté tout va bien.

Lorsque je veux SEULEMENT OUVRIR le tiroir caisse, je n'ai trouvé comme solution que le code suivant

Code :

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

1
2
3
4
5
6
7
begin
   with Printer do
    begin
      BeginDoc;
      EndDoc;
    end;   
end;

Le tiroir s'ouvre bien, mais l'imprimante sort un centimétre de papier blanc qu'elle coupe aussitôt.

D'autre part, lorsque je sorts un récapitulatif de caisse, le tiroir s'ouvre AUSSI alors que je n'ai rien demandé. (Normal : c'est mis dans les options de l'imprimante, mais peut-on les changer par programme ?)

Y a-t-il une solution pour éviter le bout de papier ? A l'extrème le deuxième souis est moins important.

L'un des honorables membres a-t-il déjà eu ce cas ?

Merci d'avance

[Issam]

normalement tu doit avoir la commande pour ouvrir le tiroir caisse
regarde la documentation de ton imprimante de plus prés

bonne chance

[JP.NUAGE]

Envoyé par ISSAM :
regarde la documentation de ton imprimante de plus prés

Et bien non, j'ai beau lire la doc en francais, en anglais ou en allemand , il n'y a rien.

Sous DOS, j'utilisais une série de codesEsc du style Chr(27)+'@'+chr(12)+......(je n'ai pas la séquence complète sous la main) : je l'ai essayé mais cela ne fonctionne pas avec un port USB (avec un port COM d'ailleurs non plus : j'ai un soucis avec une autre imprimante non USB)

A moins (ce qui est très possible) que je ne sache pas comment faire passer ces séquences ecape par un orde CANVAS

[Eric Boisvert]

A moins (ce qui est très possible) que je ne sache pas comment faire passer ces séquences ecape par un orde CANVAS

Tu peux essayer de passer par l'API ExtEscape ...

Code :

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

1
2
 
result:=ExtEscape(printer.Handle,PASSTHROUGH ....

mais j'imagine que c'est comme ça que tu avais procédé?

[JP.NUAGE]

Envoyé par Eric BOISVERT :
mais j'imagine que c'est comme ça que tu avais procédé?

Alors là PAS DU TOUT. Même pire : à ma grande honte je ne vois pas ce que fait ce que tu me proposes et ce qui m'embête le plus, ce sont les ... sur lequels je ne sais vraiment pas quoi mettre, ni a quoi correspond PASSTHROUGH.

Bon, je vais chercher ce soir !

[Eric Boisvert]

mon sdk dit:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
int ExtEscape(
 
    HDC hdc,	// handle to device context 
    int nEscape,	// escape function 
    int cbInput,	// number of bytes in input structure 
    LPCSTR lpszInData,	// pointer to input structure 
    int cbOutput,	// number of bytes in output structure 
    LPSTR lpszOutData 	// pointer to output structure 
   );

F1 sur Escape (et non ExtEscape) me donne ceci

Code :

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

1
2
 
PASSTHROUGH	Allows the application to send data directly to a printer.

et dans windows.pas j'ai ceci comme définition...

Code :

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

1
2
3
 
function ExtEscape(DC: HDC; p2, p3: Integer;
  const p4: LPCSTR; p5: Integer; p6: LPSTR): Integer; stdcall;

donc ça devrait donner quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
 
const
  //style Chr(27)+'@'+chr(12)+.....
  codesEsc=chr(27)+'@'+chr(12);
 
//Exemple de call
result:=ExtEscape(printer.handle,PASSTHROUGH,length(codesEsc ),codesEsc,0,nil)

[JP.NUAGE]

A Eric BoisVert

Désolé, mais comme je travaille en CLX, je n'ai pas WINDOWS.pas et je ne peux pas trouver ExtEscape. J'ai essayé ce que tu m'as envoyé, mais j'ai un message disant que ExtEscape est inconnu.

[Eric Boisvert]

si ça peut aider, voici comment ExtEscape est définie:

Code :

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

1
2
3
4
5
6
7
8
 
const
  PASSTHROUGH = 19;
 
//ExtEscape
Function ExtEscape(DC: HDC; p2, p3: Integer;
                     const p4: LPCSTR; p5: Integer;
                     p6: LPSTR): Integer; stdcall External 'gdi32.dll';

cela sous entend que tu roule sur windows...

si tu travail en CLX... (désolé, je connais pas )
j'imagine que tu ne peux pas faire appèle à gdi32.dll?

[JP.NUAGE]

Envoyé par Eric BoisVert
j'imagine que tu ne peux pas faire appèle à gdi32.dll?

Si heureusement, sinon Adieux Firebird et donc plus d'appli (mais cela tu ne pouvais pas le deviner et ce n'était écrit sur mon avatar)

Je vais essayé ce que tu m'as envoyé.

De toute façon merci pour le temps que tu me consacres

[JP.NUAGE]

C'est déjà un bon début : l'imprimante n'aance plus quand je lance la commande ExtEscape. Je teste le tiroir demain. Pour l'instant je mets cette discussion en attente.