Bom dia preciso de um help, estou com um problema na BEMATECH - MP2100 em um cliente, acontece que as vezes quando fecham o pdv e abrem de novo a impressora perde comunicação , cai num except no comando ecf.ativar , esta usando cabo serial , pois já troquei o cabo e problema persiste , percebi que foi depois de atualizar o componente . existe algo de errado , o trecho de codigo que comunica com a impressora ao abrir o pdv
// MODELO
if qryECF.FieldByName('modelo').AsString = 'Bematech' then
begin
ecf.Modelo := ecfBematech;
end
else if qryECF.FieldByName('modelo').AsString = 'Daruma' then
begin
ecf.Modelo := ecfDaruma;
end
else if qryECF.FieldByName('modelo').AsString = 'Epson' then
begin
ecf.Modelo := ecfEpson;
end;
ecf.Device.Baud := StrToInt(qryECF.FieldByName('velocidade').AsString);
ecf.Device.Porta := qryECF.FieldByName('porta').AsString;
ecf.Device.Parity := pNone;
try
ecf.Ativar;
lblECF.Caption := 'ECF OP:';
except
ON E: Exception Do
begin
mensagemAlerta('ECF não responde.');
ecf.Desativar;
exit;
end;
end;