Com Delphi 7

[Spider Masters 0]

Olá amigos,

 

Mais uma vez recorro a vcs para solucionar uma dúvida.

 

Utilizo o TCPClient para verificar se um dispositivo está disponível na rede, deixo a rotina dentro de um Timer, para executar de tempos em tempos, utilizo o seguinte código.

 

TCPClient.RemoteHost := '192.168.0.28';TCPClient.RemotePort := '8008';Application.ProcessMessages;if(TCPClient.Connect) then   Begin      showMessage('Conectado');      TCPClient.Disconnect;   Endelse   showMessage('Não Conectado');

Se o dispositivo estiver conectado maravilha, o problema ocorre quando está desconectado, provavelmente o TCPClient tenta encontrar o endereço e não consegue, isso trava meu programa por uns 6 segundos, tentei utilizar o Application.ProcessMessages mas não resolveu.

 

Agora a pergunta, teria como diminuir esse tempo de espera do TCPClient ? Ou algum modo mais eficaz para verificar conectividade?

 

Abraços amigos, obrigado pela atenção.

 

Spider

[marcio.theis 3]

Diminuir o tempo acho que não teria como, mas o que pode fazer é adicionar o componente TIdAntiFreeze da paleta Indy Misc, ele vai fazer com que não trave a aplicação, podendo assim remover o Application.ProcessMessages.