Discussion :

[Papy214]

Bonjour à tou(te)s

J'ai besoin de connaître l'état des imprimantes installées sur une machine. Le but est d'interdire une fonctionnalité si une imprimante nécessaire est indisponible.
Voici mon code:

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
 
procedure InfosImprimante(I: Integer; memo: TMemo);
var
  hPrinter: NativeUInt;
  Device: array[0..255] of char;
  Driver: array[0..255] of char;
  Port:   array[0..255] of char;
  hDeviceMode: NativeUInt;
  bytesNeeded: DWORD;
  pPI: PPrinterInfo6;
  retval: BOOL;
begin
  Printer.PrinterIndex := I;
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  if not winspool.OpenPrinterW(Device, hPrinter, nil) then
    RaiseLastWin32Error;
  try
    retval := winspool.GetPrinterW(hPrinter, 6, nil, 0, @bytesNeeded);
    If not retval Then
      ShowMessage(SysErrormessage(GetLastError));
    GetMem(pPI, bytesNeeded);
    try
      retval := winspool.GetPrinterW(hPrinter, 6, pPI, bytesNeeded, @bytesNeeded);
      If not retval Then
        RaiseLastWin32Error;
 
      memo.Lines.Add( Printer.Printers[I] + ' = ' + IntToStr(pPI^.dwStatus));
 
    finally
      FreeMem(pPI);
    end;
  finally
    winspool.ClosePrinter(hPrinter);
  end;
end;

Problème: La ligne

Code :

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

retval := winspool.GetPrinterW(hPrinter, 6, nil, 0, @bytesNeeded);

déclenche une erreur :

[Window Title]
test_imprimantes

[Content]
La zone de données passée à un appel système est insuffisante

[OK]

et à chaque fois, mon pPI^.dwStatus reste à 0, ce qui est normalement pas possible au regard des valeurs qui peuvent être renvoyées par l'API.

Quelqu'un aurait une idée sur le problème ?


Papy !

[Andnotor]

Ce qui est somme toute assez logique puisque tu ne lui passes pas de buffer. Enfin... MS nous a habitué à certaines variantes en fonction des fonctions

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
winspool.GetPrinter(hPrinter, 6, nil, 0, @bytesNeeded);
 
if bytesNeeded > 0 then
begin
  GetMem(pPI, bytesNeeded);
 
  try
    retval := winspool.GetPrinter(hPrinter, 6, pPI, bytesNeeded, @bytesNeeded);
    If not retval Then
      RaiseLastWin32Error;
 
    memo.Lines.Add( Printer.Printers[I] + ' = ' + IntToStr(pPI^.dwStatus));
 
  finally
    FreeMem(pPI);
  end;
end;

[Papy214]

Evidemment, plus de messages si je ne l'affiche pas.

Mais est-ce normal que je reçoive les réponses suivantes:

Microsoft XPS Document Writer = 0
HP LaserJet 200 color MFP M276 PCL 6 = 0
Epson EPL-6200 = 0

sachant que la HP et la laser sont des imprimantes réseau et qu'elles sont bien disponibles ??

Je viens de tester en éteignant l'imprimante epson, ça me renvoie toujours 0 pour le statut

J'ai aussi une imprimante à tickets installée mais qui a été débranchée, et là ça me renvoi 4096 (valeur qui parait normale)

Faut-il tester une imprimante réseau d'une autre manière ??