ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Abrir gaveta com impressora não fiscal na porta serial

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
GustavoAlves1993
Novato
Novato


Registrado: Segunda-Feira, 10 de Junho de 2013
Mensagens: 64

MensagemEnviada: Ter Nov 11, 2014 8:08 am    Assunto: Abrir gaveta com impressora não fiscal na porta serial Responder com Citação

OLÁ BOM DIA A TODOS,

ESTOU TENDO DIFICULDADES EM ABRIR UMA GAVETA EM UMA IMPRESSORA NÃO FISCAL PELA PORTA SERIAL (COM1), JÁ DEI UMA VASCULHADA NA INTERNET E NÃO CONSEGUI RESOLVER MEU PROBLEMA. SE ALGUÉM PUDER AJUDAR FICAREI IMENSAMENTE GRATO.

GAVETA: BEMATECH GD-56
IMPRESSORA: BEMATECH MP-4000 TH
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Ghost_Rider
Colaborador
Colaborador


Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437

MensagemEnviada: Ter Nov 11, 2014 1:56 pm    Assunto: Responder com Citação

Tá...no site da bematech tem o manual da citada gaveta, dizendo que a mesma é compatível com a não fiscal que você citou, que pode ser observado nesse link
http://www.bematech.com.br/equipamentos/produto/gd-56, clicando em Manuais. Se a mesma é compativel, basta conectar o cabo da gaveta ne não fiscal (cabo que parece um cabo telefonico) e pela DLL usar o metodo chamado abre-gaveta...é bem simples amigo..

Se estiver usando o acbr é mais facil ainda...

Abraço...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
GustavoAlves1993
Novato
Novato


Registrado: Segunda-Feira, 10 de Junho de 2013
Mensagens: 64

MensagemEnviada: Ter Nov 11, 2014 2:07 pm    Assunto: Responder com Citação

Ghost_Rider escreveu:
Tá...no site da bematech tem o manual da citada gaveta, dizendo que a mesma é compatível com a não fiscal que você citou, que pode ser observado nesse link
http://www.bematech.com.br/equipamentos/produto/gd-56, clicando em Manuais. Se a mesma é compativel, basta conectar o cabo da gaveta ne não fiscal (cabo que parece um cabo telefonico) e pela DLL usar o metodo chamado abre-gaveta...é bem simples amigo..

Se estiver usando o acbr é mais facil ainda...

Abraço...


Olá Ghost_Rider, então ja tinha visto esse manual, a gaveta está conectada com a minha impressora e pelo aplicativo que a Bematech disponibiliza para testes ela funciona certinho, eu estou tentando fazer pela dll MP2032 agora, porém não venho obtendo exito. Segue o codigo.

//1° - CONFIGURA MODELO DA IMPRESSORA
iRetorno := ConfiguraModeloImpressora( 5 );
case iRetorno of
1:ShowMessage('Modelo Configurado com Sucesso.');
-2:ShowMessage('Parâmetro inválido.');
end;

//2° - INICIA PORTA DA IMPRESSORA
iRetorno := IniciaPorta(pchar('COM1'));
if iRetorno <= 0 then
begin
ShowMessage('Problemas ao abrir a porta de comunicação.');
end
else
if iRetorno = 1 then
begin
ShowMessage('Porta de comunicação iniciada sem problemas.');
end;

//3° - VERIFICA STATUS DA IMPRESSORA
iRetorno := Le_Status();
case iRetorno of
0:ShowMessage('Erro de comunicação/"OFFLINE"');
5:ShowMessage('Impressora com pouco papel');
24:ShowMessage('Impressora "ONLINE"');
32:ShowMessage('Impressora sem papel');
end;

//4° - VERIFICA STATUS DA GAVETA
iRetorno := Le_Status_Gaveta();
case iRetorno of
0:ShowMessage('Erro de comunicação');
1:ShowMessage('Gaveta Aberta');
2:ShowMessage('Gaveta Fechada');
end;

//ABRI GAVETA
sComando := #27 + #118 + #140;
iRetorno := ComandoTX( sComando, Length( sComando );
case iRetorno of
0:ShowMessage('Erro na comunicação');
1:ShowMessage('Sucesso, função executada sem problemas');
end;

Ela não chega nem a iniciar a conexão com a porta de erro de comunicação.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Ghost_Rider
Colaborador
Colaborador


Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437

MensagemEnviada: Ter Nov 11, 2014 2:20 pm    Assunto: Responder com Citação

Da uma olhada na versão da DLL e na pasta que esta a dll..verifique se existe mais de uma versão da dll....
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
GustavoAlves1993
Novato
Novato


Registrado: Segunda-Feira, 10 de Junho de 2013
Mensagens: 64

MensagemEnviada: Ter Nov 11, 2014 3:22 pm    Assunto: Responder com Citação

Ghost_Rider escreveu:
Da uma olhada na versão da DLL e na pasta que esta a dll..verifique se existe mais de uma versão da dll....



Acabei de testar com todas as dll MP2032 disponíveis no site da Bematech, a unica que funciona com o aplicativo deles próprio e a versão 4.2.0.0, e no meu sistema nenhuma executo o código com sucesso, não passam da 2° Etapa.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
GustavoAlves1993
Novato
Novato


Registrado: Segunda-Feira, 10 de Junho de 2013
Mensagens: 64

MensagemEnviada: Qua Nov 12, 2014 9:51 am    Assunto: Responder com Citação

Ghost_Rider escreveu:
Da uma olhada na versão da DLL e na pasta que esta a dll..verifique se existe mais de uma versão da dll....


Ghost_Rider, baixei um exemplo da bematech e por ele também não abriu a gaveta, no exemplo a impressora ativa na COM1 porém quando tento abrir a gaveta ela não abri, já no aplicativo disponibilizados pela propria bematech para testes com a impressora ela funciona perfeitamente.

Eu abri o exemplo e segui os códigos, estão idênticos e no meu ela não ativa, o que pode ser? será que estou declarando as functions da dll errado, elas devem ser declaradas depois do implementation correto?

implementation

function ConfiguraModeloImpressora( ModeloImpressora: integer ): integer; stdcall; far; external 'MP2032.DLL';
function IniciaPorta( Porta: string ): integer; stdcall; far; external 'MP2032.DLL';
function Le_Status: integer; stdcall; far; external 'MP2032.DLL';
function Le_Status_Gaveta: integer; stdcall; far; external 'MP2032.DLL';
function ComandoTX( BufTrans: string; TamBufTrans: integer ): integer; stdcall; far; external 'MP2032.DLL';}
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Ghost_Rider
Colaborador
Colaborador


Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437

MensagemEnviada: Qua Nov 12, 2014 12:16 pm    Assunto: Responder com Citação

Me passa seu e-mail por MP que vou te mandar um exe pra teste...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
GustavoAlves1993
Novato
Novato


Registrado: Segunda-Feira, 10 de Junho de 2013
Mensagens: 64

MensagemEnviada: Qua Nov 12, 2014 1:34 pm    Assunto: Responder com Citação

Ghost_Rider escreveu:
Me passa seu e-mail por MP que vou te mandar um exe pra teste...


Mandei Ghost_Rider
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rique_neves
Mestre
Mestre


Registrado: Sexta-Feira, 17 de Fevereiro de 2012
Mensagens: 873

MensagemEnviada: Sex Jan 02, 2015 3:21 pm    Assunto: Re: Abrir gaveta com impressora não fiscal na porta serial Responder com Citação

Espero que ainda te ajude, busco os parametros no arquivo INI. Verifico o modelo da IMPRESSORA e passo o parametro.
Este trecho funciona em todas as impressoras bematech.
Caso utilize outro modelo ou queira parametrizar me avise.
Tenho para Bematech,Daruma, Epson, Diebold/Mecaf

Código:
//ACIONANDO GAVETA BEMATECH NAO FISCAL
            if GAVETA.ReadString('IMPRESSORA','GAVETA','') = 'S' THEN
            begin
                  Result:= #027+'v'+#140; //GAVETA
            end;
            if GUILHOTINA.ReadString('IMPRESSORA','GUILHOTINA','') = 'S' THEN
            begin
                 Result:= #27 + #119 + #1; // GUILHOTINA BEMATECH
            end
        end;


bye
_________________
Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB