Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как передать процедуре параметр 
V
    Опции темы
Andreyzpr
Дата 12.10.2007, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1



Вообщем столкнулся с такой проблемой:
Происходит запуск процедуры в отдельном потоке 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

Если же я бещз скобок будут запускать ее (не буду давать параметр) то тогда все нормально запускается, а так получилось, что мне обязательно нужно передать ей параметр. Пробовал решить с помощью переменных - не получилось, процедура во время работы в сети медлительна - цикл где переменная изменяется работает быстрее.... 

Как мне сделать, чтобы можно таки было передать процедуре параметр?

PM MAIL WWW ICQ   Вверх
skyboy
Дата 12.10.2007, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260



Цитата(Andreyzpr @  12.10.2007,  13:24 Найти цитируемый пост)
@ScanNetwork

объяви ещё одну процедуру.
Код

procedure some_proc()
begin
 scanNetwork("127.0.0.1");
end;

и работай с ней
Код

CreateThread(nil, 128, @some_proc, self, 0, h);

Да, это негибко. Но сделать эту самую some_proc параметризированной можно только если:
а) объявить глобальную переменную needle_ip
Код

procedure some_proc
begin
ScanNetwork(needle_ip);
end;

Если эта глобальная переменная будет меняться только в основном потоке - все будет нормально, в противном случае потребуется синхронизация.
б) переделать CreateThread(или написать обертку), которая позволит работать как с ^procedure, так и с ^(procedure of object)
самый адекватный по-моему:
В) третий с конца параметр функции CreateThread - единственный параметр, передаваемый в указанную функцию.  У тебя там стоит self. Лучше передать ip d виде числа. Или указатель на строку. А ты сейчас передаешь self, который потом пытается приводиться к строке(смотри объявление процедуры scanNetwork)

Добавлено через 59 секунд
из трех приведенных вариантов правильный - "В". Просто писал по мере прихода мыслей, остальное надо было удалить, чтоб не запутывать.

PM MAIL   Вверх
Rennigth
Дата 12.10.2007, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76



Andreyzpr, А лутше воспользуйся классом TThread, где почти все уже за тебя сделано. Я как понял тебе же не обязательно чистый WinApi?

Это сообщение отредактировал(а) Rennigth - 12.10.2007, 14:50


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Andreyzpr
Дата 12.10.2007, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1



skyboy тоесть как заместо self передать?

Rennigth если чесно не умею єтим классом пользоваться smile
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 12.10.2007, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Rennigth, а что это даст? Метод Execute в любом случае не имеет параметров. Правда параметры можно передать в конструктор класса. А еще он позволяет синхроинзироваться с VCL классами/данными основного потока.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Rennigth
Дата 12.10.2007, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76



Цитата(Andreyzpr @  12.10.2007,  15:04 Найти цитируемый пост)
Rennigth если чесно не умею єтим классом пользоваться  

Воспользуйся поиском по слову TThread, найдешь массу примеров. А с BeginThread/CreateThread замучаешься с синхронизацией если понадобиться. Ничего личного, но просто у тебя опыта может не хватить все грамотно написать на API.

Добавлено через 58 секунд
Цитата(Alexeis @  12.10.2007,  15:09 Найти цитируемый пост)
Правда параметры можно передать в конструктор класса.

Я о том же.

Добавлено через 1 минуту и 50 секунд
Или отдельными св-ми с резюмом трэда ручками.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Rennigth
Дата 12.10.2007, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76



А так в принципе почему вот так не передавать?

Код


procedure ScanNetwork(Param: Pointer);  stdcall;
var
  lIP: PChar;
begin
  lIP := GetMemory(255);
  ZeroMemory(lIP, 255);
  try
    MoveMemory(lIP, Param, 255);
    while True do
    begin
      Sleep(5000);
      MessageBox(0, lIP, nil, 0);
    end;
  finally
    FreeMemory(lIP)
  end;
end;

procedure TForm17.FormCreate(Sender: TObject);
var
  h: DWord;
begin
  CreateThread(nil, 128, @ScanNetwork, PChar('127.0.0.1'), 0, h);
end;



Добавлено через 2 минуты и 30 секунд
у CreateThread же 4й параметр для передачи параметров и существует.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
skyboy
Дата 12.10.2007, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260



Цитата(Rennigth @  12.10.2007,  14:26 Найти цитируемый пост)
у CreateThread же 4й параметр для передачи параметров и существует.

угу. и я - о том же smile 
PM MAIL   Вверх
Andreyzpr
Дата 12.10.2007, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1



Rennigth твой пример не работает :( С Опытом согласен, я только учусь smile))))

Добавлено через 3 минуты и 33 секунды
А что за 4 параметр для передачи? Куда он передает? Откуда извлечь его можно?
PM MAIL WWW ICQ   Вверх
Rennigth
Дата 12.10.2007, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76



Цитата(Andreyzpr @  12.10.2007,  16:02 Найти цитируемый пост)
Rennigth твой пример не работает :(

эт почему?
Покажи как ты вызываешь функцию. stdcall указал?

Добавлено через 3 минуты и 47 секунд
Цитата(Andreyzpr @  12.10.2007,  16:02 Найти цитируемый пост)
А что за 4 параметр для передачи? Куда он передает? Откуда извлечь его можно? 

Посмотри внимательней мой пример. 
1. Процедура которая передается в трэд должна обязательно иметь вид:
Код

procedure Proc(Param: Pointer);  stdcall;


2. 4й параметр функции CreateThread это указатель на параметр который передасться в Param процедуры трэда.

3. Обязательно процедура трэда должна быть stdcall.




--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Andreyzpr
Дата 12.10.2007, 16:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1



Вообщем заработало, только появилась другая проблема! По завершении работы программа выбрасывает ошибку.. В чем тут недоработка:
Вот сама процедура:
Код

procedure ScanNetwork(Param: Pointer);  stdcall;
var
hNetEnum: THandle;
NetContainerToOpen: NETRESOURCE;
ResourceBuffer: array[1..2000] of TNetResource;
i, ResourceBuf, EntriesToGet: DWORD;
List:TStringList;
tmp:String;
begin
NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET;
NetContainerToOpen.dwType:=RESOURCETYPE_ANY;
NetContainerToOpen.lpLocalName:=nil;
tmp:=String(param);
Form1.Memo1.Lines.Add('Сканируем адрес ' + tmp);
{NetContainerToOpen.lpRemoteName:= PChar('\\' + tmp);
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;

Обращаю внимание на то, что основные действия в процедуре закомментированы, т.е. что делает процедура - просто в мемо пишет: Сканируем адрес  и добавляет переданый параметр.
ЗАпуск происходит так:
Код

        for i:=0 to 5 do
          begin
            TempString:=m1 + '.' + m2 + '.' + m3 + '.' + IntToStr(i);  //Сдесь собирается айпи адрес (конечный вид 10.0.0. + i);
            CreateThread(nil, 128, @ScanNetwork, PChar(TempString), 0, h);
          end;

Все выводитяс в мемо и как только цикл завершается выходит ошибка и открывается окно CPU и море ошибок.
В чем проблема?
PM MAIL WWW ICQ   Вверх
skyboy
Дата 12.10.2007, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260



Цитата(Andreyzpr @  12.10.2007,  15:32 Найти цитируемый пост)
выходит ошибка

какая? 
PM MAIL   Вверх
Rennigth
Дата 12.10.2007, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76



эх, вот никто меня и не слушает... :( 
Цитата

Form1.Memo1.Lines.Add('Сканируем адрес ' + tmp);

вот что эт такое? нельзя же так... я же не зря вот это говорил.
Цитата(Rennigth @  12.10.2007,  15:10 Найти цитируемый пост)
замучаешься с синхронизацией если понадобиться

Лан все поправимо, сейчас доработаю твой пример.



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Andreyzpr
Дата 12.10.2007, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: 1
Всего: 1



Цитата(Rennigth @ 12.10.2007,  16:37)
эх, вот никто меня и не слушает... :( 
Цитата

Form1.Memo1.Lines.Add('Сканируем адрес ' + tmp);

вот что эт такое? нельзя же так... я же не зря вот это говорил.
Цитата(Rennigth @  12.10.2007,  15:10 Найти цитируемый пост)
замучаешься с синхронизацией если понадобиться

Лан все поправимо, сейчас доработаю твой пример.

Извеняюсь за невнимательность, если не трудно, скажи где ошибся? ;)
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 12.10.2007, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459



Andreyzpr, ты ж в потоке обращаешься к памяти которая используется одновременно и основным потоком тоже.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Страницы: (3) Все [1] 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0671 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.