Список локальных принтеров - PullRequest
Новая
       8

Список локальных принтеров

2 голосов
/ 08 апреля 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 ]

3 голосов
/ 08 апреля 2010

Хорошо, обо всем по порядку ... Поскольку вы пометили этот Delphi-2010, я предполагаю, что у вас возникла эта проблема с D2010.

Ваша проблема начинается с использования _PRINTER_INFO_2A, структуры, используемой версией Ansi функции EnumPrinters. С тех пор, как был введен юникод, функция "EnumPrinters" отображается на версию функции в юникоде, и поэтому вам следует использовать _PRINTER_INFO_2W. (Или явно вызовите EnumPrintersA). Если вы используете EnumPrinters (без A / W), вы должны использовать _PRINTER_INFO_2 (без A / W). Таким образом, будет меньше шансов сломаться, если однажды версия UTF32 станет новым стандартом.

2 голосов
/ 08 апреля 2010

Вы можете получить список локальных принтеров, просто используя список, указанный в переменной Printer. Просто как 

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

Я бы использовал этот метод, если у вас нет конкретной причины делать то, что вы делаете.

2 голосов
/ 08 апреля 2010

Поскольку вы используете версию Unphode Delphi, вы должны использовать _PRINTER_INFO_2W структуру вместо _PRINTER_INFO_2A

...