Pingelése (ping) alatt Delphi
Pingelése (Ping) alatt Delphi
ICMP - Internet Control Message Protocol. ICMP továbbítására használjuk hibaüzenetek, valamint ellenőrző üzeneteket. ICMP-teszt megmutatja, hogy milyen gyorsan halad információk két csomópont között az interneten.
- Fuss Delphi;
- Az új projekt hozzáadásra formájában TButton, tSzerkesztés és TMemo;
- Helyezze a „winsock”;
- ez a szerkezet, hogy be az IP-fejléc:
5. állapítsa ez a szerkezet tárolja az ICMP-csomag:
6. állapítsa meg a funkciókat és eljárásokat, amelyek fogunk hívni ICMP.DLL
7. Abban az esetben, TButton az onclick illessze be az alábbi kódot:
Nos, a végén a teljes forráskódot a példa:
SION-ok, és megváltoztatni a kódot, hogy Ping volt az az idő, időközönként néhány másodperc, és ha a ping gyorsabbá válik egy bizonyos értéket, akkor levágja a LAN?
poluchitstsa hűvös prog, így valóban pénzt takaríthatnak meg a műholdas + ADSL.
Nem programozó takchto: SION kódot nekem a sötét erdőben, de ha egy szál megvalósítja egy csomó ember azt mondja, köszönöm
Sok kód, zavaros és titokzatos;) Főleg, hogy a kód nem csinál semmit;)
Különösen érinti Memo1.Lines.Add ( 'Pingou' + Edit1.text); A ciklus végén. Ebben a megvalósításban ez megpingeli minden, és minden jön válasz. Könnyebb volt erre:
eljárás TForm1.Button1Click (Sender: TObject);
Var x. integer;
kezdődik
memo1.Lines.Add ( 'Pingelése' + Edit1.text);
x: = 0 és 4 do
Memo1.Lines.Add ( 'Pingou' + Edit1.text);
végén;
Ez a kód működik hatékonyan stolzhe;)
A kód nem rossz, csak a helyi ip nem látja egyáltalán.
Csak mi ischu :)