Discussion :

[Invité]

bonjour,

je cherche depuis un moment comment lister et modifier le bac d'une imprimante.
j'arrive bien à lister les imprimantes et sélectionner celle que je souhaite, mais je ne trouve pas comment gérer les bacs.

j'ai déjà le code suivant :

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
53
54
55
56
57
58
59
procedure TForm1.FormCreate(Sender: TObject);
begin
  cbb1.Items := Printer.Printers;
  cbb1.ItemIndex := Printer.PrinterIndex;
end;
 
 
 
procedure TForm1.btn6Click(Sender: TObject);
var po: TPrinterOrientation;
begin
  Printer.PrinterIndex := cbb1.ItemIndex;
 
  if rg1.ItemIndex = 0
  then po := poPortrait
  else po := poLandscape;
 
  Printer.PrinterIndex := 2;
  ChangePrinter(1, po);
 
  Printer.BeginDoc;
  Printer.Canvas.TextOut(50,50,'Test');
  Printer.EndDoc;
end;    
 
 
procedure TForm1.ChangePrinter(ToBin: Integer; ToOrientation: TPrinterOrientation);
var
  ADevice, ADriver, APort: array [0..255] of Char;
  DeviceHandle: THandle;
  DevMode: PDeviceMode; // A Pointer to a TDeviceMode structure
begin
  { First obtain a handle to the TPrinter's DeviceMode structure }
  Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle);
  { If DeviceHandle is still 0, then the driver was not loaded. Set
    the printer index to force the printer driver to load making the
    handle available }
  if DeviceHandle = 0 then begin
    Printer.PrinterIndex := Printer.PrinterIndex;
    Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle);
  end;
  { If DeviceHandle is still 0, then an error has occurred. Otherwise,
    use GlobalLock() to get a pointer to the TDeviceMode structure }
  if DeviceHandle = 0 then
    Raise Exception.Create('Could Not Initialize TDeviceMode structure');
  DevMode := GlobalLock(DeviceHandle);
  try
    with DevMode^ do begin
      dmFields := DM_DEFAULTSOURCE or DM_ORIENTATION;
      dmDefaultSource := ToBin;
      case ToOrientation of
        poPortrait: dmOrientation := DMORIENT_PORTRAIT;
        poLandscape: dmOrientation := DMORIENT_LANDSCAPE;
      end;
    end;
  finally
    GlobalUnlock(DeviceHandle);
  end;
end;

quelqu'un sait-il comment faire ?
merci

ben

[Papy214]

Je pense que ça doit être possible avec WMI

Un outil pratique pour ça: https://theroadtodelphi.wordpress.co...-code-creator/

[Invité]

je connais pas wmi, j'ai regardais un peu de quoi il s'agissait, l'outil n'a pas l'air évident à utiliser

[SergioMaster]

Bonjour,
point besoin de WMI.
C'est un peu vieux pour moi (ante 2010) mais voici une réponse que j'avais fournie
http://www.developpez.net/forums/d95...ersonnalisees/

les mots clés importants : DC_BINNAMES,DC_BINS

[Invité]

super merci !

cela m'a permis de trouver ce 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses
  WinSpool, Printers;
 
procedure GetPaperBins(sl: TStrings);
type
  TBinName      = array [0..23] of Char;
  TBinNameArray = array [1..High(Integer) div SizeOf(TBinName)] of TBinName;
  PBinnameArray = ^TBinNameArray;
  TBinArray     = array [1..High(Integer) div SizeOf(Word)] of Word;
  PBinArray     = ^TBinArray;
var
  Device, Driver, Port: array [0..255] of Char;
  hDevMode: THandle;
  i, numBinNames, numBins, temp: Integer;
  pBinNames: PBinnameArray;
  pBins: PBinArray;
begin
  Printer.PrinterIndex := -1;
  Printer.GetPrinter(Device, Driver, Port, hDevmode);
  numBinNames := WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, nil, nil);
  numBins     := WinSpool.DeviceCapabilities(Device, Port, DC_BINS, nil, nil);
  if numBins <> numBinNames then
  begin
    raise Exception.Create('DeviceCapabilities reports different number of bins and bin names!');
  end;
  if numBinNames > 0 then
  begin
    pBins := nil;
    GetMem(pBinNames, numBinNames * SizeOf(TBinname));
    GetMem(pBins, numBins * SizeOf(Word));
    try
      WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, PChar(pBinNames), nil);
      WinSpool.DeviceCapabilities(Device, Port, DC_BINS, PChar(pBins), nil);
      sl.Clear;
      for i := 1 to numBinNames do
      begin
        temp := pBins^[i];
        sl.addObject(pBinNames^[i], TObject(temp));
      end;
    finally
      FreeMem(pBinNames);
      if pBins <> nil then
        FreeMem(pBins);
    end;
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetPaperBins(Listbox1.Items);
end;

je devrais me débrouiller avec ça

[Invité]

le bouton "Résolu" n'apparait pas pour que je puisse clôturer ce post