Envia Comando

Permite que um comando seja enviado diretamente para a impressora.

Exemplo

procedure TForm1.EnviaComando1Click(Sender: TObject);
Var  CMD1,CMD2, StrAsc, C : String ;
         A : Integer ;
         LeAsc : Boolean ;
begin
    CMD1 := '' ;
    if InputQuery('Enviar Comando',
                           'Digite o comando de acordo com a Sintaxe da Impressora'+#10+#10+
                           'Para Caracteres ASC use # Ex: #06 = chr(06)'+#10+#10+
                           'Exemplo: #06 irá imprimir uma Leitura X na Bematech' , 
                            CMD1 ) then
    begin
        CMD2 := '' ;
        StrAsc := '' ;
        LeAsc := false ;

        For A := 1 to length( CMD1 ) do
            begin
                C := copy( CMD1, A, 1) ;

                if not LeAsc then
                    begin
                        if C = '#' then
                            begin
                                LeAsc := true ;
                                StrAsc := '' ;
                            end
                       else
                        CMD2 := CMD2 + C ;
                    end
                else
                    begin
                        if C = ' ' then
                            begin
                                CMD2 := CMD2 + chr( StrToIntDef( StrAsc, 0 ) ) ;
                                LeAsc := false ;
                            end
                        else
                                StrAsc := StrAsc + C ;
                    end ;
            end ;
        if StrAsc <> '' then
            CMD2 := CMD2 + chr( StrToIntDef( StrAsc, 0 ) ) ;
       ACBrECF1.EnviaComando( CMD2 );
    end ;
end;