| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача функции класса как параметра в др. функцию

learner ©   (2006-06-26 06:55:00) 

Здравствуйте !
Продскажите, пожалуйста, как мне передать ThreadFunct в виде
параметра в др. функцию ?
type
MyClass = class
 private
  function ThreadFunct(Param: Pointer):DWord;
 public
  function TestThread:Boolean;
 end;

{ MyClass }
function MyClass.ThreadFunct(Param: Pointer): DWord;
begin
Beep(500,500);
end;

function MyClass.TestThread: Boolean;
var
pFunct:Pointer;
ThreadID, hThread: DWord;
begin
pFunct:=@ThreadFunct; // Компилятор ругается, переменную требует :((
hThread:= CreateThread(nil,0,pFunct,nil,0,ThreadID);
Result:= hThread <> 0;
end;

---

learner   (2006-06-26 10:51:00) [1]

Спасибо большое ! Получилось.

---

Юрий Зотов   (2006-06-26 07:35:00) [2]

Вдогонку.

Дело в том, что CreateThread (BeginThread) требует не метода класса, а регулярной функции (причем CreateThread требует, чтобы эта функция была еще и stdcall, но при использовании VCL лучше вызывать BeginThread). Различаются они тем, что методы класса имеют еще один, неявный параметр Self (первый в списке).

Обойти это требование можно либо передав в Param экзкмпляр класса (как в примере), либо используя переменную типа TMethod. Первый способ проще.

---

Юрий Зотов   (2006-06-26 07:28:00) [3]


function ThreadFunct(Param: Pointer): DWord;
begin
 Result := 0;
 with TForm1(Param) do
 begin
   // ...
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 ThreadID: DWord;
begin
 BeginThread(nil, 0, @ThreadFunct, Self, 0, ThreadID)
end;


---

Наверх