Главная страница
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.021 c
6-37237
biocron
2002-11-13 09:18
2003.01.13
Надо узнать имя компа и его узера


6-37243
Aspirin A.
2002-11-02 18:09
2003.01.13
Передать скрипту данные методом post


7-37411
Dron_Fox
2002-10-31 11:41
2003.01.13
Form+DLL


6-37250
sizmrebi
2002-11-14 09:46
2003.01.13
Net Connection


3-36952
Veronika
2002-12-18 13:20
2003.01.13
TIBDataSet неправильно работает