Discussion :

[Papy214]

Bonjour à tou(te)s

Je suis encore et toujours sur mon code d'imprimante à ticket.
L'impression ne pose plus de problème mais je dois avoir une fonction pour ouvrir le tiroir-caisse.
J'ai déjà trouvé ici quelques morceaux de code pour faire ça le plus simple me semblait être le suivant :

Code :

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

1
2
3
4
5
6
7
8
 
procedure OpenCashDrawer(PrinterName: string; Methode: string);
const
  OPEN_CODE: ansistring = Chr(27) + Chr(112) + Chr(48) + Chr(25) + Chr(250);
begin
 
    Escape(TPrinterWin(Printer).Handle, PASSTHROUGH, Length(OPEN_CODE),
       PAnsiChar(OPEN_CODE), nil);

Problème: ça me renvoie une jolie violation d'accès:

---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet truc.exe a déclenché la classe d'exception $C0000005 avec le message 'access violation at 0x77272373: write of address 0x0096e3e0'.
---------------------------
Arrêter Continuer Aide
---------------------------

Je sais que je suis sous Firemonkey mais l'application est en version Windows.

Qu'est-ce qui cloche la-dedans à votre avis ?

[Paul TOTH]

essai avec ça

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  Str: AnsiString;
  Len: Word;
begin
  Str := '??' + #27'@' + #27'p07y'; // Taille + Reset + Drawer
  Len := Length(Str);
  Move(Len, Str[1], 2);
  Escape(Printer.Handle, PASSTHROUGH, 0, @Str[1], nil);
end;

tu peux aussi passer par un record

Code :

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

1
2
3
4
5
6
7
 
type
  TOpenDrawer = packed record
    Len   : Word; // SizeOf(TOpenDrawer)
    Reset  : array[0..1] of Byte; // #27 '@'
    Drawer : array[0..5] of Byte; // #27'p07y'
  end;

tu peux aussi tenter ceci mais je ne sais pas ce que ça va donner en Unicode

Code :

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

1
2
3
4
5
6
7
8
 
    with Printer do
    begin
      Title := 'Ouverture tiroir';
      BeginDoc;
      Canvas.TextOut(0, 0, #27'p07y');
      EndDoc;
    end;

[Papy214]

La solution avec ESCAPE ne provoque aucune erreur mais le tiroir reste obstinément fermé.

Avec Canvas.Textout, ça imprime une bande de papier mais c'est tout.

Le seul code bien connu et fonctionnel pour le moment est le suivant:

Code :

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

1
2
3
4
5
6
7
 
  Printer.PrinterIndex := Printer.Printers.IndexOf(ParamStr(1));
  Printer.BeginDoc;
  Printer.Canvas.Font.Name := 'control';
  Printer.Canvas.Font.Size := 10;
  Printer.Canvas.TextOut(0, 0, AnsiString('A'));
  Printer.EndDoc;

Mais là aussi, ça imprime une bande de papier inutile qui ne me gène pas mais qui va forcément faire l'objet d'une réflexion du client.


petite précision ....

Le soft de base étant écrit avec Firemonkey, le code ci-dessus en fonctionne pas dans le programme. En fait, j'ai fait un exe version VCL qui ne fait que l'ouverture du tiroir et que je lance depuis mon application principale. C'est lourdingue mais je n'ai pas trouvé d'autre solution pour le moment.

[Paul TOTH]

as-tu un Delphi < 2009 pour tester en version non-Unicode ?

[Papy214]

je dois avoir un 2007 qui traine .... J'essaie demain

[Papy214]

Je viens de tenter avec delphi 7.

Même résultat ! :-(

Quelle galère ces imprimantes à ticket ...................

Y'a pas un SDK style DLL pour piloter tout ça ?

[Paul TOTH]

ah mais en relisant mon code il manque des choses

il faut passer par BeginDoc/EndDoc

Code :

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

1
2
3
4
5
6
7
8
 
      Printer.Title := 'Ouverture tiroir';
      Printer.BeginDoc;
      Len := Length(Str);
      Str := '??' + Str;
      Move(Len, Str[1] , 2);
      Escape(Printer.Handle, PASSTHROUGH, 0, @Str[1], nil);
      Printer.EndDoc;

[Papy214]

Effectivement, ça fonctionne mieux comme ça mais je conserve la petite bande de papier imprimée.

Le client s'en accordera ... Je vais pas y passer l'été :-)

Merci Paul

[Andnotor]

Y'a pas un SDK style DLL pour piloter tout ça ?

Par interface oui, c'est inclus dans le Epson OPOS ADK.