[Medio]Status de um Servidor
Pergunta: Para que Serve ?
Resposta: Para verificar se um servidor de jogo ou um website está online ou offline.
------------------
Primeiro adicione 2 Edit's ( palheta Standard ) , 1 Button ( palheta Standard ), 1 Label ( palheta Standard ) e 1 TcpClient ( Palheta Internet ).
No evento OnConnect do Tcpclient adicione:
Código:
Label1.Caption := 'Online';
Label1.Font.Color := clgreen;
No evento OnError do TcpClient adicione:
Código:
Label1.Caption := 'Offline';
Label1.Font.Color := clred;
No evento OnDisconnect do TcpClient adicione:
Código:
Label1.Caption := 'Offline';
Label1.Font.Color := clred;
No Evento OnClick do Button adicione:
Código:
TcpClient1.RemoteHost := Edit1.Text;
TcpClient1.RemotePort := Edit2.Text;
TcpClient1.Connect;
No Evento OnKeyPress do Edit2 adicione:
Código:
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.
Créditos: bl00dshooter
Fonte: Pro Code
