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

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.

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.

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.

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, não da exception mas esta retornando FLastError : 11001 .

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.

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

Como eu consigo testar se ele conectou ?

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;

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

Deu certo compilou agora começou a saga das dlls obrigado!

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.

Obrigado pessoal pela velocidade nas respostas! Eu vou precisar soltar uma versão 64 para mostrar para o pessoal que isso não ira influenciar no desempenho do sistema. Como o Juliomar disse. Estou tendo problema com o ForstRepost coloquei a pasta dele no path 64 mas esta dando este erro. "Bad unit format "C:\...\RlReport.dcu" - Expected version 31.0, windows unicode(x64) found version"

Entendi, o mesmo acontece para o ForstReport ? Obrigado, @Juliomar Marchetti eu pensei que o sistema teria um melhor desempenho quando compilado em 64, isso então não acontece?

Bom dia ! Estou mudando a compilação do sistema para 64 e quando fui instalar o acbr para 64 esta dando esta mensagem. Oque devo fazer ?

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.

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

Obrigado pessoa!

Boa tarde! Segue anexo o arquivo alterado para o banco 422 Safra estava pegando o BradescoSafra e o certo é BancoSafra. ACBrBoleto.pas

Falei com eles aparentemente esta Ok, tanto é que no site da nfe eu consigo fazer a consulta completa com os 2 certificados!

Atualizei o windows atualizei o java e troquei as dll. Não resolveu o problema. Se eu Clicar em status do serviço direto da o erro mas se eu gerar a NFE e depois clicar em status do serviço funciona.

Obrigado por responder! O problema que em outra maquina esta funcionando normal o A3 da serasa (Nesta outra maquina o Fenacon não esta instalado). Esta dando erro em algum lugar da requisição é mto estranho, alguma outra sugestão pq eu acabei de instalar os na minha maquina e esta dando o mesmo problema.

Bom dia ! Estou tendo problema quando em um cliente que tem 2 certificado digital A3 (1 Fenacon e outro Serasa experian). Esta acontecendo o seguinte ele reconhece na maquina os 2 certificados e no navegador mostra os 2 e não estão vencidos. Mas no sistema eu só consigo usar o da fenacon uso normal mas quando tento usar o da Serasa o sistema esta tranvando e não esta dando erro algum. Ele esta travando quando tento fazer o Status do Serviço. Desde já Agradeço.

Bom dia! Segue anexo uma correção no layout pq quando o pagador não tem telefone o certo seria não passar a tag e esta passando. ACBrBoletoW_BancoBrasil.pas