Localizar a porta serial COM da impressora

[Gr@c@]

Existem casos que, ao se instalar novo dispositivo, a porta COM da impressora fiscal passa a não ser mais a mesma configurada no aplicativo emissor de NFC-e. Como localizar via Delphi a porta serial em que a impressora não fiscal está, assim como a Bemafi32.dll faz?

[Sérgio Assunção]

3 minutos atrás, Gr@c@ disse:

Existem casos que, ao se instalar novo dispositivo, a porta COM da impressora fiscal passa a não ser mais a mesma configurada no aplicativo emissor de NFC-e. Como localizar via Delphi a porta serial em que a impressora não fiscal está, assim como a Bemafi32.dll faz?

Se eu não me engano, o ECFTeste faz essa função quando deixamos a opção "Procurar" na porta.

[Daniel Simoes]

Não é comum, a troca de porta COM no Windows... a não ser por exemplo, que você plugue a USB em uma porta diferente...

A única maneira seria tentar abrir todas as portas disponíveis... e tentar por exemplo, ler o Status da Impressora...

Segue um exemplo (não testado)

procedure TfrWizardPrincipal.AcharPortasSeriais(const AStringList : TStrings ;
   UltimaPorta : Integer) ;
var
   I     : Integer ;
   BS    : TBlockSerial ;
   Porta : String ;
   Status: TACBrPosPrinterStatus;
begin
   AStringList.Clear;

   BS := TBlockSerial.Create;
   try
      For I := 1 to UltimaPorta do
      begin
        try
           Porta := 'COM'+IntToStr(I) ;

           BS.Connect( Porta );
           if BS.LastError <> 2 then
           begin
              if BS.LastError = 5 then
                 Porta := Porta + '  -  Ocupada'
              else if BS.LastError <> 0 then
                 Porta := Porta + '  -  Erro: '+IntToStr(BS.LastError)+'-'+BS.LastErrorDesc
              else
              begin
                 ACBrPosPrinter1.Porta := Porta;
                 Status := ACBrPosPrinter1.LerStatusImpressora();
                 if (stErroLeitura in Status) then
                   Porta := Porta + '  -  Livre'
                 else
                   Porta := Porta + '  -  Impressora';
              end;

              AStringList.Add(Porta) ;
           end ;

           BS.CloseSocket;
        except
        end ;
      end ;
   finally
      BS.Free ;
   end ;
end ; 

 

[Gr@c@]

A impressora está na COM4. 

Resultado da procedure (a impressora está na COM4).

---------------------------
EMISSOR NFCe
---------------------------
COM2  -  Erro: 9992-Instance already in use
COM4  -  Erro: 9992-Instance already in use

---------------------------
OK   
---------------------------
 

[Daniel Simoes]

13 minutos atrás, Gr@c@ disse:

COM4  -  Erro: 9992-Instance already in use

provavelmente outra aplicação estava com a Port COM4 aberta...