Home

Page 247
Page 247
background image

240 Глава 5

В обработчике нажатия кнопки Найти напишите следующий код:

procedure

var

 :

begin

 NbLanaEnum;

for i := 0 to

 Length  1) do

begin

 ) ;

 ;

if

 then break;

end;

end;

Прежде чем использовать протокол NetBIOS вызывается функция

NbLanaEnum, в которой происходит перечисление всех доступных в компью-
тере сетевых устройств. Для этого используется NetBIOS-команда
Эта функция написана нами и выглядит вот так:

function

 TLana_Enum;

var

NCB:
L_Enum:

RetCode: Word;

begin

FillChar(NCB, SizeOf(NCB), 0);
FillChar

 SizeOf

 0) ;

NCB.Buf

 :=

RetCode
if RetCode <>

 then

begin

 0;

 ;

end;

Result

end;

В первой строке заполняется структура

 NCB С ПОМОЩЬЮ

 функции

В следующей строке происходит то же самое с переменное L Enum. Далее


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

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