ping a vysledek OK NOK

[Kony]

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

[geby]

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.

[Kony]

dekuji za odpoved.... ale jsem zacatecnik . Mohl bych te poprosit o podrobnejsi navod Dekuji mockrat....

[Kony]

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.  

[< z >]

Na hlavních stránkách Delphi.cz je i pokročilejší aplikace Pinger pro inspiraci
http://app.delphi.cz/