Verificar se uma porta TCP esta aberta

Delphi

17/09/2015

Olá mais uma vez

Minha duvida de novo:

como verificar se uma porta TCP esta aperta no momento
estou tentando assim:

IdTCPClient.RemoteHost := Edit1.Text;
     IdTCPClient.RemotePort := Edit2.Text;
     If IdTCPClient.Connected then
  //ImageList1.Draw(ListBox1.Canvas, Rect.Left+180, Rect.Top, 1)
  ListBox1.Items.Add('sim')
  else
  //ImageList1.Draw(ListBox1.Canvas, Rect.Left+180, Rect.Top, 0);
  ListBox1.Items.Add('não');
      IdTCPClient.Active:= false;
       IdTCPClient.Disconnect;


Quando esta aberta occorre tudo bem mas
quando esta fechado o aplicativo trava e adiciona varios "não" no listbox

se alguém pode mi ajudar agradeço...
Cgm2k7 2013

Cgm2k7 2013

Curtidas 0

Respostas

Cgm2k7 2013

Cgm2k7 2013

17/09/2015

help-me
GOSTEI 0
Mateus Ribeiro

Mateus Ribeiro

17/09/2015

Boa tarde!

Veja se isso te ajuda: [url:descricao=Verificar se uma porta TCP está aberta usando o Delphi e Winsocks]https://theroadtodelphi.wordpress.com/2010/02/21/checking-if-a-tcp-port-is-open-using-delphi-and-winsocks/[/url]

Depois posta de resolveu.
GOSTEI 0
Cgm2k7 2013

Cgm2k7 2013

17/09/2015

muito bom mas ainda não esta dando certo no aplicativo

o form trava por 2segundos
GOSTEI 0
Cgm2k7 2013

Cgm2k7 2013

17/09/2015

help - me
GOSTEI 0
POSTAR