Adicione:
2 Label
1 Edit
1 Timer
1 IdIcmpClient
1 SpinEdit
1 checkbox
1 memo
Em Properties la em Text
Label 1 para Ip/link do site
Label 2 para Porta
Check Box 1 para Ativar
De 2 cliques no IdIcmpClient e adicione esse codigo:
Código:
- Código:
Memo1.Lines.Add('Derrubando :' + (edit1.Text) +' Bytes Sendo Enviando : '+ IntToStr(AReplyStatus.BytesReceived ));
Clique no IdIcmpClient depois em "events" der 2 click no Onstatus e adicione o seguinte código :
Código:
- Código:
Memo1.Lines.Add(AStatusText);
Depois de 2 cliques na checkbox e adicione esse codigo:
Código:
- Código:
if CheckBox1.Checked = true then begin
Edit1.Enabled := false;
SpinEdit1.Enabled := false;
Timer1.Enabled := true;
end;
if CheckBox1.Checked = false then begin
Edit1.Enabled := true;
SpinEdit1.Enabled := true;
Timer1.Enabled := false;
end;
end;
E por ultimo no Timer de 2 cliques nele e adicione esse codigo:
Código:
- Código:
IdICMPClient1.Port := SpinEdit1.Value;
IdICMPClient1.Host := Edit1.Text;
IdICMPClient1.Ping();
- Anexos
- UDP srDIEGO.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (30 Kb) Baixado 0 vez(es)