IdIcmpClient - komenda PING

[czakll]

Witam, napisalem maly programik do pingowania hostow. Uzylem komponentu IdIcmpClient, podalem adres hosta (w object managerze) i na button1 funkcje Ping(). Niby wszystko ladnie pieknie ale pingi podawane przez AReplyStatus.MsRoundTripTime sa niemal zupelnie inne niz czasy systemowego polecenia ping. Co robie zle?

[Cyfrowy Baron]

Nie wiem jak to robisz, bo kodu przecież nie podałeś, ale ja z wykorzystaniem komponentu TIdIcmpClient uzyskuję czasy takie same jak z wykorzystaniem programu Ping:

Kod: Zaznacz cały

void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdIcmpClient1->Host="cyfbar.republika.pl";
for(int i = 0; i < 4; i++)
{
  unsigned t = GetTickCount();
  IdIcmpClient1->Ping("", 0);
  ListBox1->Items->Add("czas = " + (String)(GetTickCount() -t) + " ms");
  Application->ProcessMessages();
}
}


Można to wszystko oczywiście bardziej rozbudować:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdIcmpClient1->ReceiveTimeout = 2000;
IdIcmpClient1->Host = "cyfbar.republika.pl";
for(int i = 0; i < 4; i++)
{
  IdIcmpClient1->Ping("50", 52);
  Application->ProcessMessages();
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdIcmpClient1Reply(TComponent *ASender,
     const TReplyStatus &AReplyStatus)
{
  String sTime = "=";
  if (AReplyStatus.MsRoundTripTime == 0) sTime = "<1";

  ListBox1->Items->Add(
                  IntToStr(AReplyStatus.BytesReceived) +  " bajtów z "
                  + AReplyStatus.FromIpAddress +
                  ": Sequence ID = " + IntToStr(AReplyStatus.SequenceId)
                  + " TTL=" + IntToStr(AReplyStatus.TimeToLive) +
                  " Time" + sTime + IntToStr(AReplyStatus.MsRoundTripTime)
                 + "ms");
}
//---------------------------------------------------------------------------