Pesquisar na Comunidade
Showing results for tags 'acbrnfeplus + socket'.
Encontrado 1 registro
-
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.