Ir para conteúdo
  • Cadastre-se

Eraldo

Membros
  • Total de ítens

    28
  • Registro em

  • Última visita

Tudo que Eraldo postou

  1. Daniel Simoes, Desculpe-me a demora. O manual é o mesmo que você indicou. Mas no meu caso só funcionou invertendo a sequencia de comandos. Reforço que estou usando apenas o compomente ACBrGAV e este está acessando, naturalmente a unit correspondente ao modelo que é a unit ACBrGAVSerialGerbo. A gaveta nova é serial, esta ligada diretamente na serial do windowsXP (COM1). Bem Daniel...o meu cliente está feliz da vida... mas tive que inverter a sequencia de comandos... O que você acha disso?
  2. Eraldo

    Gaveta Dinheiro Gerbo

    Olá companheiros de labuta, Um cliente comprou a gabeta Gerbo serial. Essa gaveta funciona sozinha e para isso utilizei apenas o componente ACBrGAV, O fato interessante que gostaria de compartilhar é que ela somente funcionou quando ou alterei a unit ACBrGAVSerialGerbo, invertendo a sequencia de comandos confome abaixo: procedure TACBrGAVSerialGerbo.Ativar; begin if not fpDevice.IsSerialPort then raise Exception.Create(ACBrStr('Esse modelo de Gaveta requer'+#10+ 'Porta Serial: (COM1, COM2, COM3, ...)')); inherited Ativar ; { Abre porta serial } try fpDevice.Serial.DTR := true ; fpDevice.Serial.RTS := True ; // < Inverti aqui, era False CalculaProximaAbertura ; except Desativar ; raise end ; end; procedure TACBrGAVSerialGerbo.AbreGaveta; begin Inherited AbreGaveta ; fpDevice.Serial.RTS := False ; // Inverti aqui, era True Sleep(250) ; fpDevice.Serial.DTR := true ; fpDevice.Serial.RTS := True ; // Inverti aqui, era False CalculaProximaAbertura ; end; Gostaria de saber alguém já enfrentou essa situação e qual a solução. Obrigado pelo espaço.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.