|
#1
|
|||
|
|||
Работа с потоками
Суть такая, все знают "Сетевое окружение" в Windows, пишу нечто похоже. "Вытаскивать" пути к общим папкам решил потоками.
Немного кода: Процедура "ищет" на компе "HostName" папки с общим доступом и выводит их в Memo: Код:
procedure TForm1.FindShare(HostName:String); var hNetEnum: THandle; NetContainerToOpen: NETRESOURCE; ResourceBuffer: array[1..2000] of TNetResource; i,ResourceBuf,entriesToGet: DWORD; begin NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET; NetContainerToOpen.dwType:=RESOURCETYPE_ANY; NetContainerToOpen.lpLocalName:=nil; NetContainerToOpen.lpRemoteName:= PChar('\\'+HostName); NetContainerToOpen.lpProvider:=nil; WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_CONNECTABLE or REsOURCEUSAGE_CONTAINER, @NetContainerToOpen, hNetEnum); Form1.Memo1.Lines.Add(HostName); while TRUE do begin ResourceBuf:= sizeof(ResourceBuffer); EntriesToGet:= 2000; if (NO_ERROR <> WNetEnumResource(hNetEnum, EntriesToGet, @ResourceBuffer,ResourceBuf)) then begin WNetCloseEnum(hNetEnum); exit; end; for i:=1 to EntriesToGet do Form1.Memo1.Lines.Add(string(ResourceBuffer[i].lpRemoteName)); end; end; По щелчку на кнопке в цикле создаю потоки: Код:
procedure TForm1.BitBtn1Click(Sender: TObject); var i:byte; begin for i := 0 to 13 do Begin MyThread:=TMyThread.Create('192.168.0.'+IntToStr(i)); MyThread.FreeOnTerminate := True; MyThread.Priority:=tpLower; End; end; Сам поток: Код:
procedure TMyThread.Execute; begin while not Terminated do begin Form1.FindShare(HostName); MyThread.Terminate; MyThread.WaitFor; MyThread.Free; end; end; Вроде всё нужное мне выводится, но остаётся вопрос с потоками, не пойму завершается поток (или как назвать). В мониторе ресурсов после нажатия на кнопку вижу, что потоки создались, но после выведения ими инфы они так и остаются. Думаю понятно, что если прогонять весь диапазон ip, то потоков будет много +прогоняться будет по тайменгу. Опыта с потоками нет, в гугле не забанен, но ответа найти не могу Посоветуйте как быть. |