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

Вниз

Еще нужна помощь мастеров!   Найти похожие ветки 

 
ProtoSoft ©   (2002-11-27 19:19) [0]

Есть такая трабла, с тем же THRead другого потока.
Функция, которую я запускаю в отдельном потоке сканирует каталоги на диске, собирает инфо о файлах и т.д., если я ее в процедуре execute запускаю свою функция с помощью
...
procedure TScanDir.Execute;
begin
Synchronize(DoScanProc);
end;

procedure TScanDir.DoScanProc;
begin
ScanDirThRead; //Моя функция
end;

Все работает хорошо абсолютно, вот только мое окно "мертвое", пока не закончится выполняться поток.

А если я убираю Synchronize() и втыкаю без него, все работает ОК, окно "живое", но все ОК пока не закончится процедура ScanDirThRead, затем возникает ошибка, что-то там OS critical error или что-то вроде этого.
Поможите плз, с меня пиво!


 
©   (2002-11-27 19:31) [1]

ответ очевиден
в случае Synchronize(DoScanProc); DoScanProc выполняется в основном потоке, вешая твою прогу.

да и зачем Synchronize нужен, если DoScanProc использует VCL и не обработывает мессаги?


 
ProtoSoft ©   (2002-11-27 20:16) [2]

k Мне нужно, чтоб мое окно статуса работодабельное было! Чтоб я его мог переместить, установить другие параметры и т.д.


 
Cobalt ©   (2002-11-27 21:42) [3]

Создавай для потока отдельный метод без параметров (в кач-ве их можно использовать поля TThread) типа DrawChanges, в котором будешь обращаться к форме и прочим контролам. И когда надо(только отрисоваться и т.п.), вызывай Synchronize(DrawChanges);
Можно несколько методов сделать, главное, чтоб без входных параметров


 
ProtoSoft ©   (2002-11-27 23:02) [4]

//Cobalt
//Создавай для потока отдельный метод без параметров (в кач-ве их можно использовать поля TThread) типа DrawChanges, в котором будешь обращаться к форме и прочим контролам. И когда надо(только отрисоваться и т.п.), вызывай Synchronize(DrawChanges);
Можно несколько методов сделать, главное, чтоб без входных параметров

А можно поподробней, честно говоря я не совсем понял, а если еще пример, то вообще ОК.

Да если хочешь я могу кинуть тебе вырезку из моего кода, как я все это делаю. Мыль на мыло, я тебе вышлю исходник



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
3-36938
race1
2002-12-18 07:49
2003.01.13
sql round


6-37252
_ol_
2002-11-06 17:11
2003.01.13
Всего лишь написать telnet...


1-37172
VirginKiller
2002-12-28 15:04
2003.01.13
XP Style - Как получить цвета?


1-37039
adolf_99
2003-01-02 15:36
2003.01.13
Помогите


14-37318
Шишкин Илья
2002-12-21 21:36
2003.01.13
Как заработать денег в Инете?