Работа с TThread

[t2skler]

Решил работать с обычными потоками, ибо у них возможностей больше (можно настраивать приоритет и разные многие штуки )) ), но увы не разобрался в принципе их работы. Как создавать и какие у них есть свойства. Объясните пожалуйста как создать поток и задать ему определённый приоритет и соответственно правильно вызывать.

З.Ы. Мб у кого ещё example по потокам найдётся?

[Пепел Феникса]

File->New->Thread Object
и что там разбираться?

Решил работать с обычными потоками

а можно поинтересоватся, что это за необычные потоки у вас?

[t2skler]

Сообщение от Пепел Феникса

File->New->File->New->Thread Object
и что там разбираться?

а можно поинтересоватся, что это за необычные потоки у вас?

Потоки на WinAPI, просто там сложнее всё задать.

По поводу Thread Object. Увидел и толком вообще ничего не понял.

[GunSmoker]

http://forum.vingrad.ru/forum/topic-60076.html

[Человек_Борща]

действительно что сложного? то, ну допустим так:
создаём новый юнит подключаем модуль classes
далее это:

type
  TmyFirstThread = Class(TThread)
   private
   
protected 
  
public
procedure Execute;
end;

implementation


procedure TmyFirstThread.execute;
begin
//что дклает наш поток.
end;

в основном проекте, подключпем юнит с потоком.

далее создаём перемную:

procedure someproc;
var
Thr:TmyFirstThread;
begin
Thr:=TmyfirstThread.Create(True); //пускаем поток остановленным
Thr.FreeOnTerminate:=true; //Освободить переменнукю по окончанию работы execute потока
Thr.Priority:=tpNormal; //Нормальны приоритет
Thr.Resume; //запускаем поток
end;

писал прямо тут

[t2skler]

Сообщение от Человек_Борща

действительно что сложного? то, ну допустим так:
создаём новый юнит подключаем модуль classes
далее это:

type
  TmyFirstThread = Class(TThread)
   private
   
protected 
  
public
procedure Execute;
end;

implementation


procedure TmyFirstThread.execute;
begin
//что дклает наш поток.
end;

в основном проекте, подключпем юнит с потоком.

далее создаём перемную:

procedure someproc;
var
Thr:TmyFirstThread;
begin
Thr:=TmyfirstThread.Create(True); //пускаем поток остановленным
Thr.FreeOnTerminate:=true; //Освободить переменнукю по окончанию работы execute потока
Thr.Priority:=tpNormal; //Нормальны приоритет
Thr.Resume; //запускаем поток
end;

писал прямо тут

Так, понятно, спасибо. Только как осуществить поток в виде процедуры, т.е. передать ей несколько переменных?
Да и ещё, почему когда я ставлю приоритет tpLower загрузка на цп идёт на 99%?

[Человек_Борща]

хм, передать параметры? Тоже можно....
модифицируем модуль потока:

type
  TmyFirstThread = Class(TThread)
   private
   
protected 
Fmystring:string;
fmyvar:integer;  
public
procedure Execute;
constructor Create(mySuspend:boolead; myparam:string; myparam1:integer);
end;

implementation

constructor TmyFirstThread.Create(mySuspend:boolead; myparam:string; myparam1:integer);
begin
//вызываем родной конструктор потока
inherited Create(mySuspend); 
//передаём параметры потоку далее юзаем их в потоке
Fmystring:=myparam;
fmyvar:=myparam1;
end;


procedure TmyFirstThread.execute;
begin
//что дклает наш поток.
end;

ну как-то так, опять же на коленке.

[t2skler]

Сообщение от Человек_Борща

хм, передать параметры? Тоже можно....
модифицируем модуль потока:

type
  TmyFirstThread = Class(TThread)
   private
   
protected 
Fmystring:string;
fmyvar:integer;  
public
procedure Execute;
constructor Create(mySuspend:boolead; myparam:string; myparam1:integer);
end;

implementation

constructor TmyFirstThread.Create(mySuspend:boolead; myparam:string; myparam1:integer);
begin
//вызываем родной конструктор потока
inherited Create(mySuspend); 
//передаём параметры потоку далее юзаем их в потоке
Fmystring:=myparam;
fmyvar:=myparam1;
end;


procedure TmyFirstThread.execute;
begin
//что дклает наш поток.
end;

ну как-то так, опять же на коленке.

Пытаюсь запустить таким образом:

procedure TForm1.Button1Click(Sender: TObject);
var Thread: TmyFirstThread;
begin
Thread:=TmyFirstThread.Create(True,'aaa',0);
Thread.Resume;
end;

Но выдаёт абстрактную ошибку, напишите пожалуйста, как нужно правильно запускать поток с параметрами.

[veniside]

> почему когда я ставлю приоритет tpLower загрузка на цп идёт на 99%

приоритет не имеет отношения к загрузке. Если поток добровольно не отдаёт кванты времени системе (через Sleep(), WaitFor... и подобные вызовы), система считает, что этот поток занимает максимально отведенное ему время (при любом приоритете).

[mss]

> выдаёт абстрактную ошибку

У Борща коленка дрожала когда он на ней писал)
И он забыл (?) самую малость:

public
procedure Execute; override;