Set Bin and duplexmode with TPDFPrinter

hglaeser

Hi,

i have downloaded the evaluation version und had opend the delphi demo project. I need to set the bin and duplex mode, but it doesnt work. Here the code:

var
BinNane : WideString; // name of the Bin
BinNo : integer; // total bins available
curBin : integer; // number of current bin

procedure TPDFPrinterForm.NextBinClick(Sender: TObject);
begin
if OpenPrinterCheck(printerName.Text) Then
begin
BinNo := myPrinter.GetBinCount('');
curBin := curBin +1;
if curBin > BinNo then curBin := 1;
BinNane := myPrinter.GetBin(curBin);
BinName.Text := BinNane;
myPrinter.ClosePrinter;
end;
end;

The value of GetBinCount is 0, GetBin is ??????????????????????

So where are my mistakes?

The printer is a canon iR2200 with 4 bins. So it should work.

Thanks for answer.

HGlaeser

support

Hi,

currently there is no possibility to set the duplex mode, but using

WPDFView.CommandEx(
COMPDF_SelectPrinterBin0,
xxx );

You can select the paper bin for the document. The code to retrieve the numbers is not included in WPViewPDF (you seem to use a sepcial library for that)

WPTools 5 uses this code to fill string list with names and numbers (in objects[])

Code

procedure GetPaperBins(aPrinter: TPrinter; list: TStrings;
  FirstName: string = '');
type
  TBinName = array[0..23] of Char;
var
  DevMode: PDeviceMode;
ADevice, ADriver, APort: array[0..256] of Char; var
  ADeviceMode: THandle;
  i, Count: Integer;
  BinNames: array of TBinName;
  Bins: array of Word;
  buffer: array[0..30] of Char;
begin
  aPrinter.GetPrinter(ADevice, ADriver, APort, ADeviceMode);
  List.Clear;
  if FirstName <> '' then List.Add(FirstName);
  DevMode := GlobalLock(ADeviceMode);
  if DevMode <> nil then
  try
    Count := DeviceCapabilities(
      aDevice, // pointer to a printer-name string
      Aport,
      DC_BINNAMES, // device capability to query
      nil, DevMode);


    if Count > 0 then
    begin
      SetLength(BinNames, Count);
      SetLength(Bins, Count);
      try
        DeviceCapabilities(aDevice, Aport, DC_BINNAMES, PChar(@BinNames[0]), nil); // DevMode);
        DeviceCapabilities(aDevice, Aport, DC_BINS, PChar(@Bins[0]), nil); // DevMode);
        for i := 0 to Count - 1 do
        begin
          StrLCopy(buffer, PChar(@BinNames[i]), 24);
          List.AddObject(StrPas(buffer), TObject(Bins[i]));
        end;
      finally
        SetLength(BinNames, 0);
        SetLength(Bins, 0);
      end;
    end;
  finally
    GlobalUnlock(ADeviceMode);
  end;
end;

Alles anzeigen

hglaeser

Thanks for answer,

but i want to use TPDFPrinter-component, because i dont need to view a pdf-doc. I just want to print it.

So how can i set the bin, duplexmode, copies with TPDFPrinter? The sample-code doesnt work. the bincount is 0, the binname is ??????????????????. I have checked different printer models, even the same ???????????? as binname.

Or is it a limitation of evaluation version of TPDFPrinter?

support

Allthough it is a good suggestion and I will probably add that shortly, there is currently no PDF printer component in the ViewPDF package.

The wPDFPrinter component of the wPDF package is to create new PDF files.

Currently You need to create a WPViewPDF component - it must not be invisible but it can be hidden on the form under a panel or off the screen.

Julian Ziersch

hglaeser

Thanks, i will try it.