Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

работа с потоками   Найти похожие ветки 

 
Лёха   (2009-06-13 17:02) [0]

Добрый день!
Скачал пример работы с потоками, а он с использованием MCK, мне нужно в чистом KOL.

вот кусок:

var
 formThread: PThread;

function ThreadExecute(Sender: PThread): Integer;
begin
 // тут выполняем какие-либо действия
end;

begin
 form := NewForm(Applet, "Окно");
 Run(form);
 formThread := NewThread;
 formThread.OnExecute := ThreadExecute;
end;


получаю такое:
[Error] Project99.dpr(39): Incompatible types: "method pointer and regular procedure"

через MakeMethod тоже не работает:
[Error] Project99.dpr(39): Incompatible types: "TOnThreadExecute" and "TMethod"

помогите плиз, как этот метод присвоить?

Заранее спасиб!!!


 
Galkov   (2009-06-13 17:22) [1]

Program ThreadTest;
uses  windows,kol;

type Tsdk=object
 Thread: PThread;
 function ThreadExecute(Sender: PThread): Integer;
end;

var SDK:Tsdk;

function Tsdk.ThreadExecute(Sender: PThread): Integer;
begin
 // тут выполняем какие-либо действия
 Result := 0;
end;

begin
 Applet := NewForm(Applet, "Окно");
 SDK.Thread := NewThread;
 SDK.Thread.OnExecute := SDK.ThreadExecute;
 Run(Applet);
end.


 
Лёха   (2009-06-13 17:35) [2]

спасибо! но я сделал чуть по-другому:
formThread.OnExecute := TOnThreadExecute(MakeMethod(nil, @ThreadExecute));


 
Galkov   (2009-06-13 20:40) [3]

1) Да не вопрос, можно и так
2) Есть такой термин - чит. Это то, чем не следует пользоваться без крайней необходимости :)


 
abyss_by ©   (2009-06-13 22:58) [4]

var
MyThread: PThread;

procedure TForm1.FormThreadShow;
begin
 if Assigned(ToolTipThread) then
  MyThread.Terminate;
  MyThread := NewThreadAutofree(ShowThread);//ShowThread будет ниже
  MyThread.PriorityClass := THREAD_PRIORITY_IDLE;// тут на усмотрение конечно
  MyThread.Threadpriority := THREAD_PRIORITY_LOWEST;
end;

function TForm1.ShowThread(Sender: pThread): integer;
begin
//tratata
end;



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.134 c
15-1352647406
Аббат Пиккола
2012-11-11 19:23
2013.03.22
Вот кто решает, что вкус ароматизатора идентичен натуральному


8-1227079093
Andrey_ka
2008-11-19 10:18
2013.03.22
как заставить окно перерисовываться?


15-1346788263
AV
2012-09-04 23:51
2013.03.22
Запретить пользоваться сайтами, кроме явно разрешенных


15-1352144255
Дмитрий С
2012-11-05 23:37
2013.03.22
Вздулись кнопки на нетбуке. Как исправить?


15-1351694777
Handler
2012-10-31 18:46
2013.03.22
как будет на английском