Главная страница
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.056 c
2-1339314251
СветаНеМогуСделать
2012-06-10 11:44
2013.03.22
Массивы и символьные строки


2-1342633944
Nilman
2012-07-18 21:52
2013.03.22
Фон StringGrid вне ячеек


15-1344964284
Rouse_
2012-08-14 21:11
2013.03.22
И все-же нужны спецы по HASP/SenseLock/Rockey :)


8-1228319255
SpecRam
2008-12-03 18:47
2013.03.22
Типа календарный план график


2-1340013571
IGray
2012-06-18 13:59
2013.03.22
Как правильно закрыть модальную форму из OnActivate?