Utiliser les informations d'une imprimante

Version imprimable

26/04/2020, 17h26
ovni76

Utiliser les informations d'une imprimante
Bonjour,
Suite à un problème matériel j'ai changé d'imprimante et de résolution de 300 à 600.
J'ai développé depuis un certain temps sous linux avec lazarus une petite application pour imprimer des enveloppes de différents formats en utilisant une base de données d'adresses sous sqlite.
Pour l'impression j'utilise les informations hauteur papier, largeur papier, orientation etc.
Code:

1 2 3 Printer.Orientation:=poLandscape; XLARG_PAGE:= Printer.PaperSize.PaperRect.PhysicalRect.Right-Left; XHAUT_PAGE:= Printer.PaperSize.PaperRect.PhysicalRect.Bottom-Top;
Je voudrais utiliser la valeur de la résolution que je peux afficher via le composant

Code:

PrinterSetupDialog.execute

mais je n'arrive pas à récupérer cette valeur de résolution. C'est surement très simple mais je n'ai pas encore trouvé.
Alors un petit coup de main me serait bien utile.
Merci d'avance
A+
26/04/2020, 19h09
ChPr
Citation:

Envoyé par ovni76

... je n'arrive pas à récupérer cette valeur de résolution. ...

Ces valeurs sont données par :
Code:

1 2 3 Printer.XDPI Printer.YDPI
Cordialement.

Pierre.
27/04/2020, 16h53
Andnotor
Pour l'impression (en supposant que ce soit du Windows), le mieux est de convertir le DC de l'imprimante en (centième de) millimètre par SetMapMode.
Tu t'affranchis ainsi de tous les calculs de conversion ET de la résolution.
Code:

1 2 //Coordonnées en 1/100 mm SetMapMode(Printer.Canvas.Handle, MM_HIMETRIC);
Attention cependant à l'axe Y qui est inversé. Les valeurs sont négatives :
Code:

1 2 //Texte à 10mm des bords Printer.canvas.TextOut(1000, -1000, 'Texte');
27/04/2020, 20h54
ovni76

Merci pour vos réponses,
Pour Andnotor je suis sous linux donc la solution proposée n'est pas valable et de plus je préfère la solution utilisant les paramètres ce qui va me permettre de modifier mon application pour la rendre plus générale, utilisable avec des imprimantes aux caractéristiques différentes.
Donc je vais utiliser la solution de ChPr qui va dans mon sens.
Encore merci A+

Salut voici quelques fonctions qui pourraient t'être utiles :

Code:

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
 
{ NOTE :
   1 cm =  37.79527559055 pixels
   1 pixel = 0.02645833333333416 cm
}
function PixelsToCentimeters(nbPixels : Integer) : Double;
begin
  Result := (nbPixels * 0.02645833333333416)
end;
 
function CentimetersToPixels(nbCm : Double) : Integer;
begin
  Result := Round((nbCm / 0.02645833333333416));
end;
 
{ NOTE :
 
  1 pouce (inch) = 2,54 cm
  1 cm = 0,3937 pouce (inch)
}
function InchToCentimeters(nbInch : Double) : Double;
begin
  Result := nbInch / 0.3937;
end;
 
function CentimetersToInch(nbCm : Double) : Double;
begin
  Result := nbCm * 0.3937;
end;
 
function PixelsToMillimeters(nbPixels : Integer) : Double;
begin
  Result := PixelsToCentimeters(nbPixels) * 10;
end;
 
function MillimetersToPixels(nbMm : Double) : Integer;
begin
  Result := CentimetersToPixels(nbMm / 10);
end;
 
function InchToPixels(nbInch : Double) : Integer;
begin
  Result := CentimetersToPixels(InchToCentimeters(NbInch));
end;
 
function PixelsToInch(nbPixels : Integer) : Double;
begin
  Result := CentimetersToInch(PixelsToCentimeters(nbPixels));
end;
 
function PixelsResolutionToCentimeters(nbPixels, DPI : Integer) : Double;
begin
  Result := nbPixels * 2.54 / DPI;
end;
 
function CentimetersToPixelsResolution(nbCm : Double; DPI : Integer) : Integer;
begin
  Result := Round(nbCm * DPI / 2.54);
end;

A+

Jérôme

29/04/2020, 15h42
ovni76

Merci Beanzmaster,
Ces fonctions se sont des personnelles où elles viennent d'un composant ?
A+
29/04/2020, 20h23
BeanzMaster

Citation:

Envoyé par ovni76

Merci Beanzmaster,
Ces fonctions se sont des personnelles où elles viennent d'un composant ?
A+

Perso, elles sont dans mon unité BZMath, de mon projet
30/04/2020, 10h43
ChPr

Citation:

Envoyé par BeanzMaster

Salut voici quelques fonctions qui pourraient t'être utiles : ...

Pourquoi n'as-tu pas mis ces fonctions sous formes de "Helpers", comme tu l'as fait pour d'autres types de conversions ?

Cordialement.

Pierre.
30/04/2020, 14h14
BeanzMaster

Citation:

Envoyé par ChPr

Pourquoi n'as-tu pas mis ces fonctions sous formes de "Helpers", comme tu l'as fait pour d'autres types de conversions ?

Cordialement.

Pierre.

Salut

De quels autres types de conversions fais tu allusion ?
Mettre ces fonctions dans mon

Code:

TDoubleHelper = type helper for Double

ne me parait pas approprié car elles sont spécifiques. De plus elles utilisent également des "integer" du coup faudrait également ajouter certaine de ces fonctions dans

Code:

TIntegerHelper = type helper for Integer

Ce ne serait pas très logique et pratique, à mon avis. Par contre les mettre dans une classe ou un enregistrement spécifique serait un plus, suivant le cas.

A+

Jérôme
30/04/2020, 14h34
ChPr

Citation:

Envoyé par BeanzMaster

... De quels autres types de conversions fais tu allusion ? ...

Voir cette discussion.

C'est vrai qu'ici c'est spécifique, mais dans cet esprit tu aurais remplacé par exemple :

Code:

NbCm:= InchToCentimeters(Printer.XDPI);

par

Code:

NbCm:= Printer.XDPI.ToCentimeters;

Cordialement.

Pierre.

Citation:

Envoyé par ChPr

Voir cette discussion.

C'est vrai qu'ici c'est spécifique, mais dans cet esprit tu aurais remplacé par exemple :

Code:

NbCm:= InchToCentimeters(Printer.XDPI);

par

Code:

NbCm:= Printer.XDPI.ToCentimeters;

Cordialement.

Pierre.

Bien vu :plusser: je n'y avais pas pensé dans ce sens. Reste que cet assistant sera propriétaire de l'application uniquement.
Pour ma part cela serait plus logique si c'est appliqué sur la largeur et la hauteur.
Mais dans ce cas, au lieu de faire un assistant pour les Integer, je le ferais plus pour l'objet TPrinter avec une fonction pour paramétrer directement la taille de la page à imprimer.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Unit PrinterHelper; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Printers; Type TPrinterHelper = class helper for TPrinter public procedure SetPageSize(LargeurCm, HauteurCm : Double; DPI : Integer); overload; procedure SetPageSize(LargeurCm, HauteurCm : Double; XDPI, YDPI : Integer); overload; procedure SetPageSize(LargeurCm, HauteurCm : Double); overload; // Prend les DPI de TPrinter function GetWidthInCentimers : Double; //pas vraiment utile car on connait déja la taille d'impression du papier function GetHeightInCentimers : Double; end;
Mais bon l'objet TPrinter ne semble pas gérer les DPI et est limité à 72 DPI seulement par défaut. En plus les propriétés XDPI et YDPI sont en lecture seule :calim2: Il semble que la solution c'est de passer par le TPrinterCanvas pour gérer les dimensions et la résolution à la main.

J'ai très peu utilisé l'objet TPrinter, ca mériterait le détour un de ces quatre :D. Il y sûrement moyen d'améliorer cet objet grâce aux assistants. À réfléchir.