Discussion :

[Lauper]

Bonjour à tous ! J'utilise delphi 10.4 (Sydney) la version Community Édition et j'ai une application en FMX déployée sur Windows et Android.

Je voudrais que mon application peu importe la plateforme puisse faire l'impression (ticket de caisse) avec comme option : l'impression automatique, voir ce qui sera imprimé et la génération d'un pdf (pour peut-être l'envoyer par mail). Alors ma question est comment faire, du moins quel outils ou méthode utilisé pour mon besoin ?

Ce n'est pas par faute d'avoir cherché, mais j'ai vu pas mal d'outils telle que FastReport ou Rave ou encore TMS, mais, en fonction de ma licence (Community, donc gratuit) et de la licence de ces outils (de préférence gratuit aussi), je ne connais pas vraiment les limites ou encore jusqu'a où je peux aller voire si c'est vraiment adapté à ce que je veux faire, pour rappel ce que je veux reste assez simple (je pense), mais on ne sait jamais.

[SergioMaster]

Bonjour,

Pour avoir fait les deux, tickets de caisse et Pdf j'écrirais que :
- pour les tickets reine ne vaut l'envoi direct (au besoin je peux retrouver mon code pas si vieux)
- pour Pdf FastReport convient parfaitement à l'objectif. (bon, là n'ayant pas de version community je ne peux être sûr de moi quant à l'installation : obtention par Getit ou directe par le site de fastReport).
NB. L'obtention par Getit n'est peut-être que pour la version VCL ? (c'est pour moi, invérifiable sauf à aller dans la description des licences et matrices fonctionnelles)

[Paul TOTH]

idem

je n'ai pas de version mobile, mais une version VCL pour la caisse et FMX Windows pour une borne interactive.

dans les deux cas j'ai un code d'impression sur un Bitmap qui me sert pour l'aperçu...et pour l'impression j'encode le Bitmap dans le format d'impression EPSON et je balance directement sur l'imprimante en USB ou TCP/IP

Notez que pour FMX j'ai redéveloppé un Canvas et Printer façon VCL pour porter un code existant car je restais sous Windows et qu'en recréant les 2/3 fonctions que j'utilise, ça allait plus vite que d'adapter mon code à FMX

sur Mobile je partirais donc sur la même chose...une impression Bitmap et un envoie TCP/IP vers l'imprimante.

[SergioMaster]

Suite au message de Paul cela m'a fait penser que j'avais posté quelque chose à ce sujet ici

[Paul TOTH]

Suite au message de Paul cela m'a fait penser que j'avais posté quelque chose à ce sujet ici

ah et je donne aussi mon code

[SergioMaster]

Je suis allé à la pêche à ma solution, tout par escape code Epson (sans logo dessin cela dit)

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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
 
const
     escNewLine      = AnsiChar(10);  // New line (LF line feed)
     escUnerlineOn   = AnsiChar(27) + AnsiChar(45) + AnsiChar(1);  // Unerline On
     escUnerlineOnx2 = AnsiChar(27) + AnsiChar(45) + AnsiChar(2);  // Unerline On x 2
     escUnerlineOff  = AnsiChar(27) + AnsiChar(45) + AnsiChar(0);  // Unerline Off
     escBoldOn       = AnsiChar(27) + AnsiChar(69) + AnsiChar(1);  // Bold On
     escBoldOff      = AnsiChar(27) + AnsiChar(69) + AnsiChar(0);  // Bold Off
     escNegativeOn   = AnsiChar(29) + AnsiChar(66) + AnsiChar(1);  // White On Black On'
     escNegativeOff  = AnsiChar(29) + AnsiChar(66) + AnsiChar(0);  // White On Black Off
     esc8CpiOn       = AnsiChar(29) + AnsiChar(33) + AnsiChar(16); // Font Size x2 On
     esc8CpiOff      = AnsiChar(29) + AnsiChar(33) + AnsiChar(0);  // Font Size x2 Off
     esc16Cpi        = AnsiChar(27) + AnsiChar(77) + AnsiChar(48); // Font A  -  Normal Font
     esc20Cpi        = AnsiChar(27) + AnsiChar(77) + AnsiChar(49); // Font B - Small Font
     escReset        = AnsiChar(27) + AnsiChar(64); //AnsiChar(27) + AnsiChar(77) + AnsiChar(48); // Reset Printer
     escFeedAndCut   = AnsiChar(29) + AnsiChar(86) + AnsiChar(65)+ AnsiChar(20); // Partial Cut and feed
     escFormFeed     = AnsiChar(12);
     escAlignLeft    = AnsiChar(27) + AnsiChar(97) + AnsiChar(0); // Align Text to the Left  (ancien 48)
     escAlignCenter  = AnsiChar(27) + AnsiChar(97) + AnsiChar(1); // Align Text to the Center
     escAlignRight   = AnsiChar(27) + AnsiChar(97) + AnsiChar(2); // Align Text to the Right
     gsFeedandCut    = AnsiChar(29) + AnsiChar(86) + AnsiChar(48) ;
 
 
...
 
procedure TDatas.EnteteTicket(const Hprinter : THandle; var D : TDateTime; const NoTicket : String = '0');
var LogoFileName,s : String;
    Sl : TStringList;
    i : integer;
    dwBytesWritten: DWord;
    DocumentDataAnsi: AnsiString;
begin
if d=0 then d:=now;
 
s:=ligne(nbcticket,'',Noticket);
s:=ligne(nbcticket,s,formatdateTime('dd/mm/yy hh:nn',D),TAlignLayout.Right);
DocumentDataAnsi:=esc16cpi+escAlignLeft+AnsiString(s)+escNewLine;
WritePrinter(hPrinter, @DocumentDataAnsi[1],Length(DocumentDataAnsi),dwBytesWritten);
 
LogoFileName:=System.IOUtils.TPath.Combine(Datas.parametres.DepotPref,'Logo.txt');
Sl:=TStringList.Create;
try
  sl.LoadFromFile(LogoFileName);
   for i:=0 to sl.Count-1 do
   begin
     if i=0 then DocumentDataAnsi:=esc16cpi+escAlignLeft+escBoldOn+AnsiString(sl[i])+escboldoff+escnewline
            else DocumentDataAnsi := esc20Cpi+AnsiString(sl[i])+escNewLine;
     WritePrinter(hPrinter, @DocumentDataAnsi[1],Length(DocumentDataAnsi),dwBytesWritten);
   end;
finally
  sl.Free;
end;
// ligne vide
DocumentDataAnsi := esc20Cpi+escNewLine;
WritePrinter(hPrinter, @DocumentDataAnsi[1],Length(DocumentDataAnsi),dwBytesWritten);
end;
 
 
procedure TDatas.imprimerticket(const numero : integer=0);
var hPrinter: THandle;
    DocInfo: TDocInfo1;
    dwBytesWritten: DWord;
    DocumentDataAnsi: AnsiString;
    s : string;
    d : tdateTime;
    total,tva : currency;
    {$IFDEF DEBUG}F : TextFile; {$ENDIF}
begin
   total:=0;
   tva:=0;
   fdlignesTicket.Open('',[numero]);
   fdLignesTicket.First;
 
 {$IFDEF DEBUG}
    AssignFile(f,'ticket'+numero.ToString+'.txt');
    rewrite(f);
    while not fdLignesTicket.eof do
    begin
      if FDLignesTicketSOLDE.AsString='N' then s:=' ' else s:=AnsiChar(169);
 
 
      s:=ligne(nbcticket,'',format('%s%s-%s %s',[s,fdLignesTicketMODELE.asString,
                                                   fdLignesTicketASSORTIMENT.asString,
                                                   fdLignesTicketPOINTURE.asString]));
      s:=Ligne(nbcticket,s,Format('%3.2f',[fdlignesTicketPRIX_TTC.asCurrency]),TalignLayout.Right);
      Writeln(f,s);
      s:=AnsiString(' '+fdlignesTicketDESCRIPTION.asString);
      Writeln(f,s);
      if FDLignesTicketMNT_REMISE.AsCurrency>0 then
        begin
          s:=Ligne(nbcticket,'',Format('Remise -%3.2f',[fdlignesTicketMNT_REMISE.asCurrency]),TalignLayout.Right);
          writeln(f,s);
        end;
      writeln(f,'');
      total:=total+fdlignesTicketPRIX_TTC.asCurrency-fdlignesTicketMNT_REMISE.asCurrency;
      tva:=tva+FDLignesTicketTVA.AsCurrency;
      fdlignesTicket.Next;
    end;
 
 
    s:=ligne(nbcticket,'',format('TOTAL          %7.2f',[total]),TalignLayout.Right);
    writeln(f,s);
 
    s:=ligne(nbcticket,'',format('Dont T.V.A     %7.2f',[tva]),TalignLayout.Right);
    writeln(f,s);
    Closefile(f);
 
  {$ELSE}
 
   OpenPrinter(PChar(parametres.Imprimante), hPrinter, nil);
   DocInfo.pOutputFile:= nil;
   DocInfo.pDatatype:= 'RAW';
   DocInfo.pDocName:= PChar('Ticket '+Numero.ToString);
   StartDocPrinter(hPrinter, 1, @DocInfo);
   StartPagePrinter(hPrinter);
   if fdLignesTicketDATE_VENTE.IsNull
     then d:=now
     else d:=fdLignesTicket.FieldByName('DATE_VENTE').AsDateTime;
   EnteteTicket(hprinter,d,numero.ToString);
{ imprimer lignes}
 
   while not fdLignesTicket.eof do
    begin
      if FDLignesTicketSOLDE.AsString='N' then s:=' ' else s:=AnsiChar(169);
 
 
      s:=ligne(nbcticket,'',format('%s%s-%s %s',[s,fdLignesTicketMODELE.asString,
                                                   fdLignesTicketASSORTIMENT.asString,
                                                   fdLignesTicketPOINTURE.asString]));
      s:=Ligne(nbcticket,s,Format('%3.2f',[fdlignesTicketPRIX_TTC.asCurrency]),TalignLayout.Right);
 
      DocumentDataAnsi:=escAlignLeft+esc20cpi+AnsiString(s)+escNewLine;
      WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
 
//      DocumentDataAnsi := esc20Cpi+escAlignRight+System.AnsiStrings.Format('%3.2f',[fdlignesTicketPRIX_TTC.asCurrency])+escNewLine;
//      WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
 
      DocumentDataAnsi := esc20Cpi+escAlignLeft+AnsiString(' '+fdlignesTicketDESCRIPTION.asString)+escNewLine;
      WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
      if FDLignesTicketMNT_REMISE.AsCurrency>0 then
        begin
          s:=Ligne(nbcticket,'',Format('Remise -%3.2f',[fdlignesTicketMNT_REMISE.asCurrency]),TalignLayout.Right);
          DocumentDataAnsi := esc20Cpi+escAlignLeft+AnsiString(s)+escNewLine;
          WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
        end;
      DocumentDataAnsi :=escNewLine;
      WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
      total:=total+fdlignesTicketPRIX_TTC.asCurrency-fdlignesTicketMNT_REMISE.asCurrency;
      tva:=tva+fdlignesTicketTVA.asCurrency;
      fdlignesTicket.Next;
    end;
 
   DocumentDataAnsi := esc20Cpi+escAlignRight+AnsiString(StringofChar('-',20))+escNewLine+escAlignLeft;
   WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
 
   s:=ligne(nbcticket,'',format('TOTAL          %7.2f',[total]),TalignLayout.Right);
   documentDataAnsi := esc16Cpi+escBoldOn+escAlignCenter+AnsiString(s)+escboldoff+escNewLine;
   WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
 
   s:=ligne(nbcticket,'',format('Dont T.V.A     %7.2f',[tva]),TalignLayout.Right);
   documentDataAnsi := esc16Cpi+escAlignCenter+AnsiString(s)+escNewLine;
   WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
 
   documentDataAnsi := escNewLine+escNewLine;
   WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
   DocumentDataAnsi := escFeedAndCut;
   WritePrinter(hPrinter,@DocumentDataAnsi[1],length(DocumentDataAnsi),dwBytesWritten);
 
   DocumentDataAnsi :=chr(13);
   WritePrinter(hPrinter,@DocumentDataAnsi[1],1,dwBytesWritten);
 
   EndPagePrinter(hPrinter);
   EndDocPrinter(hPrinter);
   ClosePrinter(hPrinter);
   {$ENDIF}
end;

[Paul TOTH]

Je suis allé à la pêche à ma solution, tout par escape code Epson (sans logo dessin cela dit)

oui, mais j'ai très vite trouvé que le mode text était limité...avec un bitmap monochrome ça résout le problème du preview, et tu peux gérer ton ticket au pixel près avec un temps d'impression négligeable (quand tu ne passes pas par le driver de l'imprimante)

[Lauper]

Bonjour,
NB. L'obtention par Getit n'est peut-être que pour la version VCL ? (c'est pour moi, invérifiable sauf à aller dans la description des licences et matrices fonctionnelles)

Il n'y a pas fastReport sur GetIt avec la version Community Edition.

- pour les tickets reine ne vaut l'envoi direct (au besoin je peux retrouver mon code pas si vieux)

Si on peut directement envoyer des éléments pour l'impression tel qu'un Bitmap ou du texte, est-ce que je peut aussi envoyé directement un pdf pour impression (pour l'impression sans prévisualisation) ? Si oui, un bout de code me ravirai ou même des pistes.

dans les deux cas j'ai un code d'impression sur un Bitmap qui me sert pour l'aperçu...et pour l'impression j'encode le Bitmap dans le format d'impression EPSON et je balance directement sur l'imprimante en USB ou TCP/IP

Cette aproche me séduit, mais j'ai tendance à privilégier (j'espère à tort) le pdf parce que je peux utiliser un peu de HTML pour formater le contenu ce qui me semble un peu plus simple que d'écrire dans un Bitmap, après je ne sais pas si c'est aussi compliqué que ça, mais en lisant un peu la discussion que

SergioMaster

à partager, il me semble qu'il faut préparer une tasse de café pour bien assimiler les choses.

PS : on fait je souhaite avoir des tickets papier, ce qui veut dire qu'il y aura un format et un formatage aproprié et des facture dans le format A4 en pdf avec un formatage différent mais le même contenu (un petit tableau, des séparateurs ...) pour pouvoir les envoyé par mail ou encore si j'ai une imprimante classique, que je puisse tout de même avoir mon ticket ou facture.

ah et je donne aussi mon code

Je suis preneur

[SergioMaster]

Bonjour,

Il n'y a pas fastReport sur GetIt avec la version Community Edition.

alors la version de demonstration est elle installable ?

Dans une veine plus "code" le paquet de Winsoft téléchargeable ici
Sinon, il y a la méthode de base https://docwiki.embarcadero.com/Code...nting_(Delphi) avec une imprimante virtuelle PDF

je souhaite avoir des tickets papier, ce qui veut dire qu'il y aura un format et un formatage aproprié et des facture dans le format A4 en pdf avec un formatage différent

je croyais que l'on parlait d'une imprimante ticket (type Epson) et d'une imprimante "classique" A4

[Lauper]

je croyais que l'on parlait d'une imprimante ticket (type Epson) et d'une imprimante "classique" A4

C'est exactement le cas. C'est juste qu'en fonction de l'action, on va imprimer sur une imprimante type Epson ou une imprimante classique. La différence est-ce lorsque l'impression est faite sur une classique, donc en format A4, on a plus d'espace et on peut formater un peu mieux le contenu (stylisé), contrairement à une imprimante type Epson où là on va éviter tout style et faire une impression simple.

[SergioMaster]

J'ai lu ça how to create a pdf in delphi without additional components/

Même si, perso, je trouve l'article difficilement lisible

[Paul TOTH]

le code que j'évoque est dans l'autre conversation

quand à faire du PDF/HTML pour émettre un ticket de caisse je trouve cela un tantinet excessif sur pour une imprimante EPSON

[Lauper]

J'ai lu ça how to create a pdf in delphi without additional components/

Même si, perso, je trouve l'article difficilement lisible

Clairement, mais bon, je vais compté sur le café pour le tenir le coup.

le code que j'évoque est dans l'autre conversation

quand à faire du PDF/HTML pour émettre un ticket de caisse je trouve cela un tantinet excessif sur pour une imprimante EPSON

Je dirais même très excessif. Mais ce n'est pas ce que j'ai prévu faire.

Pour les tickets de caisse, je compte me tenir à votre suggestion, dessiné dans un Bitmap. Pour pour l'impression au le format A4, je passerai par un pdf.

Au passage, si quelqu'un connais un lien, un tuto ou une référence intéressante sur comment dessiner dans un Bitmap, je suis preneur

[Pascal Fonteneau]

si quelqu'un connais un lien, un tuto ou une référence intéressante sur comment dessiner dans un Bitmap, je suis preneur

En FMX, tu devrais trouver ton bonheur ici

Pascal

[Lauper]

Re-bonjour ! En reprenant mon code j'ai constaté qu'il y avait quelque chose qui m'échappait. Contexte, j'arrive à produire mon Bitmap et l'enregistrer sur l'appareil pour peut-être l'envoyer par mail.


N'ayant pas d'imprimante reliée à mon ordinateur, quand je tente une impression avec le code fourni sur la doc Windows me donne la possibilité d'enregistrer le contenu à imprimer en PDF et quand j'enregistre le contenu la mise à l'échelle n'est pas bonne, or il me semble que pour les images il faut une DPI de 1200 et 1200

Code :

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

Printer.ActivePrinter.SelectDPI(1200, 1200)

Mes questions sont :

Comment réglé cette mauvaise mise à l'échelle de mon image ?

dans les deux cas j'ai un code d'impression sur un Bitmap qui me sert pour l'aperçu...et pour l'impression j'encode le Bitmap dans le format d'impression EPSON et je balance directement sur l'imprimante en USB ou TCP/IP

Est-ce que l'encodage est spécifique aux imprimantes Epson ou c'est le cas pour toute autre imprimante, et existe-t-il une un type ou forme d'encodage universel aux imprimantes ?