Home

Page 176
Page 176
background image

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

begin

 ;

e x i t ;

end;

for i := 1 to EntriesToGet do

end;

end;

Если вам листинг понятен, то можете заканчивать чтение этого раздела. Ну

а если у вас возникли проблемы, то давайте разберем его подробнее.

В самом начале происходит заполнение структуры

 ко-

торая объявлена в разделе var как принадлежащая типу

 У нее

нужно заполнить следующие пять полей.

 dwScope — в этом параметре нужно указать рамки перечисляемых ресур-

сов. Я указал

 чтобы поиск происходил в сети.

2.

 — здесь указывается тип перечисляемых ресурсов. Вы можете ука-

зать

 ДЛЯ ДИСКОВ,

 ДЛЯ

И

 ДЛЯ ВСеГО ПОДрЯД.

3.

 этот параметр нужно обнулить.

4.

 — здесь нужно указать NetBIOS-имя сканируемого ком-

пьютера или IP-адрес. Если вы указываете адрес, то вначале нужно при-

бавить два слеша \\, как видно из листинга.

5.

 — имя владельца ресурса. Если оно не известно, то нужно

указать  n i l .

После заполнения структуры нужно открыть процесс сканирования. Для этого

существует функция

 со следующими пятью параметрами.

1. Область сканирования. Здесь снова указываем

2. Тип сканируемых ресурсов. Снова указываем все подряд —

3. Здесь нужно указать, какие ресурсы надо перечислять. Если нужно все

подряд, то просто укажите о. Другие возможные значения:

 —

 И

 —

4. Структура, которую мы заполнили.
5. Переменная типа

 которая будет использоваться в дальнейшем.

После того как мы открыли перечисление, можно смело приступать к его

реализации. Для этого запускается бесконечный цикл:

while TRUE do


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

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