Нитка.....

← →
markers © (2004-11-24 15:00) [0]

Народ, подскажите пли как сделать простую нитку (Поток) Есть одна функция которая крутится в таймере, она занимает некоторое время (К сожаению)...... Решил сделать в отдлном потоке (Всю жизнь боялся этого момента;() Но как сделать осалютно НЕ ЗНАЮ! Желательно без дополнительного юнита (И так уже пять)... Или хотя бы статейку.... Кстати желательно хоть маленький примерчик;) Плииииз!;) аранее спасибо;)

← →
Alexander Panov © (2004-11-24 15:16) [1]

type SThread=class(TThread) protected procedure Execute; override; public constructor Create; end; constructor SThread.Create; begin inherited Create(True); FreeOnTerminate := True; Resume; end; procedure SThread.Execute; begin while not Terminated do begin sleep(1000); end; end;

PS. писал прямо здесь, поэтому опечатки могут быть.

← →
markers © (2004-11-24 15:18) [2]

Сенкс;)
Сейчас попробую;)

← →
Leonid Troyanovsky (2004-11-24 15:22) [3]

> markers © (24.11.04 15:00)
> Народ, подскажите пли как сделать простую нитку (Поток)
> Есть одна функция которая крутится в таймере, она занимает
> некоторое время (К сожаению)...... Решил сделать в отдлном
> потоке (Всю жизнь боялся этого момента;() Но как сделать
> осалютно НЕ ЗНАЮ! Желательно без дополнительного юнита (И
> так уже пять)... Или хотя бы статейку.... Кстати желательно
> хоть маленький примерчик;) Плииииз!;) аранее спасибо;)

Tutorial on thread programming in Delphi:

http://www.pergolesi.demon.co.uk/prog/threads/ToC.html
http://www.sklobovsky.com/community/index.html

Handling exceptions in a thread:
http://community.borland.com/article/0,1410,10452,00.html

by Tolik Tentser:

http://www.compress.ru/Article.asp?id=2164

← →
Digitman © (2004-11-24 15:28) [4]

> она занимает некоторое время .. Решил сделать
> в отдлном потоке

.. при этом наивно полагая, что отдельный поток исполняется святым духом, а не ОС, и посему его исполнение не занимает никакого времени ...

так ?

← →
markers © (2004-11-24 15:34) [5]

Статьи конечно хорошо, но я себе не ставлю задачу поностью обучится ниткам.... Мне пока достаточно кусочка....
2 Alexander Panov Так то работает, но что-то больно сильно стало тормоить..... и в этом потоке сделал уже процессмессадж, всё равно тормазит больше чем было раньше, моет из-а того, что процедуру я в этой нитке выполняю не свою, а от компонента, а там это видимо не предусмотрено чтоли? Подскажите пли;)

← →
markers © (2004-11-24 15:36) [6]

то Digitman То что на это тоже следовательно нужно время, но тогда не удет тормозить основной код..... И форма не будет тормоить в этом вся и необходимость

← →
markers © (2004-11-24 15:37) [7]

извиняюсь за скушанные буквы, клаву чистить надо :(

← →
wal © (2004-11-24 15:58) [8]

А нитка это thread или fiber?

Лично мне не важно что это будет, для меня главное что чере 1000 милисикунду делася пинг фукцией соответствующего компонента, и чтоб во время пинга програ не вешаась, работали минюшки и все окна, бе тормозов во время выполения....

У компонента исходники имеются?

> markers

поясни как ты себе предствляешь рабору мультизадачной ОС..

markers © (24.11.04 15:34) [5]
Так то работает, но что-то больно сильно стало тормоить..... и в этом потоке сделал уже процессмессадж, всё равно тормазит больше чем было раньше, моет из-а того, что процедуру я в этой нитке выполняю не свою, а от компонента, а там это видимо не предусмотрено чтоли? Подскажите пли;)

Так все зависит от того, что ты хочешь сделать.
И тем паче от компонента, "процедуру" которого ты хочешь выполнить.

Нитка..... Найти похожие ветки