TCP/IP

[AG Sistemas]

Boa tarde!

Pessoal preciso consumir um serviço via socket. Eu acredito que pelo acbr tem como consumir isso teria algum exemplo  ?

Desde ja agradeço

[Juliomar Marchetti]

Movido para um local adequada pois não faz parte do escopo do SAC

[Juliomar Marchetti]

Sobre dua dúvida usamos o synapse , nele possui bibliotecas para conexão via socket

[Daniel Simoes]

Nessa página tem alguns exemplos:

http://www.ararat.cz/synapse/doku.php/public:howto:tcpwithssl

[AG Sistemas]

bom dia !

Obrigado pela indicação, http://www.ararat.cz/synapse/doku.php/public:howto:tcpwithssl o uso parece ser bem simples. Mas eu não consegui instalar para utilizar o synapse.

 

 

[Juliomar Marchetti]

Não precisa as units estão no ACBr.

basta declarar elas e usa

[AG Sistemas]

15 minutos atrás, Juliomar Marchetti disse:

Não precisa as units estão no ACBr.

basta declarar elas e usa

Desculpa a ignorância mas eu não achei a declaração ou um lugar que esta usando o envio via socket.

Caso vc consiga me passar agradeço. 

[Juliomar Marchetti]

O monitor por exemplo usa.

olha o componente TACBrTCPServer

[Daniel Simoes]

Uses blcksock

http://synapse.ararat.cz/doc/help/

Esse site tb tem vários exemplos de uso...
https://wiki.lazarus.freepascal.org/Synapse

[AG Sistemas]

4 horas atrás, Juliomar Marchetti disse:

O monitor por exemplo usa.

olha o componente TACBrTCPServer

Este componente ele monta um servidor socket. Eu não encontrei como consumir ele.

[Daniel Simoes]

Veja a pasta: \ACBr\Exemplos\ACBrTCP\ACBrTCPServer

[AG Sistemas]

Bom dia ! 

Achei este tópico que fala sobre o envio .

 

montei desta forma aparentemente conectou mas eu não estou conseguindo pegar a resposta, tem alguma tratamento diferente que tenho que fazer ?

   try  

        fSocket := TBlockSocket.Create;
        fSocket.Connect(sURL,sPorta);
        fSocket.SendString(sDados);
        sRespostaRequisicao := UpperCase(Trim(fSocket.RecvTerminated(5000, #3)));

   finally
      FreeAndNil(fSocket);
   end;

[AG Sistemas]

Como eu consigo testar se ele conectou ?

[Juliomar Marchetti]

https://forum.lazarus.freepascal.org/index.php?topic=35603.0

[Daniel Simoes]

1 hora atrás, AG Sistemas disse:

Como eu consigo testar se ele conectou ?

Se ele não conectar, haverá um Exception

[AG Sistemas]

Não esta dando Exception mas tambem não esta enviando a string.

 

[Daniel Simoes]

Pode ser que o outro lado, espere a String em um protocolo específico...

[AG Sistemas]

Então eu entrei em contato com o responsável pelo serviço.

E assim que da o fSocket.SendString(sDadosNegativacao) perguntei se badeu alguma coisa no servidor ele disse que não.

sobre a string eu ja mandei por email e ele me passou q estava ok. 

O problema seria que não esta chegando no servidor dele.

[Daniel Simoes]

Da mesma forma, ele consegue saber se houve uma nova conexão no Servidor...

 

[AG Sistemas]

Daniel, não da exception mas  esta retornando FLastError : 11001 .

 

[AG Sistemas]

Peguei o exemplo de servidor TCP Server e fiz teste de conexão.

A conexão acontece mas a string não transmite para o servidor estou usando assim. 

Se eu clicar na resposta do servidor vem o OK para o cliente mas a string que eu estou tentando enviar não passa.

      try

        fSocket := TBlockSocket.Create;
        fSocket.Connect('localhost','3434');    //Conecta normal
        fSocket.SendString(sDados);               //não passou os dados

        sRespostaRequisicao := fSocket.RecvString(50000);  // se eu clicar na resposta do servidor vem o OK
        //sRespostaRequisicao := UpperCase(Trim(fSocket.RecvTerminated(50000, #3)));

      finally
        FreeAndNil(fSocket);
      end;

 

desde já Agradeço.

[Daniel Simoes]

Você pode ver um exemplo funcional, que se comunica com o ACBrMonitorPLUS em:
\ACBr\Projetos\ACBrMonitorPLUS\Lazarus\Exemplos\Lazarus

[AG Sistemas]

Daniel obrigado pela ajuda mas não consegui enviar a string para o servidor não vai.

Faz a conexão, não vem resposta que conectou e não envia a string.

Estou sem ideias. Pq teoricamente era para ser bem simples.

[Daniel Simoes]

Usa o demo do ACBr indicado acima, para testes.. e muda a Porta de conexão...

 

lembre-se de verificar Firewall de todas as redes envolvidas...

[AG Sistemas]

Estou usado o exemplo do  tcp server e o modo que o monitor plus do larazus se comunica com o servidor. 

Liberei a porta no Firewall.