Antonio Bacelar

Oi Paulo, Não entendi muito bem sua implementação, fiquei confuso com os tipos de componentes você utilizou, será que pode enviar uma parte maior do código? Também estou tentando implementar mais estou tendo muitas dificuldades para emitir a NFE no terminal

Obrigado pela dica Daniel.

É um espelho que está neste endereço https://github.com/GabrielF7/ACBrTrunk2/tree/master/Projetos/ACBrMonitorPLUS/Lazarus/Exemplos

É exatamente isso João, já consegui usar o componente NFE normalmente, estou com dificuldade para entender a implementação com o Monitor

Oi Paulo, Os exemplos que estão na pasta são para COBOL, CLIPPER, JAVA, ORACLE e PHP e o mais curioso em tudo isso é que, apesar de ter sido escrito em Pascal, nos modelos que acompanham os fontes não existe NENHUM exemplo de comunicação feito em PASCAL fato que dificulta bastante o uso. Estou tentando me virar aqui, pescando de todos os lados e contando com a ajuda de todos do forum. Grato pela atenção.

Oi Juliomar, como falei não existe nenhum exemplo em Delphi, veja a imagem Grato pela atenção.

Oi Juliomar, Os exemplos que tem na pasta do projeto são em outras linguagens (php, java e etc). Não tem nenhum exemplo de uso do ACNRMONITORPLUS para Delphi com socket. Se você conseguiu identificar algum exemplo que eu não tenha vista poderia por favor indicar qual foi.

Olá Paulo, o comando processou. Sem querer abusar mas será que vc tem algum exemplo para emissão da NFE pelo Delphi? Sou novo com desenvolvimento e não estou compreendendo muito bem como farei para criar, assinar, enviar e receber a NFE na maquina cliente. Muito obrigado pela ajuda.

Bom dia, estou tentando usar o ACBRNFEPLUS + Socket no Delphi. Consigo estabelecer a conexão mas todos os comandos enviados não são interpretados ou reconhecidos pelo Monitor. Será que alguém tem algum exemplo em Delphi para que eu possa entender o funcionamento no Delphi? Segue abaixo o trecho do código que eu utilizo para estabelecer a conexão e testar o envio dos comandos. procedure TForm1.Button1Click(Sender: TObject); begin ConexaoNFE := TClientSocket.Create(Self); ConexaoNFE.Host := '192.168.0.123'; ConexaoNFE.Port := 3434; ConexaoNFE.Active := True; end; procedure TForm1.Button2Click(Sender: TObject); begin ConexaoNFE.Socket.SendText(NFe.StatusServico + #13#10); Memo1.Lines.Add(ConexaoNFE.Socket.ReceiveText); end; Já testei com: ConexaoNFE.Socket.SendText(NFe.StatusServico + #13); ConexaoNFE.Socket.SendText(NFe.StatusServico + #13 + #13); e ConexaoNFE.Socket.SendText(NFe.StatusServico + #13#10 + #13#10); Nenhum dos exemplos acima funciona, necessito de qualquer auxilio.