Discussion :

[chekkal]

Bonjour à tous,

Pour ouvrir un tiroir caisse connecté à une imprimante on à qu'a passer des commandes à l’imprimante qui ordonnera l'ouverture du tiroir caisse. Cependant je suis tombé sur une caisse connectée directement au PC et sans imprimante et je voudrais pouvoir l'ouvrir mais j'y arrive pas.

[SergioMaster]

Bonjour,

sans marque/modèle du tiroir caisse, sans même savoir sur quel port se fait la connexion la seule réponse possible est : vérifiez auprès du fabricant s'il propose des API

[chekkal]

Bonjour,

Désolé , la marque est "smart pos", la caisse est branché par cable USB directement au PC

[SergioMaster]

Désolé mais c'est trop peu d'informations ! SmartPos c'est plus que vague et fait plutôt référence à des pc spécialisés
Quand vous nous fournirez à minima l'API du fabricant (ce qu'il faut chercher) peut-être aurez vous de l'aide

[chekkal]

Il y avait un catalogue avec mais je n'arrive pas à le trouver

[mistercactus]

Salut,

Comme a dit SergioMaster, donne-nous au moins le modèle exact, ou le lien d'où tu l'as acheté, quelque chose de précis

Tu peux pas aller demander dans un garage une pièce pour ta voiture, et juste dire que c'est une VW

[chekkal]

Désolé , il y a rien ecrit a part "SMART POS" et "made in china"

[SergioMaster]

Bonjour,
toujours en panne

Regardez dans les paramètres du PC (gestionnaire de périphériques) pour récupérer plus d'informations

[chekkal]

Bonjour,

désolé pour ce délai de réponse la caisse n'est pas chez moi. J'ai regardé dans Gestionnaire de périphérique et la caisse est affichée "usb serial controller" et en regardant les paramètres de la caisse j'ai trouvé que la caisse n'est pas installé!.

[chekkal]

j'ai essayé ce bout de code

Code :

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

1
2
3
4
5
Printer.BeginDoc;
Printer.Canvas.Font.Size := 10;
Printer.Canvas.Font.Name := 'control';
Printer.Canvas.TextOut(0, 0, 'A');
Printer.EndDoc;

mais ça marche pas

[tourlourou]

Quid de la séquence ESC p m t1 t2 décrite page 11 du récapitulatif des commandes ESC/POS dans cette discussion ?

[SergioMaster]

J'ai regardé dans Gestionnaire de périphérique et la caisse est affichée "usb serial controller" et en regardant les paramètres de la caisse j'ai trouvé que la caisse n'est pas installé!.

Si la caisse se trouve dans le gestionnaire de périphérique alors vous devez pouvoir trouver des informations sur le driver, le constructeur etc...
Au pire, utilisez les WMI pour chercher les informations

Je suis d'accord avec Toulourou, les séquences escape sont devenues une sorte de norme, le tout est d'envoyer cela au bon périphérique !
à priori vous avez à un port série donc c'est plutôt via un TComport que vous accéderez à votre caisse (il me semble que j'ai un bout de code D7 qui traine mais je garanti rien)

fonction de recherche dans les forums https://www.developpez.net/forums/d1...tiroir-caisse/

[SergioMaster]

Après fouilles archéologiques

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
uses ..., CPort;
 
Type
   TTiroir = class
      Port : string;
      ComPort : TComPort;
   private
   public
      constructor Create(AOwner: TComponent); dynamic;
      destructor Destroy; override;
      procedure Initialisation;
      procedure EnvoyerSurTiroir(NumLigne : Integer; Port, Str : String);
   end;
 
implementation
constructor TTiroir.Create(AOwner: TComponent);
begin
   ComPort := TComPort.Create(nil);
//   FAffichagePersistant := False;
end;
 
destructor TTiroir.Destroy;
begin
   ComPort.Free;
   inherited;
end;
 
procedure TTiroir.EnvoyerSurTiroir(NumLigne: Integer; Port, str: string);
var
   Masque : string;
   Operation : PAsync;
begin
   if Port = '' then
      exit;
   ComPort.Open;
   InitAsync(Operation);
   try
      Masque := chr($1B)+'@';
      ComPort.WriteStrAsync(Masque,Operation);
      ComPort.WaitForAsync(Operation);
      Masque := AnsiLeftStr(str,60);
      ComPort.WriteStrAsync(Masque, Operation);
      ComPort.WaitForAsync(Operation);
   finally
      DoneAsync(Operation);
      ComPort.Close;
   end;
end;
 
procedure TTiroir.Initialisation;
var
   Operation : PAsync;
   ordre : string;
begin
   Port := VariablesGlobales.PortConnexionAfficheur;
   if Port = '' then
      exit;
 
   ComPort.Port := Port;
   ComPort.Open;
 
   InitAsync(Operation);
   try
      // Initialisation
      ordre:=chr($1B)+chr($40);
      ComPort.WriteStrAsync(Ordre, Operation);
      ComPort.WaitForAsync(Operation);
 
      // Overwrite mode  ????? le faut-il pour l'imprimante
      ordre:=chr($1F)+chr($01);
      ComPort.WriteStrAsync(ordre, Operation);
      ComPort.WaitForAsync(Operation);
 
   finally
      DoneAsync(Operation);
      ComPort.Close;
   end;
end;

malheureusement je n'ai pas/plus ce qui était mis dans la variable operation et qui dépend du matériel