Оптимизация сканирования локальной сети
arp © (2004-05-01 19:57:00)
Знатоки подскажите возможно оптимизировать скорость
сканирования компов в сети?
Есть вот такой способ (взят с этого форума)(представлена лишь
часть):
ListBox1.Items.Clear;
ComputerCount := 0;
Workgroup := Edit3.Text + #0;
FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
With WorkgroupRS do
begin
dwScope := 2;
dwType := 3;
dwDisplayType := 1;
dwUsage := 2;
lpRemoteName := @Workgroup[1];
end;
WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0,
@WorkgroupRS, EnumHandle);
Repeat
Entriess := 1;
BufSize := SizeOf(Buf);
Result := WNetEnumResource(
EnumHandle,Entriess,@Buf,BufSize );
If (Result = NO_ERROR) and (Entriess = 1) then
begin
Inc( ComputerCount );
Computer[ ComputerCount ] :=
StrPas(Buf[1].lpRemoteName);g:='';
if Computer[ ComputerCount ]<>''
then
for i:=3 to length(Computer[
ComputerCount ]) do g:=g+Computer[ ComputerCount ][i];
ListBox1.Items.Add(g)
end;
Until (Entriess <> 1) or (Result <> NO_ERROR);
WNetCloseEnum( EnumHandle );
методом применения разных способов этот код показал наиболее
лучшие результаты по скорости.
Возможно вообще улучшить? или даже стараться не стоит?
Rouse_ (2004-05-01 23:07:00) [1]
Разнеси по нескольким потокам - основной сканирует компы,
дополнительные сканируют их ресурсы... если ресурсы не нужны - то
ничего оптимизировать не нужно, вот правда над стилем кода
желательно задуматься...
Наверх 
ЧАТ |
Орешник |
|
