Diretivas ACBrPosPrinter

[William F. L.]

Olá pessoal, estou trabalhando com o componente ACBrPosPrinter, quando a impressora EPSON TM T20 está na máquina local funciona normalmente mas quando tento acessar via rede acaba dando um erro.

Analisando o arquivo ACBrDevice.pas descobri que o meu problema está no trecho abaixo onde existem as diretivas para criar as variáveis, não sei o porque mas meu Delphi XE não entra nesse {$ELSE}:

procedure TACBrDevice.EnviaStringArquivo( const AString: AnsiString);
Var
  I, Max, NBytes : Integer ;
  {$IFDEF Use_Stream}
    FS     : TFileStream ;
    Buffer : AnsiString ;
  {$ELSE}
    ArqPrn : TextFile ;
  {$ENDIF}

 

Como "gambiarra" somente para desenvolvimento, fiz uma alteração e agora funciona normalmente em rede:

procedure TACBrDevice.EnviaStringArquivo( const AString: AnsiString);
Var
  I, Max, NBytes : Integer ;
  {$IFDEF FPC}
    {$IFDEF Use_Stream}
      FS     : TFileStream ;
      Buffer : AnsiString ;
    {$ENDIF}
  {$ELSE}
    ArqPrn : TextFile ;
  {$ENDIF}

 

Mas fica a dúvida do porque ele não reconhece a diretiva.

[Daniel Simoes]

Por favor forneça mais detalhas sobre o problema...

Qual a exata msg de erro ?

O que você tentou fazer ?

O que não funcionou ? Como era pra ter funcionado ?

[William F. L.]

Simples e objetivo, somente pressionei o botão "Ativar" em uma máquina onde não está instalada a impressora:

[Daniel Simoes]

O problema parece ser um conflito entre ACBrDevice e ACBrECFVirtualBuffer (que tinha esse mesmo DEFINE)

Apliquei uma possível correção no SVN