Testar conexão com sockets?

Delphi

26/05/2004

Como posso testar uma conexão, de forma a evitar uma exceção no meu programa, ao tentar conectar com um socket em uma estação desligada?


Earmarques

Earmarques

Curtidas 0

Respostas

Mcampos

Mcampos

26/05/2004

No evento OnError do ClientSocket utilize o código abaixo:

showmessage(´erro´);
{se você não quiser mostrar a mensagem pode deletar
que não vai influir em nada}

{verifica se o parâmetro ErrorEvent é igual a eeConnect
para saber se o erro foi durante a conexão. Se for,
aborta a operação impedindo que a exceção seja propagada}
if ErrorEvent = eeConnect then
abort;


GOSTEI 0
POSTAR