Ass rekan2 delphier...q mau buat aplikasi monitor jaringan yg ada di kantor dengan menggunakan ping seperti caontoh :

procedure TForm1.gudangTimer(Sender: TObject);
var
i:integer;
begin
  icmp.Host := '192.168.200.15';
  for i := 1 to 3 do begin
  icmp.Ping;
  if icmp.ReplyStatus.BytesReceived>0 then
  shape.Brush.Color:=cllime
  else
  shape.Brush.Color:=clred
end;
end;

q menggunakan component timer, shape dan icmp yang setiap waktu ngeping pc gudang selalu, jadi kalau pc gudang konek ke jaringan shape akan berwarna hijau sebaliknya berwarna merah.kalau replay dari hasil ping itu= replay status ...bla bla bla....koneksi lancar dan shape hijau, begitu pula kalau hasil=Request Time Out, koneksi putus dan shape merah. pertanyaan q kalau hasil ping = Destination Net Unreachable, harusnya itu tidak konek alias putus, tapi di layar shape tetep bernyala hijau... kira2 apa yang harus saya lakukan?...minta saran dan jawaban dari temen2... thanks...javascript:emoticon(':)')

Ya itu artinya kembalian icmp.ReplayStatus.BytesReceived ngga sama dengan nol alias network mereply ketika terjadi "destination unreachable". Coba saja baca isi dari paket icmp yang di-reply network. Kalo sudah dapet, tinggal di buat kondisional. Pseudo code nya seperti ini:

if (icmp.ReplyStatus.BytesReceive <= 0) or (IsDestinationUnreachable) then  
   SetShapeColorToRed
else
  SetShapeColorToLime;

Semoga membantu.

if (icmp.ReplyStatus.BytesReceive <= 0) or (IsDestinationUnreachable) then  
   SetShapeColorToRed
else
  SetShapeColorToLime;

keluarnya error gini... [Error] dude.pas(287): Undeclared identifier: 'IsdestinationUnreachable' walau sudah q + var IsdestinationUnreachable:string; mkasih bantuannya... sementara q masih tetep semangat trial by error...tolongin temen2 ya...

Waduh, yang aku tulis itu pseudo code bukan source code. :D... Jadi ya pasti ngga bener waktu di-compile. Itu cuman algoritmanya saja. IsdestinationUnreachable itu suatu fungsi yang keluarannya Boolean untuk mengecek apakah reply yang diterima mengindikasikan destination unreachable. :D