Discussion :

[Droïde Système7]

Bonjour

Ça fait un certain moment que je tente et me pose des questions quant au comment respecter la proportionnalité de la dimension du BMP à l'impression

Tout est ok sur des images carrées, mais dès que ça devient allongé ; à l'impression c'est légèrement rétrécit

J'ai écumé des tas de sites et codes, mais ça revient toujours au même.

J'ai même soupçonné que ça venait de mon écran assez allongé, mais non car j'ai testé sur un autre plus au carré.

Sur un site US, je me suis arrêté sur ce code qui semble t'il devrait être pertinent, via un rééchantillonnage BMP et par conséquent m'aider.

Manque de chance, ça plante sur un ligne, et là je suis bloqué :

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
// USES : JclGraphics
procedure PrintGraphic(source: TGraphic);
var
  dest: TBitmap;
  destWidth, destHeight,
  printerPixelsPerInch_X, printerPixelsPerInch_Y,
  printerLeftMargin, printerTopMargin: integer;
begin
  printerPixelsPerInch_X := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
  printerPixelsPerInch_Y := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
  printerLeftMargin      := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
  printerTopMargin       := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);

  dest := TBitmap.Create;
  try
    destWidth  := source.Width  * printerPixelsPerInch_X div Screen.PixelsPerInch;  // ligne plantage
    destHeight := source.Height * printerPixelsPerInch_Y div Screen.PixelsPerInch;

    Stretch(destWidth, destHeight, rfLanczos3, 0, source, dest);

    Printer.BeginDoc;
    try
      Printer.Canvas.Draw(printerLeftMargin, printerTopMargin, dest);
      Printer.EndDoc;
    except
      Printer.Abort;
      raise;
    end;
  finally
    dest.Free;
  end;
end;
   

procedure TForm1.btnPrintClick(Sender: TObject);
begin
  if not PrinterSetupDialog.Execute then exit;
  PrintGraphic(Image.Picture.Graphic);
end;

Merci d'avance de vos idées, ou autres méthodes,

DS7

[ShaiLeTroll]

Plantage ? une Erreur ? une Exception ?

pense que Screen.PixelsPerInch c'est

Code :

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

1
2
3
  var DC: HDC = GetDC(0);
  FPixelsPerInch := GetDeviceCaps(DC, LOGPIXELSY);
  ReleaseDC(0, DC);

Cela doit être 96 à chaque fois, c'est devenu complètement factice comme valeur

[Droïde Système7]

Stéphane

Le message d'erreur est celui-ci :

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet xxx.exe a provoqué une classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 00491520 dans le module 'xxx.exe'. Lecture de l'adresse 00000000'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

Edit :
J'ai modifié les deux lignes en question par :

Code :

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

1
2
3
 
    destWidth  := source.Width  * printerPixelsPerInch_X div 96;  // ligne plantage
    destHeight := source.Height * printerPixelsPerInch_Y div 96;

Mais c'est pareil ; ça ne change rien.

DS7

[ShaiLeTroll]

source n'est pas à nil ?
Surtout que 00000000 c'est curieux, on a plutôt une adresse avec un léger décalage de l'adresse des propriétés Heigth et Width

[Droïde Système7]

Peut-être ce code n'est pas si fiable, en plus il stipule d'avoir la librairie JVCL, oui je l'ai mais si un jour je modifie mon environnement, je ne sais pas si elle suivra. Quoique j'y tiens beaucoup.

Les copains, bref, ne vous cassez pas la tête sur ce coup, en plus le code au final se base sur le TImage, qui selon moi confirme le bancalisme du topo.

Je considère ce thread comme résolu par défaut de combattants

Merci encore à Stéphane,

DS7