列出本地打印机

时间:2010-04-08 15:09:47

标签: delphi delphi-2010

我正在使用此例程列出计算机上安装的本地打印机:

var
  p: pointer;
  hpi: _PRINTER_INFO_2A;
  hGlobal: cardinal;
  dwNeeded, dwReturned: DWORD;
  bFlag: boolean;
  i: dword;
begin
  p := nil;
  EnumPrinters(PRINTER_ENUM_LOCAL, nil, 2, p, 0, dwNeeded, dwReturned);
  if (dwNeeded = 0) then exit;
  GetMem(p,dwNeeded);
  if (p = nil) then exit;
  bFlag := EnumPrinters(PRINTER_ENUM_LOCAL, nil, 2, p, dwneeded, dwNeeded, dwReturned);
  if (not bFlag) then exit;
  CbLblPrinterPath.Properties.Items.Clear;
  for i := 0 to dwReturned - 1 do
  begin
    CbLblPrinterPath.Properties.Items.Add(TPrinterInfos(p^)[i].pPrinterName);
  end;
  FreeMem(p);

TPrinterInfos(p^)[i].pPrinterName会返回打印机名称的“P”。我安装了PdfCreator作为打印机。

TPrinterInfos_PRINTER_INFO_2A的数组。

我该如何解决这个问题?

3 个答案:

答案 0 :(得分:3)

好的,首先要做的事情......既然你标记了这个Delphi-2010,我会假设你在D2010上遇到这个问题。

您的问题首先要使用_PRINTER_INFO_2A,这是EnumPrinters函数的Ansi版本所使用的结构。自从引入了unicode之后,“EnumPrinters”函数映射到函数的unicode版本,因此,您应该使用_PRINTER_INFO_2W。 (或明确调用EnumPrintersA)。如果您使用的是EnumPrinters(无A / W),则应使用_PRINTER_INFO_2(不带A / W)。这样,如果有一天UTF32版本成为新标准,它将不太可能中断。

答案 1 :(得分:2)

由于您使用的是unicode Delphi版本,您应该使用_PRINTER_INFO_2W结构而不是_PRINTER_INFO_2A

答案 2 :(得分:2)

您可以使用Printer变量中提供的列表获取本地打印机列表。简单如

uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Assign(Printer.Printers);
end;

我会使用这种方法,除非你有特定的理由去做你正在做的事情。