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

Вниз

Сканирование папок и файлов в потоке   Найти похожие ветки 

 
Sergey_R ©   (2005-10-19 12:12) [0]

Подскажите, пожалуйста, как реализовать добавление файлов из определенной папки (включая вложенные) в потоке. Мне нужно выводить количество уже найденных файлов на какую-нибудь форму. С выводом вроде понятно, как сделать. А вот как засунуть эту функцию в поток?


procedure  FindAllFiles(List:  TStrings;  Dir,  Mask:  string);
procedure  ScanDir(Dir:  string);
var SR:  TSearchRec;
begin
   Dir  :=  IncludeTrailingBackSlash(Dir);
   if  FindFirst(Dir  +  "*.*",  faAnyFile  -  faVolumeID,  SR)  =  0
  then
     try
        repeat
          if  (SR.Name  <>  ".")  and  (SR.Name  <>  "..")  then
            if  SR.Attr  and  faDirectory  <>  0
              then ScanDir(Dir  +  SR.Name)
              else if  MatchesMask(SR.Name,  Mask)  then
                     begin
                       List.Add(Dir  +  SR.Name);
                       inc(kol);
                                               end;

        until  FindNext(SR)  <>  0;
     finally
       FindClose(SR);
 end;

end;

begin
    if  (List  =  nil)  or  not  DirectoryExists(Dir)  or  (Mask  =  "")  then
        raise  Exception.Create("Invalid  parameter");
        ScanDir(Dir)
end;



переменная kol  в данном случае объявлена глобально, и именно её мне нужно куда-нибудь вывести. Пробовал создать поток, куда вставил эти процедуры, но Synchronize почему-то доступно только в Thread.Execute!


 
clickmaker ©   (2005-10-19 12:29) [1]


> Synchronize почему-то доступно только в Thread.Execute!

она доступна из любого метода потока


 
Digitman ©   (2005-10-19 12:36) [2]


> как засунуть эту функцию в поток?


ну как ты обычно "суешь", так и "засунь".

или призадумайся. что и зачем "суешь" ...


 
Sergey_R ©   (2005-10-19 13:31) [3]

2 clickmaker
Спасибо! Оказалось, что просто надо прописать в классе потока нужную функцию и Synchronize заработал!



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

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

Наверх




Память: 0.47 MB
Время: 0.028 c
14-1129149514
Гарри Поттер
2005-10-13 00:38
2005.11.06
Диалог поиска файлов, диалог Run, в WinXP


9-1119392823
SOL
2005-06-22 02:27
2005.11.06
кратчайший путь


6-1113745774
Alek_1
2005-04-17 17:49
2005.11.06
Indy + SSL


4-1125923631
n0name
2005-09-05 16:33
2005.11.06
Формат ICO


1-1129266046
Николай1
2005-10-14 09:00
2005.11.06
ESC Последовательности