Programa%C3%A7%C3%A3o [DELPHI] [Iniciante] Checar se server está on/off

[Froostiin 48]

Neste tutorial ira ser ensinado como checar se um servidor esta online ou offline atravez do ip e port .

Componentes

• Adicione em seu formulário um componente ClientSocket (localizado na paleta Internet), 1 Button e 2 Edits (1 para IP e outro para Port).
• Altere as seguintes propriedades do ClientSocket:
  - Active: False
  - ClientType: ctNonBlocking
  - Name: ClientSocket
• Altere o nome dos Edits para:
  - Edt_IP
  - Edt_Port
• Altere o nome do Button1 para Btn_Checar
• Altere o nome do Formulário para Frm_Principal

Programação

1. No evento OnClick do Btn_Checar coloque :

ClientSocket.Host := Edt_IP.Text;

  ClientSocket.Port := StrToInt(Edt_Port.Text);

  ClientSocket.Active := True;

Explicando:

ClientSocket.Host := Edt_IP.Text

Passa o IP digitado no Edt_IP para o ClientSocket

ClientSocket.Port := StrToInt(Edt_Port.Text);

Passa a Port digitada do Edt_Port para o ClientSocket convertendo-a de String (Texto) para Integer (Inteiro) atraves do SrtToInt

ClientSocket.Active := True;

Ativa o ClientSocket para que ele tente se conectar com o servidor atravez do IP e da Port

2. No evento OnConnect do ClientSocket coloque isto:

MessageBox(Frm_Principal.Handle, 'Servidor está online', 'Checar Status', mb_OK + mb_IconInformation);

  ClientSocket.Active := False;

  Socket.Disconnect(StrToInt(Edt_Port.Text));

Explicando:

MessageBox(Frm_Principal.Handle, 'Servidor está online', 'Checar Status', mb_OK + mb_IconInformation);

Exibe uma menssagem escrita 'Servidor está online' com o título de 'Checar Status' com um botão de OK e um Icone de informação

ClientSocket.Active := False;

Desativa o ClientSocket

Socket.Disconnect(StrToInt(Edt_Port.Text));

Desconecta o Socket

Obs: O evento OnConnect só será executado caso o ClientSocket consiga se conectar ao servidor 3. No evento OnError do ClientSocket coloque:

MessageBox(Frm_Principal.Handle, 'Servidor está offline', 'Checar Status', mb_OK + mb_IconInformation);

  ClientSocket.Active := False;

  abort;

Explicando:

MessageBox(Frm_Principal.Handle, 'Servidor está offline', 'Checar Status', mb_OK + mb_IconInformation);

Exibe uma menssagem escrita 'Servidor está offline' com o título de 'Checar Status' com um botão de OK e um Icone de informação

ClientSocket.Active := False;

Desativa o ClientSocket

abort;

Aborta para que não seja mostrada uma menssagem de erro do Delphi por não ter se conectado

Obs: O evento OnError só será executado caso o ClientSocket não se conectar com o servidor

Créditos

xSlayerx

Froostiin ( Por alguns piquenos edit's )

Editado Abril 24, 2011 por Froostiin (veja o histórico de edições)

[Kav Ra 3]

isso poderia ser feito com fotos, ficaria mais explicativo para leigos como eu.