delphi 列出本地打印机

p5fdfcr1 于 2023-04-05 发布在其他

关注(0)|答案(3)|浏览(353)

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

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的数组。
我该怎么补救呢？

delphi

来源：https://stackoverflow.com/questions/2601037/list-local-printers

3条答案

按热度按时间

tktrz96b1#

您可以通过使用Printer变量中提供的列表来获取本地打印机列表。

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

我会使用这种方法，除非你有一个特定的原因，做你正在做的事情。
最近，我创建了一个github repo，其中有一个实用程序可以做到这一点。
github.com/tobya/listprn

赞(0）回复(0）举报 2023-04-05

neekobn82#

好的，首先……既然你标记了这个 Delphi -2010，我假设你在D2010上有这个问题。
您的问题始于使用_PRINTER_INFO_2A，这是EnumPrinters函数的Ansi版本所使用的结构。自从引入unicode以来，“EnumPrinters”函数Map到该函数的unicode版本，因此，您应该使用_PRINTER_INFO_2W。（或者显式调用EnumPrintersA）。（没有A/W）你应该使用_PRINTER_INFO_2（没有A/W）。这样，如果有一天UTF 32版本成为新的标准，它将不太可能崩溃。

赞(0）回复(0）举报 2023-04-05

hlswsv353#

由于您使用的是unicode Delphi 版本，因此应使用_PRINTER_INFO_2W结构而不是_PRINTER_INFO_2A

赞(0）回复(0）举报 2023-04-05