mizaelBS
-
Total de ítens
5 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por mizaelBS
-
-
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
Exemplo comunicação TCP
em ACBrTCP
Postado
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