Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: CL | DM;

Вниз

Как правильно синхронизировать thread?   Найти похожие ветки 

 
dracula ©   (2007-04-12 14:52) [0]

Проблема вот в чём, создаю thread там идёт создание базы файлов, затем вызываю из этогоже threada процедуру в ней происходит определённые вычисления, и вот из неё то и надо выполнить процедуру с синхронизацией которая обращается к VCL (причём она находится в другом юните).

unit1
...

 TFooThread = class(TThread)
 private
 protected
   procedure Execute; override;
 end;
 var execute   : TFooThread;

...

procedure TFooThread.Execute;
begin
...
 FindD(name: string);
end;

procedure FindD(name: string);
begin
 ...
 Synchronize(Add(name)); Вот это вот и надо синхронизировать.
end;

unit2...

procedure Add(name: string);
begin
....
end;


 
Сергей М. ©   (2007-04-12 15:03) [1]

TFooThread = class(TThread)
private
  AName: String;
  procedure SyncAdd;
protected
  procedure FindD(name: string);
  procedure Execute; override;
end;

procedure TFooThread.Execute;
begin
...
FindD(name);
end;

procedure TFooThread.SyncAdd;
begin
 Add(AName);
end;

procedure TFooThread.FindD(name: string);
begin
...
AName := Name;
Synchronize(SyncAdd);
end;


 
dracula ©   (2007-04-12 15:58) [2]

>>> to Сергей М.

Спасибо огромное, очень помог, всё заработало!



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

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
15-1174989221
zdm
2007-03-27 13:53
2007.04.29
шашки


2-1175816300
Чайник
2007-04-06 03:38
2007.04.29
Что это: Unsatisfied forward or external declaration: P1202_AdsP


2-1176037710
pound
2007-04-08 17:08
2007.04.29
В редакторе TValueListEditor в событии OnValidate проверяю


15-1175444112
VirEx
2007-04-01 20:15
2007.04.29
Новое поколение


15-1175721134
Gamer
2007-04-05 01:12
2007.04.29
помогите выбрать звуковуху для старого ПК