Porta de Impressora n�o � detectada no XP

Question

Pessoal, bom dia!Estou desenvolvedo um sistema em delphi 5 e preciso que ele mostre todas as impressoras instaladas para que o usu�rio escolha a impressora (impress�o direta, sem report) e estou usand...

Massuda · Answer

Uso D5 + WinXP sem problemas a mais de um ano.

...ele determina o nome e a porta da impressora. J� no Windows XP ele s� mostra o nome (hp deskjet 3600 series), n�o acha a porta....

Verifique a configura��o das impressoras na m�quina com Windows XP. Na minha m�quina, o texto para impressoras de rede � algo do tipo �\\Comercial3\hp 3600� enquanto as impressoras locais aparecem como �hp deskjet 3600 series�.

...por�m quando executo o aplicativo por fora do Delphi, executando o �.exe� as op��es �Print Setup� e �Print� ficam desabilitadas...

Existe um bug na VCL que as vezes faz o QR pensar que n�o tem impressora instalada na m�quina, embora tenha impressora instalada. D� uma olhada [url=http://www.qusoft.com/printerbug.html]nesta p�gina[/url] da QUSoft, sobre o problema �There is no default printer currently selected�.

Bonds · Answer

Massuda, valeu pela segunda resposta em rela��o ao Qreport.

Verifique a configura��o das impressoras na m�quina com Windows XP. Na minha m�quina, o texto para impressoras de rede � algo do tipo �\\Comercial3\hp 3600� enquanto as impressoras locais aparecem como �hp deskjet 3600 series�.

Em rela��o ao nome da impressora local realmente ele detecta ela, mas a porta que ela est� n�o.

Por exemplo
Tenho uma Epson Stylus C65 na LPT1. No Win98 ele responde isso:

�Epson Stylus C65 on LPT1� j� no XP ele retorna somente o nome dela
�Epson Stylus C65�

Criei o combobox para detectar todas as impressoras instaladas (de rede ou local) e mando imprimir direto na impressora escolhida no combo o nome dela e determinando na procedure a porta.

Exemplo:

procedure TFormImprimir.FormShow(Sender: TObject);
var
I : Integer;
begin
ComboBox1.Items.Clear;
For I:= 1 to Printer.Printers.Count do
Begin
if Pos(�LPT�, printer.Printers.Strings[I-1]) > 0 Then
ComboBox1.Items.Add(�LPT1�)
Else if Pos(�\\�, printer.Printers.Strings[I-1]) > 0 Then
ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1],
Pos(�\\�, printer.Printers.Strings[I-1]),
length(printer.Printers.Strings[I-1]) -
Pos(�\\�, printer.Printers.Strings[I-1]) + 1));
End;
//Combobox1.ItemIndex := 0;
end;

Depois pego o valor da porta sacou !? :o

Massuda · Answer

Testei numa m�quina com Win2K... a verdade � que seu c�digo parece funcionar apenas no Win9x; nas outras vers�es do Windows o nome da porta � omitido da lista de impressoras instaladas.

Depois de dar uma pesquisada, parece que isso funcionar� em qualquer Windows (n�o testei muito)...

uses
  Printers, WinSpool, ...

function GetCurrentPrinterHandle: THandle;
var
  Device, Driver, Port: array[0..255] of Char;
  Mode: THandle;
begin
  Printer.GetPrinter(Device, Driver, Port, Mode);
  if not OpenPrinter(@Device, Result, nil) then
    RaiseLastWin32Error;
end;

function GetCurrentPrinterPort: string;
var
  Buffer: array of Char;
  Size: DWORD;
  H: THandle;
begin
  H := GetCurrentPrinterHandle;
  try
    WinSpool.GetPrinter(H, 2, nil, 0, @Size);
    SetLength(Buffer, Size);
    try
      WinSpool.GetPrinter(H, 2, @Buffer[0], Size, @Size);
      Result := PPrinterInfo2(@Buffer[0])^.pPortName;
    finally
      Buffer := nil;
    end;
  finally
    ClosePrinter(H);
  end;
end;

// exemplo de uso...
// preenche um combobox de modo parecido com o Win9x
var
  I: Integer;
  X: Integer;
...
  X := Printer.PrinterIndex;
  for I:= 0 to Printer.Printers.Count-1 do begin 
    Printer.PrinterIndex := I;
    ComboBox1.Items.Add(Printer.Printers[I]  + � on � + GetCurrentPrinterPort); 
  end; 
  Printer.PrinterIndex := X;

Bonds · Answer

:D Cara Muito obrigado, Funcionou tranquilo nos dois (no 98 e no 2003) n�o testei no xp mas se funcionou no 2003 vai funfar no XP tbm.

S� n�o entendi a segunda fun��o (GetCurrentPrinterPort) tem como comentar as linhas :lol: . S� a t�tulo de conhecimento.

Mais uma vez vlw

Massuda · Answer

[quote:8e80d5ba4c=�Bonds�]S� n�o entendi a segunda fun��o (GetCurrentPrinterPort) tem como comentar as linhas...[/quote:8e80d5ba4c]Acho que a parte mais complicada � o fato de ter duas chamadas � fun��o WinSpool.GetPrinter.Essa fun��o � da API do Windows (veja a [url=//msdn.microsoft.com/library/en-us/gdi/prntspol_1gky.asp]descri��o da fun��o[/url] no MSDN) e ela permite obter diversas informa��es sobre uma impressora �em uso�.Ela funciona assim... o tamanho do buffer com os dados que ela retorna pode variar com a vers�o do Windows, esta chamada (note o nil e o zero)...[code:1:8e80d5ba4c]WinSpool.GetPrinter(H, 2, nil, 0, @Size);[/code:1:8e80d5ba4c]...serve para ela informar quantos bytes s�o necess�rios para armazenar as informa��es que ela vai retornar.A segunda chamada...[code:1:8e80d5ba4c]WinSpool.GetPrinter(H, 2, @Buffer&#91;0&93;, Size, @Size);[/code:1:8e80d5ba4c]...� feita com um buffer (no caso um array din�mico) do tamanho necess�rio; a fun��o preenche o buffer e fa�o um typecast via ponteiro para obter a informa��o desejada. O tipo de dado PPrinterInfo2 est� declarado na unit WinSpool....

F�rum Porta de Impressora n�o � detectada no XP #280177