Pinging (Ping) под Delphi
ICMP - Internet Control Protocol Съобщение. ICMP се използва за предаване на съобщения за грешки, както и за контрол на съобщенията. ICMP-тест може да покаже колко бързо минава информация между два възела в Интернет.
- Пусни Delphi;
- Новият проект се добавя под формата на Tbutton, Tedit и Tmemo;
- Поставете "Winsock";
- тази структура е да обявим IP-заглавието:
5. Декларирам, тази структура е да се съхранява на ICMP пакет:
6. Декларирам функциите и процедурите, които ще се обадя от ICMP.DLL
7. В случай Tbutton в OnClick поставете следния код:
Е, в края на пълния изходен код на примера:
ния и да променяте кода, така че Ping е времето, през интервали от няколко секунди, а ако пинг става по-бързо определена стойност, след което прекъсва вашата локална мрежа?
poluchitstsa хладно прог, което позволява наистина да спестите пари с помощта на сателитна + ADSL.
Аз не програмист takchto ния код за мен тъмната гора, но ако една нишка изпълнява много хора казват, благодаря ти
Голяма част от код, объркващо и загадъчна;) Особено имайки предвид, че кодът не прави нищо;)
Особено докосва Memo1.Lines.Add ( "Pingou '+ Edit1.text); в течение на края. В този аспект, пинг всички и на всичко дойде отговорът. Това е по-лесно да го направите:
процедура TForm1.Button1Click (Sender: TObject);
Var х. Цяло число;
започвам
memo1.Lines.Add ( "Pinging" + Edit1.text);
за х: = 0 до 4 направи
Memo1.Lines.Add ( "Pingou '+ Edit1.text);
приключи;
Този код работи ефективно stolzhe;)
Кодът не е лошо, това е просто локален IP не вижда изобщо.
Само това, което ischu :)
Свързани статии