Скачать: CL | DM;

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

← →
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?

---

← →
markers ©   (2004-11-24 16:17) [9]

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

---

← →
wal ©   (2004-11-24 16:23) [10]

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

---

← →
Digitman ©   (2004-11-24 16:25) [11]

> markers


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

---

← →
Alexander Panov ©   (2004-11-24 16:26) [12]

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

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c