Dica para verificar o status de uma impressora usando a API do Windows.

Há vários anos (diria até que há décadas!) rola na Internet uma famigerada dica para verificação do status de uma impressora na rede. Essa dica é notadamente do tempo do Delphi 2, quando o mesmo permitia que certas chamadas à instruções privilegiadas de baixo nível eram permitidas, tais como chamadas às interrupções da BIOS, chamadas estas que eram muito utilizadas em programação Assembly de 16 bits. No entanto, com os atuais sistemas operacionais Windows (Windows XP, Windows Vista, Windows 7, etc.) estas dica é inviável. O motivo disto é que os sistemas operacionais citados são baseados todos na arquitetura do Windows NT, e este por sua vez impõe rígidas restrições à execução de instruções privilegiadas de baixo nível a partir de aplicações de nível 3 (a.k.a. user mode). Chamadas neste nível só devem ser feitas a partir de um código compilado em nível 0 (a.k.a. kernel mode), comumente presente em drivers de baixo nível para acessar recursos do hardware do computador. Para tentar contornar este problema, sugere-se fazer uso da própria API do Windows. O código abaixo faz uso de várias rotinas da API do Windows para obter o status da impressora default do computador. A função mais importante é a GetPrinter(), que permite que se obtenha, através de uma estrutura pré-definida, dentre outros dados importantes, o status da impressora. Até o momento, este código vêm me atendido bem. Copiem e façam suas próprias verificações em seus ambientes de trabalho. Um abraço, Rubem Rocha Manaus, AM <<<INÍCIO>>> function GetCurrentPrinterHandle: THandle; const   Defaults: TPrinterDefaults = (     pDataType: nil;     pDevMode: nil;     DesiredAccess: PRINTER_ACCESS_USE or PRINTER_ACCESS_ADMINISTER); var   Device, Driver, Port: array[0..255] of char;   hDeviceMode: THandle; begin   Printer.GetPrinter(Device, Driver, Port, hDeviceMode);   if not OpenPrinter(@Device, result, @Defaults) then     RaiseLastWin32Error; end; function GetPrinterStatus: Cardinal; var   hPrinter: THandle;   bytesNeeded, i: Cardinal;   pInfo: PPrinterInfo2; begin   Result := INVALID_HANDLE_VALUE;   hPrinter := GetCurrentPrinterHandle;   GetPrinter(hPrinter, 2, nil, 0, @bytesNeeded);   pInfo := AllocMem(bytesNeeded);   try     GetPrinter(hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded);      Result := pInfo^.Status;   finally     ClosePrinter(hPrinter);   end; end; function GetPrinterStatusAsString: string; var   lStatus: Cardinal;   lslStatusList: TStringList; begin   lslStatusList := TStringList.Create;   lslStatusList.Text := EmptyStr;   lStatus := GetPrinterStatus;   try     if Boolean(lStatus and PRINTER_STATUS_PAUSED) then       lslStatusList.Add('Em pausa');     if Boolean(lStatus and PRINTER_STATUS_ERROR) then       lslStatusList.Add('Erro');     if Boolean(lStatus and PRINTER_STATUS_PENDING_DELETION) then       lslStatusList.Add('Exclusão de job pendente');     if Boolean(lStatus and PRINTER_STATUS_PAPER_JAM) then       lslStatusList.Add('Acúmulo de papel');     if Boolean(lStatus and PRINTER_STATUS_PAPER_OUT) then       lslStatusList.Add('Sem papel');     if Boolean(lStatus and PRINTER_STATUS_MANUAL_FEED) then       lslStatusList.Add('Alimentação manual');     if Boolean(lStatus and PRINTER_STATUS_PAPER_PROBLEM) then       lslStatusList.Add('Problema no papel');     if Boolean(lStatus and PRINTER_STATUS_OFFLINE) then       lslStatusList.Add('Impressora off-line');     if Boolean(lStatus and PRINTER_STATUS_IO_ACTIVE) then       lslStatusList.Add('I/O ativo');     if Boolean(lStatus and PRINTER_STATUS_BUSY) then       lslStatusList.Add('Impressora ocupada');     if Boolean(lStatus and PRINTER_STATUS_PRINTING) then       lslStatusList.Add('Imprimindo ...');     if Boolean(lStatus and PRINTER_STATUS_OUTPUT_BIN_FULL) then       lslStatusList.Add('Output bin cheio');     if Boolean(lStatus and PRINTER_STATUS_NOT_AVAILABLE) then       lslStatusList.Add('Impressora não disponível');     if Boolean(lStatus and PRINTER_STATUS_WAITING) then       lslStatusList.Add('Aguardando ...');     if Boolean(lStatus and PRINTER_STATUS_PROCESSING) then       lslStatusList.Add('Processando ...');     if Boolean(lStatus and PRINTER_STATUS_INITIALIZING) then       lslStatusList.Add('Inicializando ...');     if Boolean(lStatus and PRINTER_STATUS_WARMING_UP) then       lslStatusList.Add('Aquecendo ...');     if Boolean(lStatus and PRINTER_STATUS_TONER_LOW) then       lslStatusList.Add('Toner baixo');     if Boolean(lStatus and PRINTER_STATUS_NO_TONER) then       lslStatusList.Add('Sem toner');     if Boolean(lStatus and PRINTER_STATUS_PAGE_PUNT) then       lslStatusList.Add('PAGE PUNT');     if Boolean(lStatus and PRINTER_STATUS_USER_INTERVENTION) then       lslStatusList.Add('Intervenção do usuário');     if Boolean(lStatus and PRINTER_STATUS_OUT_OF_MEMORY) then       lslStatusList.Add('Impressora sem memória');     if Boolean(lStatus and PRINTER_STATUS_DOOR_OPEN) then       lslStatusList.Add('Impressora está aberta');     if Boolean(lStatus and PRINTER_STATUS_SERVER_UNKNOWN) then       lslStatusList.Add('Servidor de impressão desconhecido');     if Boolean(lStatus and PRINTER_STATUS_POWER_SAVE) then       lslStatusList.Add('Guardando energia');     Result := lslStatusList.Text;   finally     lslStatusList.Free   end end; <<<FINAL>>>

Quebra-Linha

Colaborador..: Rubem Nascimento da Rocha
Categoria(s).: Delphi; Programação;
Versão.......: 1.0
Data.........: 19/07/2011 21:54:46
Visualizado..: 438 vezes
Fonte........: http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg11675.html