Вообщем столкнулся с такой проблемой:
Происходит запуск процедуры в отдельном потоке 255 раз.
Запуск процедуры происходит следующим способом:
| Код |
CreateThread(nil, 128, @ScanNetwork, self, 0, h);
|
сама процедура такого типа:
| Код |
procedure ScanNetwork(adress:String);
var
hNetEnum: THandle;
NetContainerToOpen: NETRESOURCE;
ResourceBuffer: array[1..2000] of TNetResource;
i, ResourceBuf, EntriesToGet: DWORD;
List:TStringList;
begin
NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET;
NetContainerToOpen.dwType:=RESOURCETYPE_ANY;
NetContainerToOpen.lpLocalName:=nil;
Form1.Memo1.Lines.Add('Сканируем адрес ' + adress);
NetContainerToOpen.lpRemoteName:= PChar('\\' + adress);
NetContainerToOpen.lpProvider:=nil;
WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE or RESOURCEUSAGE_CONTAINER,
@NetContainerToOpen, hNetEnum);
while TRUE do
begin
ResourceBuf:=sizeof(ResourceBuffer);
EntriesToGet:=2000;
if (NO_ERROR <> WNetEnumResource(hNetEnum, EntriesToGet,
@ResourceBuffer, ResourceBuf)) then
begin
WNetCloseEnum(hNetEnum) ;
exit;
end;
List:=TStringList.Create;
for i:=1 to EntriesToGet do
List.Add(string(ResourceBuffer[i].lpRemoteName));
end;
end;
|
А проблема такова. Мне нужно, чтобы при запуске процедуры ей передался параметр (в моем случае IP адрес):
Тоесть мне нужно вызвать процедуру таким способом:
ScanNetwork('127.0.0.1');
А проблема такова:
Когда я запускаю в отдельном потоке процедуру таким способом:
| Код |
CreateThread(nil, 128, @ScanNetwork('127.0.0.1'), self, 0, h);
|
т.е. передаю ей параметр, то программа не запускается, подчеркивает эту строчку и пишет ошибку:
[Error] Unit1.pas(102): Variable required
Если же я бещз скобок будут запускать ее (не буду давать параметр) то тогда все нормально запускается, а так получилось, что мне обязательно нужно передать ей параметр. Пробовал решить с помощью переменных - не получилось, процедура во время работы в сети медлительна - цикл где переменная изменяется работает быстрее....
Как мне сделать, чтобы можно таки было передать процедуре параметр?
|
)
