Bematech MP-S100 TH + Spooler do Windows

[dsv]

Boa tarde
Estou abrindo este tópico pois pesquisando no fórum não achei nenhum problema parecido.

Estou utilizando a função abaixo para abrir a uma gaveta que esta ligada a impressora não fiscal Bematech MP-S100 TH

Function AcionaGavetaNaoFiscal(sPorta: string): Boolean;
Var
  txt: TextFile;
  sComando: string;
begin

  try
    // Comando para Acionar a Gaveta de Dinheiro
    AssignFile(txt, sPorta);
    Rewrite(txt);

    if (frmPrincipal.LerIni('.\Cfg\pdv_sat.ini', 'GUILHOTINA', 'MODELO', 'PADRÃO')
      = 'PADRÃO') or (frmPrincipal.LerIni('.\Cfg\pdv_sat.ini', 'GUILHOTINA',
      'MODELO', 'PADRÃO') = 'BEMATECH') then
        sComando := #27 + #118 + #140; // BEMATEH E PADRAO

    if frmPrincipal.LerIni('.\Cfg\cfg_sat.ini', 'GUILHOTINA', 'MODELO', 'PADRÃO') = 'DARUMA'
    then
      sComando := #27 + #112; // DARUMA

    Write(txt, sComando);
    CloseFile(txt);

  except

    Result := False;

  end;

end;

Essa função funciona perfeitamente, a gaveta abre normal,  porem se eu imprimir o cupom SAT com o Extrato configurado na opção FORTES utilizando o Spooler do Windows a gaveta para de funcionar, mesmo utilizando a mesma função novamente, ela para de abrir, o que da a entender que a porta fica ocupada alguém tem alguma luz?

 

[EMBarbosa]

O código não parece envolver os componentes da área ACBrSerial. Movendo para área adequada.

[Daniel Simoes]

Use o componente ACBrPosPrinter... Veja o Demo: