Главная страница
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.067 c
1-1173156261
ТОНИ
2007-03-06 07:44
2007.04.29
Сохранение формы с компонентами в файл.


15-1175599967
nali
2007-04-03 15:32
2007.04.29
Делфи не видит dcu файлы сторонних компонент.


2-1175955394
=Guest=
2007-04-07 18:16
2007.04.29
Количество файлов в папке


1-1172866221
Mr. D.
2007-03-02 23:10
2007.04.29
TMemo медленно работает


2-1176187913
=Teddy=
2007-04-10 10:51
2007.04.29
Как в TreeView узнать индекс выбранного узла ?