mizaelBS

Amigos por favor me de uma ajuda, seguinte: com txt estou conseguindo fazer os comandos, o problema é o seguinte, quando mando o comando por exemplo de NFE.StatusServico ele faz perfect e me devolve legal o status o problema é que se em seguida eu mandar o comando de consultar ele traz o status no caso o retorno anterior, ai se eu apertar novamente o botao de consultar ele mostra a consulta porem nem é mais da acao em questao ja é da outra consulta, deu pra entender, ai pergunto? preciso esperar um certo tempo pra pegar o retorno, pode ser junto na mesma procedure? eu queria na verdade usar por tcp que acho que não teria esse problema mas nao estou tendo comunicacao via sockts. Grato a todos que ajudarem Mizael Rocha

Régis muito obrigado pela resposta, mas vou tentar usar com txt, deixa explicar meu problema, meu delphi comecou a me encomodar depois q inventei de atualizar a versao do indy para 10, depois tentei voltar para a 9 e comecei a ter muitos problemas com componetes desta paleta, tanto que para enviar email tive que usar uma dll de terceiros, mas eu tava tentando usar usar via tcp ip porque estou meio preocupado com a situação de vários usuarios ao mesmo tempo mandarem o mesmo comando, mas li em alguns posts que posso colocar ENTNFE01 02 user1 e assim por diante, entao acho q nao terei problemas né? e me diga voce recomenda qual? Abraços e obrigado Mizael

Régis fiz varios testes um deles foi: procedure Tfrmnotafiscal_menu.bt_nfe_statusClick(Sender: TObject); var d: TTime; Resp: Integer; comando1, resposta1: string; begin with TcpClient1 do begin RemoteHost := 'localhost'; RemotePort := '3436'; comando1 := 'NFe.StatusServico' + sLineBreak + '.' + sLineBreak; if Connect() then begin ShowMessage('Conectou'); //Sendcmd('NFe.StatusServico' + sLineBreak + '.' + sLineBreak); Sendln(comando1); resposta1 := TcpClient1.Receiveln(sLineBreak); Disconnect; ShowMessage(resposta1); end; end; Exit; ai vem a resposta com : ACbrMonitor2 e mais a versao e CAPICOM Obrigado, so estou postando os testes pra ajudar na analise

Olha so Régis como estou mandando usando sua funcao: declarei comando, Resposta: AnsiString; comando := 'NFe.StatusServico' + sLineBreak + '.' + sLineBreak; if EnviarComando(comando, Resposta) then begin frmPrincipal.Aguarde('Resposta do ServerNFe', Resposta, True, True, 5); end; o problema que achei debugando é que o resp fica valor -1, entao nao me da uma respota Grato

Régys, cara estou tendo que rodar a nfe em rede, por isso estou tentando usar o acbrNFemonitor, estou tentando usar essa sua funcao, mas sem sucesso, podes me dar um exemplo de us da funcao? Obrigado Grato Mizael