Pingue sub Delphi
ICMP - Protocol de control al Internetului. ICMP servește pentru transmiterea mesajelor de eroare, precum și a mesajelor de control. Testul ICMP poate arăta cât de repede informațiile trec între două noduri de pe Internet.
- Rulați Delphi;
- În noul proiect, adăugați la formularul Tbutton, Tedit și Tmemo;
- Paste "winsock";
- declara structura pentru antetul IP:
5. Declararea structurii pentru stocarea pachetului ICMP:
6. Declarați funcțiile și procedurile pe care le vom apela de la ICMP.DLL
7. În Tbtton, introduceți următorul cod în evenimentul Onclick:
Ei bine și în final codul sursă complet al exemplului:
Și este posibil ca acest cod să se modifice astfel încât ping-ul să meargă în mod constant, cu un interval în câteva secunde și dacă ping-ul devine mai rapid, anumite valori sunt deconectate de conexiunea LAN?
obțineți un program cool, permițându-vă să economisiți bani atunci când utilizați satelit + adsl.
Eu însumi nu sunt un programator, așa că acest cod este pentru mine o pădure întunecată, dar dacă cineva implementează un fir, mulți vor mulțumi
O mulțime de cod, confuz și misterios;) Mai ales rețineți că codul nu face nimic;)
În special atinge Memo1.Lines.Add ("Pingou" + Edit1.text); în ciclul de la sfârșit. În această versiune, el ping totul, și totul vine de la tot. A fost mai ușor să faceți acest lucru:
procedura TForm1.Button1Click (expeditor: TObject);
Var x. integer;
începe
memo1.Lines.Add ("Pinging" + Edit1.text);
pentru x: = 0-4
Memo1.Lines.Add ("Pingou" + Edit1.text);
se încheie;
Acest cod funcționează la fel de eficient;)
Codul nu este rău, dar nu văd deloc adresa IP locală.
Doar ce o să fac :)
Articole similare
Trimiteți-le prietenilor: