DELPHI7 Quickreport : Ouvrir un tiroir de caisse via imprimante thermique sans impression de ticket

Bonjour,

Je sollicite votre aide concernant un tiroir de caisse branch� � une imprimante thermique via un c�ble RJ11.
donc on a :
TIROIR ----(RJ11) ----> IMPRIMANTE --- (USB)---> PC

Actuellement, lorsque je lance une impression avec le code suivant :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
Fticket.QRep1.Print;
Fticket.Free;

l�impression se fait et le tiroir de caisse s�ouvre correctement.

- Mon objectif est de cr�er une fonctionnalit� permettant d�ouvrir uniquement le tiroir de caisse, sans imprimer de ticket.

J�ai d�j� test� plusieurs solutions propos�es (notamment via ChatGPT), mais malheureusement j�ai fini par casser le spooler Windows et rien n�a fonctionn�.

J�ai ensuite essay� une autre approche :

Cr�er un rapport de 1 cm de hauteur,

Ajouter un QRLabel vide,

Esp�rer qu�un petit papier de 1 cm sorte et d�clenche l�ouverture du tiroir.

Mais cette solution n�a pas fonctionn� non plus : le tiroir ne s�ouvre pas.

Est-ce que quelqu�un a d�j� travaill� sur ce sujet ou aurait une solution qui fonctionne ? sachant que j'ai FastReport aussi

Merci d�avance pour votre aide et vos pr�cieux retours.

Apr�s plusieurs essais et allers-retours, voici le code qui fonctionne pour ouvrir le tiroir-caisse via une imprimante sous Delphi 7 :

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
procedure TF_Ventes.RzBitBtn23Click(Sender: TObject);
var
  hPrinter: THandle;
  DocInfo: DOC_INFO_1A;  // Type correct en Delphi 7 (ANSI)
  DocName, DataType: AnsiString;
  BytesWritten: DWORD;
  Cmd: AnsiString;
  PrinterName: AnsiString;
begin
  // Séquence ESC/POS standard pour ouvrir le tiroir
  Cmd := #27#112#0#25#250;   // Essayer aussi #27#112#1#25#250 si ça ne marche pas
  PrinterName := AnsiString(Printer.Printers[Printer.PrinterIndex]); // Imprimante par défaut
 
  if not OpenPrinterA(PAnsiChar(PrinterName), hPrinter, nil) then
    Exit;
  try
    FillChar(DocInfo, SizeOf(DocInfo), 0);
    DocName  := 'Open Cash Drawer';
    DataType := 'RAW';
    DocInfo.pDocName    := PAnsiChar(DocName);
    DocInfo.pOutputFile := nil;
    DocInfo.pDatatype   := PAnsiChar(DataType);
 
    if StartDocPrinterA(hPrinter, 1, @DocInfo) = 0 then Exit;
    try
      if not StartPagePrinter(hPrinter) then Exit;
      try
        WritePrinter(hPrinter, PAnsiChar(Cmd), Length(Cmd), BytesWritten);
      finally
        EndPagePrinter(hPrinter);
      end;
    finally
      EndDocPrinter(hPrinter);
    end;
  finally
    ClosePrinter(hPrinter);
  end;
end;

👉 Merci � tous pour vos aides, �a marche nickel maintenant 🎉