тільки корисні матеріали
Головний акціонер Alibaba став найбагатшою людиною в Китаї
статті
Microsoft почала закрите тестування Office 16
статті
Фахівці знайшли діри в безпеці Windows 8.1
статті
У московському метро з'явиться єдина мобільна мережа
статті
eBay буде приймати Bitcoin
статті
Vivitek представила «шкільний» проектор D755WTIR
статті
У Твіттері з'явилася кнопка «Купити»
статті
«Яндекс.Новини» тепер можна переглядати і на iPhone
статті
У цій статті я розповім про визначення пинга (ping) в Delphi. Думаю, ви всі знайомі зі стандартоной командою windows. Якщо немає, то натискаємо клавішу швидкого Win + R і в вікні вводимо cmd
Тепер те ж саме ми спробуємо реалізувати в Delphi. Створюємо новий проект File-> New-> VCL Form Application і кидаємо на форму наступні компоненти: TButton, TLabel, TEdit і TMemo. Для більш красивого відображення, можна в налаштуваннях Memo змінити колір шрифту (Font-> Color).
Для проведення пинга скористаємося такою процедурою:
procedure TForm1.Button1Click (Sender: TObject); begin Ping (Edit1.Text, Memo1.Lines); end;
procedure TForm1.Button1Click (Sender: TObject); begin Ping (Edit1.Text, Memo1.Lines); end;