Odpověď

Upozornění: do tohoto tématu bylo naposledy přispěno před 120 dny.
Zvažte prosím založení nového tématu.
Jméno:
E-mail:
Předmět:
Ikona zprávy:
Ověření:
Kolik je šest plus čtyři (slovem):

Zkratky: stiskněte shift+alt+s pro odeslání nebo shift+alt+p pro prohlédnutí


Shrnutí tématu

Poslal: < z >
« kdy: 15-06-2017, 16:55:20 »

Na hlavních stránkách Delphi.cz je i pokročilejší aplikace Pinger pro inspiraci
http://app.delphi.cz/
Poslal: Kony
« kdy: 15-06-2017, 16:21:29 »

tak jsem se na to poradne mrknul a vyreseno...

Kód: Delphi [Vybrat]
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.   IdIcmpClient1.ReceiveTimeout := 200;
  4.   IdIcmpClient1.Host := '172.16.33.204';
  5.   IdIcmpClient1.Ping;
  6.   IdIcmpClient2.ReceiveTimeout := 200;
  7.   IdIcmpClient2.Host := '172.16.33.210';
  8.   IdIcmpClient2.Ping;
  9.   if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then
  10.   begin
  11.     Label1.Font.Color := clLime;
  12.   end
  13.   else if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsTimeout then
  14.   begin
  15.     Label1.Font.Color := clRed;
  16.   end;
  17.   if IdIcmpClient2.ReplyStatus.ReplyStatusType = rsEcho then
  18.   begin
  19.     Label2.Font.Color := clLime;
  20.   end
  21.   else if IdIcmpClient2.ReplyStatus.ReplyStatusType = rsTimeout then
  22.   begin
  23.     Label2.Font.Color := clRed;
  24.   end;
  25. end;
  26.  
Poslal: Kony
« kdy: 14-06-2017, 23:25:11 »

dekuji za odpoved.... ale jsem zacatecnik . Mohl bych te poprosit o podrobnejsi navod ??? Dekuji mockrat....
Poslal: geby
« kdy: 14-06-2017, 23:19:51 »

Zachytavat vystup konzole a snazit se jej vyhodnocovat? Tak se v aplikaci opravdu nepinga! Co vzit treba moji Synapsi, z ni zavolat funkci PingHost, a ona ti rovnou jako vysledek funkce vrati cas pingu v milisekundach? Je pak uz na tobe, aby sis rekl jaky cas je jeste OK, a jaky uz ne.
Poslal: Kony
« kdy: 14-06-2017, 23:02:52 »

ahoj, mam takovou predstavu. Budu mit na formu dva labely "seznam.cz" a treba "sssssss.net" a potreboval bych aby se pri spusteni prosel treba jeden ping kterej by otestoval obe adresy. Pokud se dopinga na jednu adresu tak bude napis zelene, pokud nedopinga tak bude cervene.... Vim jak dostat vypis pingu do memo, ale nemam tuseni jak vyhodnotit jestli je to OK a nebo NOK.....


diky moc za radu