TCP/IP

[AG Sistemas]

Boa tarde!

Pessoal eu fazendo os teste na minha maquina não consegui mandar a string nem receber as respostas do servidor local o conectar funciona.

Mas em produção esta dando certo de conectar, enviar a string e não consegui pegar a resposta alguém consegue me ajudar.

Estou seguindo o exemplo do Monitorplus com o Server TCP

Desde já Agradeço.

[Daniel Simoes]

Não entendi muito bem o post...

Você está usando o Demo de conexão do MonitorPLUS, para conectar em qual serviço ?

ajudaria se você desse mais informações sobre o servidor que está do outro lado...

[AG Sistemas]

Criei um projeto cliente que quando inicia ele conecta no exemplo de servidor TCP

      try

        frmPrincipal.fSocket.Connect('localhost','3434');
        sRespostaRequisicao := fSocket.RecvTerminated(10000, #3);

        fSocket.SendString('teste passa para o servidor');
        sRespostaRequisicao := fSocket.RecvTerminated(10000, #3);

      finally
        fSocket.CloseSocket;
      end;

 

*O Cliente conecta no servidor e  status do servidor inclui o "Conexão estabelecia..." mas não volta para a resposta de "Seja bem vindo".

procedure TForm1.ACBrTCPServer1Conecta(const TCPBlockSocket: TTCPBlockSocket; var Enviar: AnsiString);
begin
  mOutput.Lines.Add('Conexão estabelecida de: ' + TCPBlockSocket.GetRemoteSinIP ) ;
  Enviar := 'Seja bem vindo' + #13+#10;
  ExibirConexoes ;
end;

* a string que estou enviando  " fSocket.SendString('teste passa para o servidor');" não esta chegando no servidor TCP

 

 

[Daniel Simoes]

18 minutos atrás, AG Sistemas disse:

        sRespostaRequisicao := fSocket.RecvTerminated(10000, #3);

Aqui você está presumindo que o Servidor envia uma String que termina com ETX (#3)...

É realmente isso que ele faz ? Você precisa conhecer os detalhes do protocolo de comunicação, antes de tentar implementá-lo...

Veja outros métodos de recebimento de dados.. como RecvBufferStr

[AG Sistemas]

Você esta certo. Eu não sabia oque seria este parametro. 

Fiz um teste usando "RecvString(timeout); " teoricamente neste modo ele teria que retornar oque o servidor mandar certo ?

Tentei RecvBufferStr tambem não consegui pegar a string.

[Daniel Simoes]

Qual é a especificação do protocolo do servidor, que você quer conectar ?

[AG Sistemas]

Obrigado pela ajuda deu certo deu usei o Indy TCPClient.

      IdTCPClient             := TIdTCPClient.Create;
      IdTCPClient.Host        := sURL;
      IdTCPClient.Port        := sPorta;
      IdTCPClient.ReadTimeout := 10000;
      IdTCPClient.Connect;

      sListaTeste  := TStringList.create;
      IdTCPClient.IOHandler.WriteLn(sDadosNegativacao);
      sRespostaRequisicao := IdTCPClient.IOHandler.ReadString(449);

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.