TThread. Что не так? И как с этим бороться?

← →
ak75 (2003-11-08 18:00) [0]

Подскажите. Я первый раз работаю с потоками.
Задача: При DragDrop"е из одного контрола в другой происходит очень длительные отработки запросов (от 5 сек. до 7 мин.), чтобы юзверь мог видеть, что прога не повисла я решил повесить на форму TRzProgressBar и для видимости увеличивать его показания в отдельном потоке, т.к., сами понимаете, отследить процент выполнения SQL"я нельзя.
Проблема:
Создаю поток в начале события OnDragDrop целевого контрола. Уничтожаю в конце, после того как всеSQL"и отработали. Процедура где увеличивается заполнение ProgressBar"а срабатывает один раз и на
этом все.
procedure TDragTheard.GiveAnswer;
begin
frmDragDrop.RzProgressBar1.IncPartsByOne;
end;

procedure TDragTheard.Execute;
begin
FreeOnTerminate := True;
while not Terminated do Synchronize(GiveAnswer);
end;
Если поставить два Button (один Creat, другой Terminate) и нажать на первый, то все работает.
Если нажать Button1, прОгресс растет, потом сделать DragDrop, прОгресс останавливается.
Как сделать чтобы заполенние ProgressBar"а работало во время выполнения запросов?

← →
Palladin © (2003-11-08 18:04) [1]

Великий смысл потока тонет в Synchronize.
F1

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

TThread. Что не так? И как с этим бороться? Найти похожие ветки