[Tutorial] Status do Servidor

['Lenneth 488]

Primeiro adicione 2 Edit's ( palheta Standard ) , 1 Button ( palheta Standard ), 1 ***** ( palheta Standard ) e 1 TcpClient ( Palheta Internet ).

 

No evento OnConnect do Tcpclient adicione:

*****1.Caption := 'Online';

*****1.Font.Color := clgreen;

 

No evento OnError do TcpClient adicione:

*****1.Caption := 'Offline';

*****1.Font.Color := clred;

 

No evento OnDisconnect do TcpClient adicione:

*****1.Caption := 'Offline';

*****1.Font.Color := clred;

 

No Evento OnClick do Button adicione:

TcpClient1.RemoteHost := Edit1.Text;

TcpClient1.RemotePort := Edit2.Text;

TcpClient1.Connect;

 

No Evento OnKeyPress do Edit2 adicione:

if Not (key in ['0'..'9',#8]) then

key := #0;

end;

 

Pronto, agora é so rodar e compilar a sua aplicação !

É simples, digite o ip do servidor ou site no Edit1 e a porta no Edit2.

 

Creditos Before123

[iMelo~' 16]

Man que bot se ta em topicos , go gostando de ve eem , só topicos uteis , enquanto ao status de servidor nunca tinha visto , valeu por compartilhar com a wc este conteudo , adicionado a quick.