Home

Page 154
Page 154
background image

Простые приемы работы с сетью

147

Теперь перейдем от слов к делу. Запустите Delphi. Перенесите на форму

следующие компоненты:
С! одну кнопку

 компонента TLabel (с именами Labell И Label2);

 ДВа

 TEdit (С

 И Edit2).

Теперь у кнопки поменяйте свойство caption на Сканировать, у Labell на

Начальный порт, а у

 на До.

7 Сканер

 в

До

  4 . 5 . Форма будущего сканера

Если вы все сделали правильно, то у вас должно получиться нечто похожее

на изображенное на рис. 4.5. После нажатия кнопки мы будем сканировать

порты, начиная от номера, указанного в

 до номера, указанного

В Edit2.

Теперь нужно перенести на форму самый важный компонент —-
с закладки Internet. В нем фирма Borland уже реализовала для нас все необ-

ходимые функции для работы с сетью по протоколу TCP/IP и, конечно же,

сканирование тоже.

 Delphi ?

File Edit Search View Project Run Component

 WebSeivices |

 1 Dialogs

 |

  4 . 6 . Компонент TCPCIient расположен на закладке Internet

Прежде чем приступить к программированию, давайте еще немного улучшим

форму. Установите у Editl свойство Text равным

 а у Edit2 — 2. Таким

образом мы задаем значения по умолчанию для начального и конечного


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.