Erreur de conversion pixels vers système métrique.

**defluc** · 09/09/2008, 16h49

Bonjour,

Pour calculer l'échelle d'une image, j'utilise la fonction suivante

Code :

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

1
2
3
4
5
Function TMapForm.PixInM(const PixDistX, PixDistY:Integer) : TPixDistXY; // PixDistX est une mesure en pixels.
begin
  Result.X := 25.4 / Screen.PixelsPerInch * PixDistX;  //  Résultat en mètre
  Result.Y := 25.4 / Screen.PixelsPerInch * PixDistY;  //  Résultat en mètre
end;

ou

Code :

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

1
2
3
4
5
6
7
8
Function TMapForm.PixInM(const PixDistX, PixDistY:Integer) : TPixDistXY; // PixDistX est une mesure en pixels.
var
  Dc : HDC;
begin
  DC := GetWindowDc(0); // Capte le contexte graphique de l'écran
  Result.X := PixDistX * GetDeviceCaps(DC,HORZSIZE) / Screen.Width;
  Result.Y := PixDistY * GetDeviceCaps(DC,VERTSIZE)  / Screen.Height;
end;

Quand je mesure sur l'écran je constate plus de 3 cm d'erreur.

Quelqu'un saurait-il comment pallier cette imprécision ?

Merci d'avance

**ShaiLeTroll** · 09/09/2008, 18h05

Utilise Convert au lieu de 25.4 ... même si c'est la même chose et ta division n'est pas à l'envers ?

Code :

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

1
2
3
uses StdConvs, ConvUtils; 
...
  Result.X := Convert(NombreDePixel / Screen.PixelsPerInch, duInches, duMeters);

Ensuite, ben à l'écran, c'est pas évident ...

**defluc** · 09/09/2008, 19h44

Ensuite, ben à l'écran, c'est pas évident ...

OK, 3mm de différence, je comprendrais, mais 3,3 cm, (33 mm) ...

**maxim_um** · 09/09/2008, 19h52

salut,

Tout dépend de la résolution de ton écran et de la taille de sa dalle.

**defluc** · 09/09/2008, 20h06

Mon écran est un 17" en résolution 1280 * 1024
Ce qui me sidère, c'est que mon application utilise un activex (MapWinGis.Ocx) qui convertit des coordonnées écran en coordonnées réelles sans le moindre problème.

**maxim_um** · 09/09/2008, 21h22

C'est un tube ou un TFT? Le format est 4/3, 16/9, 16/10?

**defluc** · 09/09/2008, 21h56

C'est un Lcd et le rapport Largeur/Hauteur = 1.25

**maxim_um** · 10/09/2008, 22h06

D'après les informations que tu me donnes et d'après mes calculs, la largeur utile de ton écran devrait être de 33.7 cm. Regarde si c'est bien le cas.

**defluc** · 11/09/2008, 18h38

il fait 36 cm / 28,8.
C'est un NEC LCD 1860NX 18''

**defluc** · 11/09/2008, 18h44

J'ai fait une recherche sur le Net et j'ai constaté que la fonction GetDeviceCaps(DC,HORZSIZE) est connue pour ne pas être fiable.

Je l'ai testée sur un écran Lcd, sur un Crt et sur un portable.
L'erreur est considérable.

Quelqu'un connaitrait-il une fonction qui donne les dimensions de l'écran ou permet de "mesurer" des dimensions sur écran.

Merci d'avance.

**maxim_um** · 11/09/2008, 21h47

Envoyé par defluc

Mon écran est un 17" en résolution 1280 * 1024

Envoyé par defluc

il fait 36 cm / 28,8.
C'est un NEC LCD 1860NX 18''

Quelque chose me dit qu'il s’est agrandi pendant que tu dormais.

Parce que là ça change tout.

La définition de cet écran est de 90 PPP alors que le standard est de 96 PPP.
C'est pour ça que tu as des erreurs.

Tu peux éventuellement refaire tes calculs en sachant que pour cet écran un pixel occupe 0.281 mm d'espace, ou en remplaçant «Screen.PixelsPerInch» par 90.

**defluc** · 12/09/2008, 10h26

Le problème, c'est que je veux que mon programme soit valable pour tout écran.

**maxim_um** · 13/09/2008, 16h33

Ce n’est pas un problème. Avec l'interface device management de Windows, tu identifies l'écran qui est en cours d'utilisation, ensuite tu peux récupérer ses spécifications et plus précisément ses dimensions depuis son descripteur vesa edid. Une fois ces dernières informations obtenues, il ne te restera plus qu'à calculer sa définition et le tour est joué.

**defluc** · 13/09/2008, 20h01

tu peux récupérer ses spécifications et plus précisément ses dimensions depuis son descripteur vesa edid

.

Après recherche, il m'apparait que ce composant est loin d'être gratuit.

Aurais-tu un tuyau ?

**maxim_um** · 13/09/2008, 21h06

Ce n'est pas un composant, EDID (Extended Display Identification Data) est une structure de donnée normalisée (depuis 1990 il me semble) par VESA (Video Electronics Standards Association). Dans la pratique, les constructeurs enregistrent les spécifications de leurs écrans dans le firmware de ces derniers. Grâce à l'association du pilote et de l'interface Plug-And-Play, Windows peut lire cette structure et l'importer dans la base de registre au moment de l'installation de l'écran. Et donc avec certaines fonctions de l'Api Device Management (setupapi.lib) de Windows, tu accèdes à ces informations.

**defluc** · 14/09/2008, 22h53

Pourrais-tu me donner plus d'explications pratiques.

Où trouver SetupApi.Lib ? (Je ne le trouve pas sur mon Pc)
Comment utiliser ce fichier dans Delphi ? (Créer un composant ?)

**maxim_um** · 15/09/2008, 00h48

Mon langage de prédilection c'est le C++, pas le Delphi alias Pascal Objet.

Cela dit pour inclure la librairie dans ton unité, c'est très simple :

Code :

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

1
2
3
uses
Windows,SetupAPI;

exemple pour une Unit1:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,
  Dialogs, StdCtrls, SetupAPI;
 
const
  GUID_CLASS_MONITOR: TGUID = '{4D36E96E-E325-11CE-BFC1-08002BE10318}';
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function GetMonitorInfo: boolean;
var
  hdi:  HDEVINFO;
begin
  hdi := SetupDiGetClassDevs(@GUID_CLASS_MONITOR, nil, 0, DIGCF_PRESENT);
 
  if cardinal(hdi) = INVALID_HANDLE_VALUE then
  begin
    Result := False;
    { HANDLE non trouvée et fin des opérations }
  end
  else
  begin
    { HANDLE valide, et possibilité d'utiliser encore d'autres fonctions
      de l'Api Device Management tel que SetupDiEnumDeviceInfo, 
      SetupDiGetDeviceRegistryProperty, etc pour récupérer les informations 
      sur le moniteur }
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetMonitorInfo;
end;
 
end.

Voilà, j'espère que cela t'aidera à y voir plus claire.
Pour les fonctions de l'Api Device Management de Windows, elles sont documentées dans MSDN et dans l'aide en ligne de Delphi pour les versions 2006 et suivantes il me semble.

**defluc** · 15/09/2008, 17h22

Serais-ce abuser de tes compétences - qui me semblent étendues vu le peu de sujets à ce propos sur le net - de te demander comment récupérer la largeur et la hauteur du moniteur (ou simplement la diagonale) ?