Checando Se O Servidor Está Online E Seu Ping! Delphi 7
Página 1 de 1
Checando Se O Servidor Está Online E Seu Ping! Delphi 7
Você vai precisar de:
2 Labels(Aba Standard)
2 Edits(Aba Standard)
1 Button(Aba Standard)
1 IcmpClient(Aba Indy Clients)
1 Client Socket(Aba Internet)
Crie uma nova aplicação e adicione todos os items listados acima.
Troque a capiton de um label para IP do servidor e a do otro label para Porta, logo em seguida troque a capiton do button para Checar!, organize-os
No evento OnClick do Button1, coloque o seguinte código:
Manter cada linha dentro de seus respectivos "pais" não é necessário, mas ajuda a manter a ordem e a legibilidade do código.
Agora, no evento OnConnect do ClientSocket1, coloque esse codigo:
MessageBox(form1.Handle, 'Online! ', 'Status do server:', mb_OK + mb_IconInformation);
ClientSocket1.Active := False;
Socket.Disconnect(StrToInt(Edit1.Text));
No evento OnError do ClientSocket1, adicione isso:
MessageBox(form1.Handle, 'Offline!;(', 'Status do server:', mb_OK + mb_IconInformation);
ClientSocket1.Active := False;
abort;
errorcode :=0;
Eba, estamos quase lá, só falta configurar o IcmpClient, então vamos lá!
No evento OnReply do seu client Adicione isso:
ShowMessage('IP: '+IdIcmpClient1.Host+#13+
'Port: '+IntToStr(IdIcmpClient1.Port)+#13+
'Ping: '+IntToStr(AReplyStatus.MsRoundTripTime)+' milisegundos');
Agora é só compilar e ser feliz \õ/
BY: Igor Junior/Before123
email: igorpascoal-270@
2 Labels(Aba Standard)
2 Edits(Aba Standard)
1 Button(Aba Standard)
1 IcmpClient(Aba Indy Clients)
1 Client Socket(Aba Internet)
Crie uma nova aplicação e adicione todos os items listados acima.
Troque a capiton de um label para IP do servidor e a do otro label para Porta, logo em seguida troque a capiton do button para Checar!, organize-os
No evento OnClick do Button1, coloque o seguinte código:
- Código:
if edit1.Text > '' then
IdIcmpClient1.Host:= edit1.Text;
IdIcmpClient1.Port:= StrToInt(Edit2.Text);
IdIcmpClient1.Ping('AnalisePing');
ClientSocket1.Host := edit1.Text;
ClientSocket1.Port := StrToInt(edit2.Text);
ClientSocket1.Active := True;
Manter cada linha dentro de seus respectivos "pais" não é necessário, mas ajuda a manter a ordem e a legibilidade do código.
Agora, no evento OnConnect do ClientSocket1, coloque esse codigo:
MessageBox(form1.Handle, 'Online! ', 'Status do server:', mb_OK + mb_IconInformation);
ClientSocket1.Active := False;
Socket.Disconnect(StrToInt(Edit1.Text));
No evento OnError do ClientSocket1, adicione isso:
MessageBox(form1.Handle, 'Offline!;(', 'Status do server:', mb_OK + mb_IconInformation);
ClientSocket1.Active := False;
abort;
errorcode :=0;
Eba, estamos quase lá, só falta configurar o IcmpClient, então vamos lá!
No evento OnReply do seu client Adicione isso:
ShowMessage('IP: '+IdIcmpClient1.Host+#13+
'Port: '+IntToStr(IdIcmpClient1.Port)+#13+
'Ping: '+IntToStr(AReplyStatus.MsRoundTripTime)+' milisegundos');
Agora é só compilar e ser feliz \õ/
BY: Igor Junior/Before123
email: igorpascoal-270@
before123- Camponês
- Mensagens : 3
Moedas : 9
Reputação : 2
Data de inscrição : 28/06/2012
Idade : 29
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|