Jump to content
Notícias do ACBr

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

Delphi FMX Berlin - AcbrMonitor Plus TCP/IP - Indy


radic
  • Este tópico foi criado há 1553 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Estou usando Delphi Berlin em um projeto firemonkey com AcbrMonitor Plus com TCP/IP

Estou testando um exemplo simples com Indy.

 IdTcpClient.Host := 'localhost';
 IdTcpClient.Port := 3434;
 IdTcpClient.Connect;

 IdTcpClient.SendCmd('SAT.Inicializar'); //- Bem aqui trava.

 Memo.Lines.Add(IdTcpClient.IOHandler.ReadLn);

Alguém pode me dar uma ajuda ou me indicar um demo?

 

Link to comment
Share on other sites

  • Consultores

Bom dia

como você usa delphi por que não usar o componente?

ao invés do monitor!

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Fundadores

Você não está enviando o terminador  esperado pelo MonitorPLUS... 

Veja os fontes do exemplo em Lazarus 

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

  • Fundadores
procedure TForm1.bEnviarClick(Sender: TObject);
begin
  fSocket.SendString(mEnviar.Lines.Text + #13+#10+'.'+#13+#10);
  AguardaReposta;
end;    

 

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

Gente usei assim.

IdTcpClient.Host := 'localhost';
IdTcpClient.Port := 3434;
IdTcpClient.Connect;

IdTCPClient.IOHandler.WriteLn('SAT.Inicializar' + #13+#10 + '.' + #13+#10);
Memo.Lines.Add(idTCPClient.IOHandler.ReadLn(#3, 5000));

O comando funciona porém me retorna no Memo isso.

ACBrMonitor/ACBrNFeMonitor PLUS Ver. 1.0.0.0
Conectado em: 22/04/17 20:09:40
M��quina: 127.0.0.1
Esperando por comandos.

Não me retorna o resultado final que seria isso

ERRO: Modelo de SAT não definido

Se alguém puder me ajudar agraço muito.

11 horas atrás, Juliomar Marchetti disse:

Bom dia

como você usa delphi por que não usar o componente?

ao invés do monitor!

Meu projeto de software tem um diferencial, estou usando Firemonkey para Dispositivos móveis, com DataSnap Rest/Json.

Link to comment
Share on other sites

  • Fundadores

Sugiro que você realmente leia os fontes do Exemplo em Lazarus... Ele é funcional em Delphi, pois usa apenas as Units do ACBr... basta converter o projeto...

Repare que você está usando " WriteLn", que como o próprio nome diz, irá inserir um "LN" no final da String enviada...

O seu comando chegou e foi processado... " ERRO: Modelo de SAT não definido "

O que você precisa fazer agora, é ler a resposta do canal TCP...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

Tudo certo,

Usei a unit blcksock que já está no fontes.

Tentei compilar para android só para checar a compatibilidade, mais não deu certo.:-D

Mais tudo bem, o que quero fazer irei programar em um serviço com datasnap.

Obrigado a todos.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.