Discussion :

[Pascal Fonteneau]

Bonjour
Je recherche désespérement comment recupérér la propriété couleur ou noir et blanc que l'utilisateur a choisi dans ses options d'impression. Cette Propriété n'est pas disponile directement dans le TPrinter, il faut passer par l'interogation du device. Et là je seche !
voici mon extrait de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  Printer.GetPrinter(Device, Driver, Port,hDevMode);
  Globallock(hDevMode);
  showmessage(IntTostr(DevMode^.dmColor)); // devrait renvoyer 1 ou 2
                                                               // chez moi renvoi 23888
  // tentative d'ecriture en dur pour tester mais je reste toujour s en couleur
   DevMode^.dmColor := 1;
 
  Printer.SetPrinter(Device, Driver, Port, hDevMode);
  GlobalUnlock(hDevMode);

J'ai besoin d'un peu d'aide. Merci

[ShaiLeTroll]

tu n'aurais pas oublié de récupérer le pointeur pDevMode qui est un PDeviceMode fourni par GlobalLock selon le Handle hDevmode ?

Dans ton cas pDevMode prend une valeur quelqueconque, tu as même de la chance de pouvoir lire et surtout y écrire alors que tu n'as pas assigné d'adresse mémoire !

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
var
  Device, Driver, Port: array[0..255] of Char;
  hDevMode: THandle;
  pDevMode: PDeviceMode;
begin
   Printer.GetPrinter(Device, Driver, Port, hDevMode);
 
  pDevMode := GlobalLock(hDevMode); // System Handle to Pointer 
  if Assigned(pDevMode) then
  begin
    try
      pDevMode^.dmColor := 1;
      Printer.SetPrinter(Device, Driver, Port, hDevMode);
    finally
      GlobalUnlock(hDevMode);
    end;
  end;
end;

[Pascal Fonteneau]

RE
J'ai fait une fausse manip lors de la recopie de mon source. J'avais bien mis

pDevMode := GlobalLock(hDevMode); // System Handle to Pointer

le problème ne viens donc pas de là. Je pense que SetPrinter ne fait pas son boulot.

j'ai fait un second test :

J'ai fais une copie de l'unité printers et ajouter une proprieté 'color' en me basant sur ce que faisait le code pour l'orientation. Ca compile impec mais toujours impossible de passer en noir et blanc. Dmcolor est pourtant bien valué à 1 avec ma modif !