[Статья] Потоки в Delphi

[lolwut98]

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

Для чего нужны потоки? Для того, чтобы выполнять в них какую-либо задачу, и чтобы при этом форма не зависала. Вот как их создавать:

пишем вот этот код после type:

type
  MyThr = class(TThread)
  protected
    procedure Execute; override;
end;

потом нажимаем ctrl+shift+c и видим, что появилось вот это:

procedure MyThr.Execute;
begin
  inherited;

end;

это и есть тело потока. здесь пишем наш код. например:

procedure MyThr.Execute;
var
i:integer;
begin
for i:=0 to 2000 do
Application.MainForm.Memo1.Lines.Add(inttostr(i));
end;

для того, чтобы этот код работал, надо кинуть на форму TMemo.
Если вы напишете Memo1.Lines.Add(inttostr(i)), то это не будет работать, т.к. Memo1 принадлежит форме, а не потоку. Для того, чтобы код работал, надо обратиться к Memo1 через форму, как это показано в коде повыше.

потом кидаем на форму 1 TButton. В обработчике OnClick пишем:

MyThr.Create(false);

Должно получиться что-то вроде этого:

procedure TForm1.Button1Click(Sender: TObject);
begin
MyThr.Create(false);
end;

Всё. Готово. Можете запускать проект. Когда вы нажмёте на кнопку, то в Memo1 будут добавляться цифры от 0 до 2000. И форма не будет зависать. Если вам надо остановить поток, то напишите

MyThr.Suspend;

Чтобы опять его запустить, надо написать

MyThr.Resume;

А чтобы убить поток, то пишите

MyThr.Terminate;

Можете это использовать как хотите. Например, сделать в потоке авторизацию и т.п.
Удачи

[Dinmaite]

У меня есть форма, на ней есть ресурс - компонент Edit1.
Я хочу в потоке читать значение из Edit'a.
Потоков у меня 7 тысяч.
Как мне поступить?

PS. Только не мне отвечай, а в тему добавь.

[llbumerll]

у меня на форме есть компонент
Timer1

когда я его пытаюсь остановить потоком, то мне выдаёт ошибку

Application.MainForm.Timer1.Enabled:=false;

то есть поток не видит вообще компонентов с формы

[metraz]

Цитата: Сообщение от llbumerll у меня на форме есть компонент Timer1 когда я его пытаюсь остановить потоком, то мне выдаёт ошибку Application.MainForm.Timer1.Enabled:=false; то есть поток не видит вообще компонентов с формы

Потому что ты не можешь из дополнительного потока изменять свойства объекта с потока основного.
Делай это через синхронизацию.

[llbumerll]

Цитата: Сообщение от metraz Потому что ты не можешь из дополнительного потока изменять свойства объекта с потока основного. Делай это через синхронизацию.

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

[metraz]

procedure potok.execute;
begin
{тут код}
synchronize(sync); ////sync объявлен в разделе паблик у потока
end;

procedure potok.sync;
begin
form1.timer1.enabled:=false;
end;

[llbumerll]

Цитата: Сообщение от lolwut98 Если вам надо остановить поток, то напишите MyThr.Suspend; Чтобы опять его запустить, надо написать MyThr.Resume; А чтобы убить поток, то пишите MyThr.Terminate; Можете это использовать как хотите. Например, сделать в потоке авторизацию и т.п. Удачи

ети функции неработают, а мне надо както убить поток =(

[metraz]

эти команды всегда работают) Если не работают, то дело в вас)

[llbumerll]

Цитата: Сообщение от metraz эти команды всегда работают) Если не работают, то дело в вас)

Delphi XE3 , делаю поток
в первую кнопку пишу MyThr.Create(False);
поток работает отлично.
во вторую кнопку начинаю писать MyThr.Ter он даже не предлагает эту функцию, дописываю до конца MyThr.Terminate; ошибку не подчёркивает, но при компиляции ошибка и выделяет MyThr.Terminate; красным

вот отдельно сделал [Ссылки могут видеть только зарегистрированные пользователи. ]

Добавлено через 3 часа 3 минуты
metraz, загляни пожалуйста в тему потоки

[metraz]

Цитата: Сообщение от llbumerll он даже не предлагает эту функцию

В глобалньом варе пишешь "potok: mythr;"
а потом уже
potok.FreeOnTerminate:=True;
potok.Terminate;
potok:=nil;

[llbumerll]

Цитата: Сообщение от metraz В глобалньом варе пишешь "potok: mythr;" а потом уже potok.FreeOnTerminate:=True; potok.Terminate; potok:=nil;

спс, скачал библию Михаила Фленова, там тоже самое ток поподробнее расписанно, наконецто понял как с потоками творить чудеса )))
вот только почемуто если добовляю юнит THread1 а в главной форме пытаюсь в Uses прописать MyThread то подчёркивает красным, типо MyThread уже обьявлена или он низнает что ето, поетому пришлоть делать как сказанно в етой теме писать поток в ручную, ну хоть както )))

[avi2011class]

А потоки сильно на производительность влияют?

[Dinmaite]

Цитата: Сообщение от avi2011class А потоки сильно на производительность влияют?

Производительность чего?

[Рэйзор]

Цитата: Сообщение от llbumerll спс, скачал библию Михаила Фленова, там то_же самое, только поподробнее расписано, наконец-то понял, как с потоками творить чудеса ))) вот только почему-то, если добавляю юнит TThread1, а в главной форме пытаюсь в Uses прописать MyThread, то подчёркивает красным, типо MyThread уже объявлен, или среда не знает, что это, поэтому пришлось делать так, как сказано в этой теме, писать поток вручную, ну хоть как-то )))

А зачем пытаться писать в uses имя класса? Имя используемого модуля туда писать не пробовали?
И как это может быть: "MyThread уже объявлен, или среда не знает, что это" ??
Вы сообщения об ошибках читаете? Там обычно ясно написано, что и куда.

Прочитайте учебник по основам русского языка, прежде чем что-то писать.

[VeTaL_UA]

Цитата: Сообщение от llbumerll пытаюсь в Uses прописать MyThread

пропиши туда TThread1